浏览代码

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.
Aaron Ecay 12 年之前
父节点
当前提交
50226db65d
共有 1 个文件被更改,包括 6 次插入5 次删除
  1. 6 5
      lisp/org-src.el

+ 6 - 5
lisp/org-src.el

@@ -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))