Done

2014/1/19 Nicolas Goaziou <n.goaz...@gmail.com>

> Hello,
>
> Sylvain Chouleur <sylvain.choul...@gmail.com> writes:
>
> > Well seen,
> > here is the new patch, working as well.
>
> Thank you. If you haven't signed FSF papers, could you add "TINYCHANGE"
> at the end of your commit message so I can apply it?
>
>
> Regards,
>
> --
> Nicolas Goaziou
>
From 96efa14d318550e002b1c43e94cdaab108ddb78c Mon Sep 17 00:00:00 2001
From: Sylvain Chouleur <sylvain.choul...@gmail.com>
Date: Sun, 19 Jan 2014 14:18:45 +0100
Subject: [PATCH] Fix org-outline-overlay-data marker insertion-type

* org.el: Set the insertion-type of end bound marker of
org-outline-overlay-data 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
---
 lisp/org.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index a53597e477e2..50e652160566 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7191,8 +7191,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))))))))
 
-- 
1.8.5.2

Reply via email to