[elpa] master 1e533d2: Handle read errors when reading and validating replacement

[Michael Heerdegen]

branch: master
commit 1e533d2eb738a0bc60cc9c3eba298bee54f3d2ce
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Handle read errors when reading and validating replacement
---
 packages/el-search/el-search.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 2373853..a024212 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2478,7 +2478,9 @@ reindent."
             (goto-char 1)
             (forward-sexp (if splice (length replacement) 1))
             (let ((result (buffer-substring 1 (point))))
-              (if (equal replacement (read (if splice (format "(%s)" result) 
result)))
+              (if (condition-case nil
+                      (equal replacement (read (if splice (format "(%s)" 
result) result)))
+                    ((debug error) nil))
                   result
                 (error "Error in `el-search--format-replacement' - please make 
a bug report"))))
         (kill-buffer orig-buffer)))))