[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 3bb4770: Tweak el-search--pp-to-string,
Michael Heerdegen <=