Mercurial > emacs
comparison lisp/calc/calc-lang.el @ 58571:4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sat, 27 Nov 2004 04:10:15 +0000 |
| parents | 9ceda393e263 |
| children | 10224395a3c2 |
comparison
equal
deleted
inserted
replaced
| 58570:b651e7e3f5f8 | 58571:4ca47d70b075 |
|---|---|
| 254 ( nint . calcFunc-round ) | 254 ( nint . calcFunc-round ) |
| 255 ( real . calcFunc-re ))) | 255 ( real . calcFunc-re ))) |
| 256 | 256 |
| 257 (put 'fortran 'math-input-filter 'calc-input-case-filter) | 257 (put 'fortran 'math-input-filter 'calc-input-case-filter) |
| 258 (put 'fortran 'math-output-filter 'calc-output-case-filter) | 258 (put 'fortran 'math-output-filter 'calc-output-case-filter) |
| 259 | |
| 260 ;; The next few variables are local to math-read-exprs in calc-aent.el | |
| 261 ;; and math-read-expr in calc-ext.el, but are set in functions they call. | |
| 262 | |
| 263 (defvar math-exp-token) | |
| 264 (defvar math-expr-data) | |
| 265 (defvar math-exp-old-pos) | |
| 259 | 266 |
| 260 (defvar math-parsing-fortran-vector nil) | 267 (defvar math-parsing-fortran-vector nil) |
| 261 (defun math-parse-fortran-vector (op) | 268 (defun math-parse-fortran-vector (op) |
| 262 (let ((math-parsing-fortran-vector '(end . "\000"))) | 269 (let ((math-parsing-fortran-vector '(end . "\000"))) |
| 263 (prog1 | 270 (prog1 |