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

[Richard M. Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.559 emacs/lisp/simple.el:1.560
*** emacs/lisp/simple.el:1.559  Thu Jul 18 10:57:46 2002
--- emacs/lisp/simple.el        Tue Jul 23 15:25:27 2002
***************
*** 932,938 ****
    (let ((modified (buffer-modified-p))
        (recent-save (recent-auto-save-p)))
      (or (eq (selected-window) (minibuffer-window))
!       (message "Undo!"))
      (unless (eq last-command 'undo)
        (if (if transient-mark-mode mark-active (and arg (not (numberp arg))))
          (undo-start (region-beginning) (region-end))
--- 932,940 ----
    (let ((modified (buffer-modified-p))
        (recent-save (recent-auto-save-p)))
      (or (eq (selected-window) (minibuffer-window))
!       (message (if (and transient-mark-mode mark-active) 
!                    "Undo in region!"
!                  "Undo!")))
      (unless (eq last-command 'undo)
        (if (if transient-mark-mode mark-active (and arg (not (numberp arg))))
          (undo-start (region-beginning) (region-end))
***************
*** 979,985 ****
  Call `undo-start' to get ready to undo recent changes,
  then call `undo-more' one or more times to undo them."
    (or pending-undo-list
!       (error "No further undo information"))
    (let ((undo-in-progress t))
      (setq pending-undo-list (primitive-undo count pending-undo-list))))
  
--- 981,989 ----
  Call `undo-start' to get ready to undo recent changes,
  then call `undo-more' one or more times to undo them."
    (or pending-undo-list
!       (error (format "No further undo information%s" 
!                    (if (and transient-mark-mode mark-active) 
!                        " for region" ""))))
    (let ((undo-in-progress t))
      (setq pending-undo-list (primitive-undo count pending-undo-list))))