aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-05-21 15:29:36 +0000
committerStefan Monnier2003-05-21 15:29:36 +0000
commit46e14f67f75e4d55e516652fbd49b1abd6e36543 (patch)
tree5b46d8d851f10f29b1a461eb1867729b67f8bf08
parent55597d707a09bbe63359472f7b8800f666d88268 (diff)
downloademacs-46e14f67f75e4d55e516652fbd49b1abd6e36543.tar.gz
emacs-46e14f67f75e4d55e516652fbd49b1abd6e36543.zip
(ctl-x-map): Remove the C-x U binding added recently.
-rw-r--r--lisp/simple.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 64b56d5dfbb..c0796bd6a81 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1025,7 +1025,9 @@ A numeric argument serves as a repeat count.
1025Contrary to `undo', this will not redo a previous undo." 1025Contrary to `undo', this will not redo a previous undo."
1026 (interactive "*p") 1026 (interactive "*p")
1027 (let ((undo-no-redo t)) (undo arg))) 1027 (let ((undo-no-redo t)) (undo arg)))
1028(define-key ctl-x-map "U" 'undo-only) 1028;; 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)
1029 1031
1030(defvar pending-undo-list nil 1032(defvar pending-undo-list nil
1031 "Within a run of consecutive undo commands, list remaining to be undone.") 1033 "Within a run of consecutive undo commands, list remaining to be undone.")