Mercurial > emacs
diff lisp/calc/calc-ext.el @ 58143:ad1cd229b771
(math-defcache): Use defvar for the new variables it creates.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 11 Nov 2004 20:13:21 +0000 |
| parents | 349b9aab8e82 |
| children | 4a12728aef72 cb7f41387eb3 |
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el Thu Nov 11 19:04:18 2004 +0000 +++ b/lisp/calc/calc-ext.el Thu Nov 11 20:13:21 2004 +0000 @@ -1849,10 +1849,10 @@ (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)