# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100204001 0
# Node ID ad1cd229b771d04d6e896c2a3eadc6cdd90f6392
# Parent  02ce2ff38c5b22e1482400928a9004fd66355d8e
(math-defcache):  Use defvar for the new variables it creates.

diff -r 02ce2ff38c5b -r ad1cd229b771 lisp/calc/calc-ext.el
--- 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)