[elpa] externals/el-search e96c054 156/332: Handle read errors when reading and validating replacement

[Stefan Monnier]

branch: externals/el-search
commit e96c05416e94ac6381e2175aac2a67b3ecc792fc
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

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

diff --git a/el-search.el b/el-search.el
index 2373853..a024212 100644
--- a/el-search.el
+++ b/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)))))