emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 3bb4770: Tweak el-search--pp-to-string


From: Michael Heerdegen
Subject: [elpa] master 3bb4770: Tweak el-search--pp-to-string
Date: Sun, 30 Apr 2017 05:03:56 -0400 (EDT)

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

    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.
---
 packages/el-search/el-search.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index e89b2da..05b1387 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]