mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(undo-more): Add comment explaining the operations on pending-undo-list

Browse Source 
and buffer-undo-list.
This commit is contained in:
Alan Mackenzie 2008-10-21 21:14:04 +00:00
parent 0182609c22
commit b553f6858c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
View File

@ -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))))