[Emacs-diffs] /srv/bzr/emacs/trunk r103180: (allout-listify-exposed): Copy text sans text properties.

[Ken Manheimer]

------------------------------------------------------------
revno: 103180
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-07 13:55:33 -0500
message:
  (allout-listify-exposed): Copy text sans text properties.
modified:
  lisp/allout.el

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-01-25 04:08:28 +0000
+++ b/lisp/allout.el    2011-02-07 18:55:33 +0000
@@ -5406,8 +5406,10 @@
       ;; 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 @@
        (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