mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(calc-undo-length): New variable.

Browse Source 
(calc-quit): Truncate rather than eliminate `calc-undo-list'.
This commit is contained in:
Jay Belanger 2009-07-21 18:56:35 +00:00
parent bd8aaa36da
commit b159e5b047
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/calc/calc.el
View File

@ -417,6 +417,12 @@ in normal mode."
:group 'calc
:type 'boolean)
(defcustom calc-undo-length
100
"The number of undo steps that will be preserved when Calc is quit."
:group 'calc
:type 'integer)
(defvar calc-bug-address "jay.p.belanger@gmail.com"
"Address of the maintainer of Calc, for use by `report-calc-bug'.")
@ -1485,7 +1491,14 @@ commands given here will actually operate on the *Calculator* stack."
(unless (eq major-mode 'calc-mode)
(calc-create-buffer))
(run-hooks 'calc-end-hook)
(setq calc-undo-list nil calc-redo-list nil)
(if (integerp calc-undo-length)
(cond
((= calc-undo-length 0)
(setq calc-undo-list nil calc-redo-list nil))
((> calc-undo-length 0)
(let ((tail (nthcdr (1- calc-undo-length) calc-undo-list)))
(if tail (setcdr tail nil)))
(setq calc-redo-list nil))))
(mapc (function (lambda (v) (set-default v (symbol-value v))))
calc-local-var-list)
(let ((buf (current-buffer))