[PATCH] Save undo history after org-edit-src-save.

[PATCH] Save undo history after org-edit-src-save.

[Peter Danenberg]

[-- Attachment #1: Type: text/plain, Size: 133 bytes --]

It's been irritating me that after saving an edit buffer, the undo
history disappears; the attached patch restores the undo history.

[-- Attachment #2: org-edit-src-save-with-undo-history.patch --]
[-- Type: text/plain, Size: 842 bytes --]

diff --git a/lisp/org-src.el b/lisp/org-src.el
index 8cdf81e..e85e04e 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -661,7 +661,7 @@ the language, a switch telling if the content should be in a single line."
       (setq org-edit-src-saved-temp-window-config nil))))
 
 (defmacro org-src-in-org-buffer (&rest body)
-  `(let ((p (point)) (m (mark)) msg)
+  `(let ((p (point)) (m (mark)) (ul buffer-undo-list) msg)
      (save-window-excursion
        (org-edit-src-exit 'save)
        ,@body
@@ -670,6 +670,7 @@ the language, a switch telling if the content should be in a single line."
 	   (let ((org-src-window-setup 'current-window))
 	     (org-edit-src-code 'save))
 	 (org-edit-src-code 'save)))
+     (setq buffer-undo-list ul)
      (push-mark m 'nomessage)
      (goto-char (min p (point-max)))
      (message (or msg ""))))

Re: [PATCH] Save undo history after org-edit-src-save.

[Bastien]

Hi Peter,

Peter Danenberg <pcd@roxygen.org> writes:

> It's been irritating me that after saving an edit buffer, the undo
> history disappears; the attached patch restores the undo history.

Applied.

Next time, please provide a full patch (with an Emacs ChangeLog 
message) with git format-patch.

Thanks,

-- 
 Bastien

Re: [PATCH] Save undo history after org-edit-src-save.

[Peter Danenberg]

Thanks, Bastien! Just found the "Preferred way of submitting patches"
document.

Quoth Bastien on Prickle-Prickle, the 24th of Chaos:
> Hi Peter,
> 
> Peter Danenberg <pcd@roxygen.org> writes:
> 
> > It's been irritating me that after saving an edit buffer, the undo
> > history disappears; the attached patch restores the undo history.
> 
> Applied.
> 
> Next time, please provide a full patch (with an Emacs ChangeLog 
> message) with git format-patch.
> 
> Thanks,
> 
> -- 
>  Bastien
>