Re: bug#12905: 24.2.50; org: edit source block causes data loss

[Bastien <bzg@altern.org>]

[-- Attachment #1: Type: text/plain, Size: 334 bytes --]

Hi Bernt,

thanks for chasing this down.  I tried to install emacs-23.2 but 
it does not compile on my machine.

Does this patch fixes the problem for you?

My guess is that (copy-marker nil t) returns an error on emacs-23.2.
It's a weird sexp anyway, make-marker and set-marker-insertion-type 
are cleaner IMO.

Thanks for testing,


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-src.el.patch --]
[-- Type: text/x-patch, Size: 741 bytes --]

diff --git a/lisp/org-src.el b/lisp/org-src.el
index f91da19..d2c3e19 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -228,12 +228,11 @@ buffer."
 	 (full-info (org-babel-get-src-block-info 'light))
 	 (org-mode-p (derived-mode-p 'org-mode)) ;; derived-mode-p is reflexive
 	 (beg (make-marker))
-	 ;; Move marker with inserted text for case when src block is
-	 ;; just one empty line, i.e. beg == end.
-	 (end (copy-marker nil t))
+	 (end (make-marker))
 	 (allow-write-back-p (null code))
 	 block-nindent total-nindent ovl lang lang-f single lfmt buffer msg
 	 begline markline markcol line col transmitted-variables)
+    (set-marker-insertion-type end t)
     (if (not info)
 	nil
       (setq beg (move-marker beg (nth 0 info))

[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
 Bastien