projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0182609
)
(undo-more): Add comment explaining the operations on pending-undo-list
author
Alan Mackenzie
<acm@muc.de>
Tue, 21 Oct 2008 21:14:04 +0000
(21:14 +0000)
committer
Alan Mackenzie
<acm@muc.de>
Tue, 21 Oct 2008 21:14:04 +0000
(21:14 +0000)
and buffer-undo-list.
lisp/simple.el
patch
|
blob
|
history
diff --git
a/lisp/simple.el
b/lisp/simple.el
index 7cd321564d98647127761015c837bf06dff1dc07..6ebbd71cdbf024defd79fef5fe570935ac413ced 100644
(file)
--- a/
lisp/simple.el
+++ b/
lisp/simple.el
@@
-1725,6
+1725,9
@@
then call `undo-more' one or more times to undo them."
(error (concat "No further undo information"
(and undo-in-region " for region"))))
(let ((undo-in-progress t))
+ ;; Note: The following, while pulling elements off
+ ;; `pending-undo-list' will call primitive change functions which
+ ;; will push more elements onto `buffer-undo-list'.
(setq pending-undo-list (primitive-undo n pending-undo-list))
(if (null pending-undo-list)
(setq pending-undo-list t))))