(ctl-x-map): Remove the C-x U binding added recently.

diff --git a/lisp/simple.el b/lisp/simple.el
index 64b56d5dfbb2691352da600d35377b8cc51921c0..c0796bd6a81c2b6328be4ab3b41c8451b69c56cd 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1025,7 +1025,9 @@ A numeric argument serves as a repeat count.
 Contrary to `undo', this will not redo a previous undo."
   (interactive "*p")
   (let ((undo-no-redo t)) (undo arg)))
-(define-key ctl-x-map "U" 'undo-only)
+;; Richard said that we should not use C-x <uppercase letter> and I have
+;; no idea whereas to bind it.  Any suggestion welcome.  -stef
+;; (define-key ctl-x-map "U" 'undo-only)
 
 (defvar pending-undo-list nil
   "Within a run of consecutive undo commands, list remaining to be undone.")