diff options
author | Sylvain Chouleur <sylvain.chouleur@gmail.com> | 2014-01-19 14:18:45 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-01-19 22:00:02 +0100 |
commit | 5a2d47e1baf7e9ed3796a51365fc4635a99f7078 (patch) | |
tree | 1e8c593ddd56ac0893f0b0bfe562003784da3e08 | |
parent | 5f04b3815f110651f4847fcc93778864d6a41560 (diff) | |
download | org-mode-5a2d47e1baf7e9ed3796a51365fc4635a99f7078.tar.gz |
Fix `org-outline-overlay-data' marker insertion-type
* org.el (org-outline-overlay-data): Set the insertion-type of end
bound marker of the function to t (means marker advances when you
insert text at it)
This is to conserve outline visibility property when changes are made
at the end bound of the data.
For example: try `org-babel-execute-subtree' on a folded outline:
The new result will be shown after the folded part of the outline
whereas the outline body should not be visible.
TINYCHANGE
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index cba8c30..e485c9e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7184,8 +7184,8 @@ If USE-MARKERS is set, return the positions as markers." end (overlay-end o)) (and beg end (> end beg) (if use-markers - (cons (move-marker (make-marker) beg) - (move-marker (make-marker) end)) + (cons (copy-marker beg) + (copy-marker end t)) (cons beg end))))) (overlays-in (point-min) (point-max)))))))) |