# HG changeset patch # User Jay Belanger # Date 1101528564 0 # Node ID b651e7e3f5f81a9df40381ca78abe3ae2ad4556e # Parent cddffb5e15f3e412eb141989dde0cf4777164e2b (calc-command-flags, calc-gnuplot-buffer, calc-gnuplot-input) (math-normalize-a, math-integral-cache): Declare them. diff -r cddffb5e15f3 -r b651e7e3f5f8 lisp/calc/calc-ext.el --- 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)