[elpa] externals/rec-mode bb07fa5 47/98: rec-mode: support for undo in navigation mode.

[Stefan Monnier]

branch: externals/rec-mode
commit bb07fa526de400dd8457ba078ea5e1a2c5d5ec31
Author: Jose E. Marchesi <jemarch@gnu.org>
Commit: Antoine Kalmbach <ane@iki.fi>

    rec-mode: support for undo in navigation mode.
---
 etc/rec-mode.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index f975c93..3efc644 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -169,6 +169,7 @@ hidden by default in navigation mode.")
     (define-key map "ss" 'rec-cmd-select-sex)
     (define-key map "\C-ct" 'rec-find-type)
 ;;    (define-key map [remap move-beginning-of-line] 
'rec-cmd-beginning-of-line)
+    (define-key map [remap undo] 'rec-cmd-undo)
     (define-key map "#" 'rec-cmd-count)
     (define-key map (kbd "RET") 'rec-cmd-jump)
     (define-key map (kbd "TAB") 'rec-cmd-goto-next-field)
@@ -1768,6 +1769,12 @@ the file.  Interactive version."
   (unless rec-editing
     (rec-show-record)))
 
+(defun rec-cmd-undo ()
+  "Undo a change in the buffer when in navigation mode."
+  (interactive)
+  (let ((buffer-read-only nil))
+    (undo)))
+
 (defun rec-cmd-jump-back ()
   "Undo the previous jump"
   (interactive)