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))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
