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/calc/calc-ext.el | |
| parent | 2bafe3ddd4456773825184b414ad4453972e3a20 (diff) | |
| download | emacs-fe1f8500f81321cfed5a396e773d3efa0920d811.tar.gz | |
(math-defcache): Use defvar for the new variables it creates.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) |