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. |
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 |
|
|