|
@@ -737,11 +737,12 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
|
|
(kill-buffer buffer))
|
|
(kill-buffer buffer))
|
|
(goto-char beg)
|
|
(goto-char beg)
|
|
(when allow-write-back-p
|
|
(when allow-write-back-p
|
|
- (delete-region beg (max beg end))
|
|
|
|
- (unless (string-match "\\`[ \t]*\\'" code)
|
|
|
|
- (insert code))
|
|
|
|
- (goto-char beg)
|
|
|
|
- (if single (just-one-space)))
|
|
|
|
|
|
+ (let ((buffer-undo-list t))
|
|
|
|
+ (delete-region beg (max beg end))
|
|
|
|
+ (unless (string-match "\\`[ \t]*\\'" code)
|
|
|
|
+ (insert code))
|
|
|
|
+ (goto-char beg)
|
|
|
|
+ (if single (just-one-space))))
|
|
(if (memq t (mapcar (lambda (overlay)
|
|
(if (memq t (mapcar (lambda (overlay)
|
|
(eq (overlay-get overlay 'invisible)
|
|
(eq (overlay-get overlay 'invisible)
|
|
'org-hide-block))
|
|
'org-hide-block))
|