# HG changeset patch
# User Alan Mackenzie <acm@muc.de>
# Date 1224623644 0
# Node ID 91e50ad51eece2ebe97acfead1423b8c86428a04
# Parent  847cf809659f1753a58670c303712c763fb15014
(undo-more): Add comment explaining the operations on pending-undo-list
and buffer-undo-list.

diff -r 847cf809659f -r 91e50ad51eec lisp/simple.el
--- a/lisp/simple.el	Tue Oct 21 21:12:33 2008 +0000
+++ b/lisp/simple.el	Tue Oct 21 21:14:04 2008 +0000
@@ -1725,6 +1725,9 @@
       (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))))