Well seen,
here is the new patch, working as well.

Thanks
--
Sylvain


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

> Sylvain Chouleur <sylvain.choul...@gmail.com> writes:
>
> > But beg and end are positions, not markers, I am wrong?
>
> BEG and END are positions, but `copy-marker' accepts an integer as its
> first argument. See its docstring.
>
>
> Regards,
>
> --
> Nicolas Goaziou
>
From a956097b88088422bbbf1aa06dc3921cebbe7ad9 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.
---
 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