diff options
| author | Ken Manheimer <ken.manheimer@gmail.com> | 2011-02-07 13:55:33 -0500 |
|---|---|---|
| committer | Ken Manheimer <ken.manheimer@gmail.com> | 2011-02-07 13:55:33 -0500 |
| commit | 3e2ee8896bc80197299b175afbf81c261d7effa2 (patch) | |
| tree | 01d4e84464b9f6577657c182d0d8a3448afd2b17 /lisp/allout.el | |
| parent | 41d579ce4a2a86428f200788df4b15b936aa5076 (diff) | |
| download | emacs-3e2ee8896bc80197299b175afbf81c261d7effa2.tar.gz | |
(allout-listify-exposed): Copy text sans text properties.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 8 |
1 files 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 |