Mercurial > emacs
changeset 58570:b651e7e3f5f8
(calc-command-flags, calc-gnuplot-buffer, calc-gnuplot-input)
(math-normalize-a, math-integral-cache): Declare them.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sat, 27 Nov 2004 04:09:24 +0000 |
| parents | cddffb5e15f3 |
| children | 4ca47d70b075 |
| files | lisp/calc/calc-ext.el |
| diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el Sat Nov 27 04:07:22 2004 +0000 +++ b/lisp/calc/calc-ext.el Sat Nov 27 04:09:24 2004 +0000 @@ -1176,6 +1176,9 @@ ;;;; Miscellaneous. +;; calc-command-flags is declared in calc.el +(defvar calc-command-flags) + (defun calc-clear-command-flag (f) (setq calc-command-flags (delq f calc-command-flags))) @@ -1654,7 +1657,8 @@ (defvar calc-gnuplot-process nil) - +(defvar calc-gnuplot-input) +(defvar calc-gnuplot-buffer) (defun calc-gnuplot-alive () (and calc-gnuplot-process @@ -2217,6 +2221,11 @@ (math-normalize (car a)) (error "Can't use multi-valued function in an expression"))))) +;; The variable math-normalize-a is local to math-normalize in calc.el, +;; but is used by math-normalize-nonstandard, which is called by +;; math-normalize. +(defvar math-normalize-a) + (defun math-normalize-nonstandard () (if (consp calc-simplify-mode) (progn @@ -2656,6 +2665,10 @@ (eq (car-safe (symbol-value (nth 2 expr))) 'special-const)) (memq (nth 2 expr) '(var-inf var-uinf var-nan))))) +;; The variable math-integral-cache is originally declared in calcalg2.el, +;; but is set by math-defintegral and math-definitegral2. +(defvar math-integral-cache) + (defmacro math-defintegral (funcs &rest code) (setq math-integral-cache nil) (append '(progn)