/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.729 by lute, Thu Jun 16 12:40:00 2005 UTC revision 1.730 by lektu, Thu Jun 16 14:31:44 2005 UTC
# Line 1288  A redo record for ordinary undo maps to Line 1288  A redo record for ordinary undo maps to
1288    
1289  (defvar pending-undo-list nil  (defvar pending-undo-list nil
1290    "Within a run of consecutive undo commands, list remaining to be undone.    "Within a run of consecutive undo commands, list remaining to be undone.
1291  t if we undid all the way to the end of it.")  If t, we undid all the way to the end of it.")
1292    
1293  (defun undo (&optional arg)  (defun undo (&optional arg)
1294    "Undo some previous changes.    "Undo some previous changes.
# Line 1400  Contrary to `undo', this will not redo a Line 1400  Contrary to `undo', this will not redo a
1400    "Non-nil while performing an undo.    "Non-nil while performing an undo.
1401  Some change-hooks test this variable to do something different.")  Some change-hooks test this variable to do something different.")
1402    
1403  (defun undo-more (count)  (defun undo-more (n)
1404    "Undo back N undo-boundaries beyond what was already undone recently.    "Undo back N undo-boundaries beyond what was already undone recently.
1405  Call `undo-start' to get ready to undo recent changes,  Call `undo-start' to get ready to undo recent changes,
1406  then call `undo-more' one or more times to undo them."  then call `undo-more' one or more times to undo them."
1407    (or (listp pending-undo-list)    (or (listp pending-undo-list)
1408        (error (format "No further undo information%s"        (error (concat "No further undo information"
1409                       (if (and transient-mark-mode mark-active)                       (and transient-mark-mode mark-active
1410                           " for region" ""))))                            " for region"))))
1411    (let ((undo-in-progress t))    (let ((undo-in-progress t))
1412      (setq pending-undo-list (primitive-undo count pending-undo-list))      (setq pending-undo-list (primitive-undo n pending-undo-list))
1413      (if (null pending-undo-list)      (if (null pending-undo-list)
1414          (setq pending-undo-list t))))          (setq pending-undo-list t))))
1415    

Legend:
Removed from v.1.729  
changed lines
  Added in v.1.730

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26