From 50226db65d5cb176f3f5e027d668ef5de4937bde Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Fri, 8 Mar 2013 18:31:14 +0100 Subject: [PATCH] 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. --- lisp/org-src.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index 81c0054f8..73e075186 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))