Mercurial > emacs
changeset 63487:eb15f8c9bc85
(undo-more): Don't use `format' on `error' arguments. Improve
argument/docstring consistency.
(pending-undo-list): Doc fix.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 16 Jun 2005 14:31:44 +0000 |
| parents | cdde24265c63 |
| children | 31f53cf94303 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Jun 16 12:40:54 2005 +0000 +++ b/lisp/simple.el Thu Jun 16 14:31:44 2005 +0000 @@ -1288,7 +1288,7 @@ (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.") +If t, we undid all the way to the end of it.") (defun undo (&optional arg) "Undo some previous changes. @@ -1400,16 +1400,16 @@ "Non-nil while performing an undo. Some change-hooks test this variable to do something different.") -(defun undo-more (count) +(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 (format "No further undo information%s" - (if (and transient-mark-mode mark-active) - " for region" "")))) + (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 count pending-undo-list)) + (setq pending-undo-list (primitive-undo n pending-undo-list)) (if (null pending-undo-list) (setq pending-undo-list t))))