diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2013-03-08 18:31:14 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-08 18:31:14 +0100 |
commit | 50226db65d5cb176f3f5e027d668ef5de4937bde (patch) | |
tree | 539bcf44c9df918f81f92899b4b215d34a67309b | |
parent | c810fd04725c7015c135fb7086f75a143c6f0c6e (diff) | |
download | org-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.el | 11 |
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)) |