Explorar o código

Merge branch 'maint'

Carsten Dominik %!s(int64=12) %!d(string=hai) anos
pai
achega
c5f3702cf6
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      lisp/org-src.el

+ 2 - 0
lisp/org-src.el

@@ -757,6 +757,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
 	(delete-region beg (max beg end))
 	(unless (string-match "\\`[ \t]*\\'" code)
 	  (insert code))
+	;; Make sure the overlay stays in place
+	(when (eq context 'save) (move-overlay ovl beg (point)))
 	(goto-char beg)
 	(if single (just-one-space))))
     (if (memq t (mapcar (lambda (overlay)