From b09bb1b61d57fee70a6b83f576ead0fee0f329bd Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Fri, 25 Mar 2016 16:43:56 +0100 Subject: [PATCH] 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 ed2efcf86..eba4a5df1 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)) -- 2.39.2