(undo-more): Add comment explaining the operations on pending-undo-list
authorAlan Mackenzie <acm@muc.de>
Tue, 21 Oct 2008 21:14:04 +0000 (21:14 +0000)
committerAlan Mackenzie <acm@muc.de>
Tue, 21 Oct 2008 21:14:04 +0000 (21:14 +0000)
and buffer-undo-list.

lisp/simple.el

index 7cd321564d98647127761015c837bf06dff1dc07..6ebbd71cdbf024defd79fef5fe570935ac413ced 100644 (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))))