[elpa] master b09bb1b 16/24: Use `pp-to-string' to print replacement expression

[Michael Heerdegen]

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

    Use `pp-to-string' to print replacement expression
---
 packages/el-search/el-search.el |   11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index ed2efcf..eba4a5d 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -292,11 +292,10 @@ error."
                             case-fold-search)))
     (string-match-p regexp string)))
 
-(defun el-search--print (expr)
-  (let ((print-quoted t)
-        (print-length nil)
+(defun el-search--pp-to-string (expr)
+  (let ((print-length nil)
         (print-level nil))
-    (prin1-to-string expr)))
+    (pp-to-string expr)))
 
 (defvar el-search-read-expression-map
   (let ((map (make-sparse-keymap)))
@@ -518,8 +517,8 @@ return nil (no error)."
           (with-temp-buffer
             (emacs-lisp-mode)
             (insert (if splice
-                        (mapconcat #'el-search--print replacement " ")
-                      (el-search--print replacement)))
+                        (mapconcat #'el-search--pp-to-string replacement " ")
+                      (el-search--pp-to-string replacement)))
             (goto-char 1)
             (let (start this-sexp end orig-match-start orig-match-end done)
               (while (and (< (point) (point-max))