[Emacs-diffs] Changes to emacs/lisp/simple.el

[Stefan Monnier]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.603 emacs/lisp/simple.el:1.604
*** emacs/lisp/simple.el:1.603  Mon May 19 11:47:14 2003
--- emacs/lisp/simple.el        Wed May 21 11:29:36 2003
***************
*** 1025,1031 ****
  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)
  
  (defvar pending-undo-list nil
    "Within a run of consecutive undo commands, list remaining to be undone.")
--- 1025,1033 ----
  Contrary to `undo', this will not redo a previous undo."
    (interactive "*p")
    (let ((undo-no-redo t)) (undo arg)))
! ;; 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.")