When using `visible-buffer-substring' to examine a buffer, the text
properties are not useful, so don't include them.
---
 test/test-lib.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/test/test-lib.el b/test/test-lib.el
index bc75f06..36e793a 100644
--- a/test/test-lib.el
+++ b/test/test-lib.el
@@ -60,7 +60,7 @@ FILENAME is OUTPUT."
     (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

Reply via email to