From: Ken Manheimer <ken.manheimer@gmail.com>
Date: Mon, 7 Feb 2011 18:55:33 +0000 (-0500)
Subject: (allout-listify-exposed): Copy text sans text properties.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e2ee8896bc80197299b175afbf81c261d7effa2;p=emacs.git

(allout-listify-exposed): Copy text sans text properties.
---

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