[elpa] externals/el-search 922281a 112/332: Fix replacement verification for splicing mode

[Stefan Monnier]

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

    Fix replacement verification for splicing mode
---
 el-search.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index 61aa9b8..3e3d828 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 0.2.2
+;; Version: 0.2.3
 ;; Package-Requires: ((emacs "25"))
 
 
@@ -644,9 +644,9 @@ reindent."
                     (el-search--ensure-sexp-start)
                   (end-of-buffer (goto-char (point-max))))))
             (goto-char 1)
-            (forward-sexp)
+            (forward-sexp (if splice (length replacement) 1))
             (let ((result (buffer-substring 1 (point))))
-              (if (equal replacement (read result))
+              (if (equal replacement (read (if splice (format "(%s)" result) 
result)))
                   result
                 (error "Error in `el-search--format-replacement' - please make 
a bug report"))))
         (kill-buffer orig-buffer)))))