[PATCH 1/4 v3] test: `visible-buffer-substring' should not return text properties.
David Edmondson
dme at dme.org
Wed Jan 25 23:19:37 PST 2012
When using `visible-buffer-substring' to examine a buffer, the text
properties are not useful, so don't include them.
---
test/test-lib.el | 9 ++++++---
1 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/test/test-lib.el b/test/test-lib.el
index bc75f06..5b32e0a 100644
--- a/test/test-lib.el
+++ b/test/test-lib.el
@@ -51,16 +51,19 @@ FILENAME is OUTPUT."
(with-temp-file (or filename "OUTPUT") (insert text))))
(defun visible-buffer-string ()
- "Same as `buffer-string', but excludes invisible text."
+ "Same as `buffer-string', but excludes invisible text and
+removes any text properties."
(visible-buffer-substring (point-min) (point-max)))
(defun visible-buffer-substring (start end)
- "Same as `buffer-substring', but excludes invisible text."
+ "Same as `buffer-substring-no-properties', but excludes
+invisible text."
(let (str)
(while (< start end)
(let ((next-pos (next-char-property-change start end)))
(when (not (invisible-p start))
- (setq str (concat str (buffer-substring start next-pos))))
+ (setq str (concat str (buffer-substring-no-properties
+ start next-pos))))
(setq start next-pos)))
str))
--
1.7.8.3
More information about the notmuch
mailing list