From fe1f8500f81321cfed5a396e773d3efa0920d811 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 11 Nov 2004 20:16:15 +0000 Subject: [PATCH] (math-defcache): Use defvar for the new variables it creates. --- lisp/ChangeLog | 5 +++++ 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 + + * calc/calc-ext.el (math-defcache): Use defvar for the new + variables it creates. + 2004-11-11 Lars Hansen * 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) -- 2.39.5