summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAaron Ecay <aaronecay@gmail.com>2013-03-08 18:31:14 +0100
committerBastien Guerry <bzg@altern.org>2013-03-08 18:31:14 +0100
commit50226db65d5cb176f3f5e027d668ef5de4937bde (patch)
tree539bcf44c9df918f81f92899b4b215d34a67309b
parentc810fd04725c7015c135fb7086f75a143c6f0c6e (diff)
downloadorg-mode-50226db65d5cb176f3f5e027d668ef5de4937bde.tar.gz
org-src.el (org-edit-src-exit): Don't modify the undo list when inserting the code
* org-src.el (org-edit-src-exit): Don't modify the undo list when inserting the code.
-rw-r--r--lisp/org-src.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 81c0054..73e0751 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -737,11 +737,12 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
(kill-buffer buffer))
(goto-char beg)
(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)
(eq (overlay-get overlay 'invisible)
'org-hide-block))