debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

test: `visible-buffer-substring' should not return text properties.

Browse source 
When using `visible-buffer-substring' to examine a buffer, the text
properties are not useful, so don't include them.
This commit is contained in:
David Edmondson 2012-01-26 07:19:37 +00:00 committed by David Bremner
parent d0a048f856
commit c70c7f86b8
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/test-lib.el
View file

@ -51,16 +51,19 @@ FILENAME is OUTPUT."
(with-temp-file (or filename "OUTPUT") (insert text)))) (with-temp-file (or filename "OUTPUT") (insert text))))
(defun visible-buffer-string () (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))) (visible-buffer-substring (point-min) (point-max)))
(defun visible-buffer-substring (start end) (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) (let (str)
(while (< start end) (while (< start end)
(let ((next-pos (next-char-property-change start end))) (let ((next-pos (next-char-property-change start end)))
(when (not (invisible-p start)) (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))) (setq start next-pos)))
str)) str))