Function: undo-more

undo-more is a byte-compiled function defined in simple.el.gz.

Signature

(undo-more N)

Documentation

Undo back N undo-boundaries beyond what was already undone recently.

Call undo-start to get ready to undo recent changes, then call undo-more one or more times to undo them.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun undo-more (n)
  "Undo back N undo-boundaries beyond what was already undone recently.
Call `undo-start' to get ready to undo recent changes,
then call `undo-more' one or more times to undo them."
  (or (listp pending-undo-list)
      (user-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))))