[elpa] externals/el-search b500266 151/332: Tweak el-search--pp-to-string

[Stefan Monnier]

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

    Tweak el-search--pp-to-string
    
    Bind print-circle -> nil.
    
    When an object contains multiple occurrences of the empty string, all
    but the last are printed as #N#.  We don't want this (especially when
    printing a replacement).
    
    `string-trim-right' the result from pp which may end with a line
    break.
---
 el-search.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index e89b2da..05b1387 100644
--- a/el-search.el
+++ b/el-search.el
@@ -543,8 +543,9 @@ Example:
 
 (defun el-search--pp-to-string (expr)
   (let ((print-length nil)
-        (print-level nil))
-    (pp-to-string expr)))
+        (print-level nil)
+        (print-circle nil))
+    (string-trim-right (pp-to-string expr))))
 
 (defun el-search--setup-minibuffer ()
   (let ((inhibit-read-only t))