[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Thu, 16 Jun 2005 10:31:44 -0400 |
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] Changes to emacs/lisp/simple.el, Kim F . Storm, 2005/06/03
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Luc Teirlinck, 2005/06/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F . Storm, 2005/06/05
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Lute Kamstra, 2005/06/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el,
Juanma Barranquero <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/23
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/24
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/29