[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.21 emacs/lisp/calc/calc-ext.el:1.22
*** emacs/lisp/calc/calc-ext.el:1.21    Thu Nov 11 05:50:09 2004
--- emacs/lisp/calc/calc-ext.el Thu Nov 11 20:13:21 2004
***************
*** 1849,1858 ****
        (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 'setq 'math-cache-list
                (list 'cons
                      (list 'quote cache-prec)
--- 1849,1858 ----
        (last-prec (intern (concat (symbol-name name) "-last-prec")))
        (last-val (intern (concat (symbol-name name) "-last"))))
      (list 'progn
!         (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)