# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053530976 0
# Node ID f80e017c6464ffaead86c619dfb0400167247ef2
# Parent  deff9a0011bcf7448d2c176df82bc20382448e5d
(ctl-x-map): Remove the C-x U binding added recently.

diff -r deff9a0011bc -r f80e017c6464 lisp/simple.el
--- a/lisp/simple.el	Wed May 21 12:59:28 2003 +0000
+++ b/lisp/simple.el	Wed May 21 15:29:36 2003 +0000
@@ -1025,7 +1025,9 @@
 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.")