diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-11 20:16:15 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-11 20:16:15 +0000 |
| commit | fe1f8500f81321cfed5a396e773d3efa0920d811 (patch) | |
| tree | 97023f877ab5b15790d10dfaa164744acbdc7692 /lisp | |
| parent | 2bafe3ddd4456773825184b414ad4453972e3a20 (diff) | |
| download | emacs-fe1f8500f81321cfed5a396e773d3efa0920d811.tar.gz | |
(math-defcache): Use defvar for the new variables it creates.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calc/calc-ext.el | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47fa7ea6cda..89361c1c11a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-11 Jay Belanger <belanger@truman.edu> + + * calc/calc-ext.el (math-defcache): Use defvar for the new + variables it creates. + 2004-11-11 Lars Hansen <larsh@math.ku.dk> * desktop.el (desktop-buffer-mode-handlers, desktop-after-read-hook, diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index ae6e6001c5e..77057fd4a7a 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1849,10 +1849,10 @@ calc-kill calc-kill-region calc-yank)))) (last-prec (intern (concat (symbol-name name) "-last-prec"))) (last-val (intern (concat (symbol-name name) "-last")))) (list 'progn - (list 'setq cache-prec (if init (math-numdigs (nth 1 init)) -100)) - (list 'setq cache-val (list 'quote init)) - (list 'setq last-prec -100) - (list 'setq last-val nil) + (list 'defvar cache-prec (if init (math-numdigs (nth 1 init)) -100)) + (list 'defvar cache-val (list 'quote init)) + (list 'defvar last-prec -100) + (list 'defvar last-val nil) (list 'setq 'math-cache-list (list 'cons (list 'quote cache-prec) |