|
@@ -753,14 +753,14 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
|
|
|
(kill-buffer buffer))
|
|
|
(goto-char beg)
|
|
|
(when allow-write-back-p
|
|
|
- (let ((buffer-undo-list t))
|
|
|
- (delete-region beg (max beg end))
|
|
|
- (unless (string-match "\\`[ \t]*\\'" code)
|
|
|
- (insert code))
|
|
|
- ;; Make sure the overlay stays in place
|
|
|
+ (undo-boundary)
|
|
|
+ (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))))
|
|
|
+ (goto-char beg)
|
|
|
+ (if single (just-one-space)))
|
|
|
(if (memq t (mapcar (lambda (overlay)
|
|
|
(eq (overlay-get overlay 'invisible)
|
|
|
'org-hide-block))
|