Function: calc-undo

calc-undo is an autoloaded, interactive and byte-compiled function defined in calc-undo.el.gz.

Signature

(calc-undo N)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-undo.el.gz
;;; Undo.

;;;###autoload
(defun calc-undo (n)
  (interactive "p")
  (when calc-executing-macro
    (error "Use C-x e, not X, to run a keyboard macro that uses Undo"))
  (if (<= n 0)
      (if (< n 0)
	  (calc-redo (- n))
	(calc-last-args 1))
    (calc-wrapper
     (when (null (nthcdr (1- n) calc-undo-list))
       (error "No further undo information available"))
     (setq calc-undo-list
	   (prog1
	       (nthcdr n calc-undo-list)
	     (let ((saved-stack-top calc-stack-top))
	       (let ((calc-stack-top 0))
		 (calc-handle-undos calc-undo-list n))
	       (setq calc-stack-top saved-stack-top))))
     (message "Undo!"))))