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