Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 58142:02ce2ff38c5b | 58143:ad1cd229b771 |
|---|---|
| 1847 (let ((cache-prec (intern (concat (symbol-name name) "-cache-prec"))) | 1847 (let ((cache-prec (intern (concat (symbol-name name) "-cache-prec"))) |
| 1848 (cache-val (intern (concat (symbol-name name) "-cache"))) | 1848 (cache-val (intern (concat (symbol-name name) "-cache"))) |
| 1849 (last-prec (intern (concat (symbol-name name) "-last-prec"))) | 1849 (last-prec (intern (concat (symbol-name name) "-last-prec"))) |
| 1850 (last-val (intern (concat (symbol-name name) "-last")))) | 1850 (last-val (intern (concat (symbol-name name) "-last")))) |
| 1851 (list 'progn | 1851 (list 'progn |
| 1852 (list 'setq cache-prec (if init (math-numdigs (nth 1 init)) -100)) | 1852 (list 'defvar cache-prec (if init (math-numdigs (nth 1 init)) -100)) |
| 1853 (list 'setq cache-val (list 'quote init)) | 1853 (list 'defvar cache-val (list 'quote init)) |
| 1854 (list 'setq last-prec -100) | 1854 (list 'defvar last-prec -100) |
| 1855 (list 'setq last-val nil) | 1855 (list 'defvar last-val nil) |
| 1856 (list 'setq 'math-cache-list | 1856 (list 'setq 'math-cache-list |
| 1857 (list 'cons | 1857 (list 'cons |
| 1858 (list 'quote cache-prec) | 1858 (list 'quote cache-prec) |
| 1859 (list 'cons | 1859 (list 'cons |
| 1860 (list 'quote last-prec) | 1860 (list 'quote last-prec) |