From 3e2ee8896bc80197299b175afbf81c261d7effa2 Mon Sep 17 00:00:00 2001 From: Ken Manheimer Date: Mon, 7 Feb 2011 13:55:33 -0500 Subject: [PATCH] (allout-listify-exposed): Copy text sans text properties. --- lisp/allout.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index d965ac35338..a0bd8f7339c 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -5406,8 +5406,10 @@ header and body. The elements of that list are: ;; Goto initial topic, and register preceeding stuff, if any: (if (> (allout-goto-prefix-doublechecked) start) ;; First topic follows beginning point -- register preliminary stuff: - (setq result (list (list 0 "" nil - (buffer-substring start (1- (point))))))) + (setq result + (list (list 0 "" nil + (buffer-substring-no-properties start + (1- (point))))))) (while (and (not done) (not (eobp)) ; Loop until we've covered the region. (not (> (point) end))) @@ -5426,7 +5428,7 @@ header and body. The elements of that list are: (setq strings nil) (while (> next (point)) ; Get all the exposed text in (setq strings - (cons (buffer-substring + (cons (buffer-substring-no-properties beg ;To hidden text or end of line: (progn -- 2.39.5