1025 |
Contrary to `undo', this will not redo a previous undo." |
Contrary to `undo', this will not redo a previous undo." |
1026 |
(interactive "*p") |
(interactive "*p") |
1027 |
(let ((undo-no-redo t)) (undo arg))) |
(let ((undo-no-redo t)) (undo arg))) |
1028 |
(define-key ctl-x-map "U" 'undo-only) |
;; Richard said that we should not use C-x <uppercase letter> and I have |
1029 |
|
;; no idea whereas to bind it. Any suggestion welcome. -stef |
1030 |
|
;; (define-key ctl-x-map "U" 'undo-only) |
1031 |
|
|
1032 |
(defvar pending-undo-list nil |
(defvar pending-undo-list nil |
1033 |
"Within a run of consecutive undo commands, list remaining to be undone.") |
"Within a run of consecutive undo commands, list remaining to be undone.") |