mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Ken Manheimer 2011-02-07 13:55:33 -05:00
parent 41d579ce4a
commit 3e2ee8896b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/allout.el
View File

@ -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