(math-defcache): Use defvar for the new variables it creates.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47fa7ea6cdaa473631be83fac09c2ed2d95aa3a9..89361c1c11aa5572e0e89eb46af4189774230991 100644 (file)
--- 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 ae6e6001c5ef66dcab731e529c5e4d308956f619..77057fd4a7aceea18c50b6cbc80cfd7964744b7c 100644 (file)
--- 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)