Procházet zdrojové kódy

Merge branch 'maint'

Carsten Dominik před 12 roky
rodič
revize
c5f3702cf6
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  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)