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

[Juanma Barranquero]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.729 emacs/lisp/simple.el:1.730
*** emacs/lisp/simple.el:1.729  Thu Jun 16 12:40:00 2005
--- emacs/lisp/simple.el        Thu Jun 16 14:31:44 2005
***************
*** 1288,1294 ****
  
  (defvar pending-undo-list nil
    "Within a run of consecutive undo commands, list remaining to be undone.
! t if we undid all the way to the end of it.")
  
  (defun undo (&optional arg)
    "Undo some previous changes.
--- 1288,1294 ----
  
  (defvar pending-undo-list nil
    "Within a run of consecutive undo commands, list remaining to be undone.
! If t, we undid all the way to the end of it.")
  
  (defun undo (&optional arg)
    "Undo some previous changes.
***************
*** 1400,1415 ****
    "Non-nil while performing an undo.
  Some change-hooks test this variable to do something different.")
  
! (defun undo-more (count)
    "Undo back N undo-boundaries beyond what was already undone recently.
  Call `undo-start' to get ready to undo recent changes,
  then call `undo-more' one or more times to undo them."
    (or (listp 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))
      (if (null pending-undo-list)
        (setq pending-undo-list t))))
  
--- 1400,1415 ----
    "Non-nil while performing an undo.
  Some change-hooks test this variable to do something different.")
  
! (defun undo-more (n)
    "Undo back N undo-boundaries beyond what was already undone recently.
  Call `undo-start' to get ready to undo recent changes,
  then call `undo-more' one or more times to undo them."
    (or (listp pending-undo-list)
!       (error (concat "No further undo information"
!                      (and transient-mark-mode mark-active
!                           " for region"))))
    (let ((undo-in-progress t))
!     (setq pending-undo-list (primitive-undo n pending-undo-list))
      (if (null pending-undo-list)
        (setq pending-undo-list t))))