andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-command-flags, calc-gnuplot-buffer, calc-gnuplot-input)

Browse source 
(math-normalize-a, math-integral-cache): Declare them.
This commit is contained in:
Jay Belanger 2004-11-27 04:09:24 +00:00
parent d37f2979c6
commit 90b4409729
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/calc/calc-ext.el
View file

@ -1176,6 +1176,9 @@ calc-kill calc-kill-region calc-yank))))
;;;; 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 @@ calc-kill calc-kill-region calc-yank))))
(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 @@ calc-kill calc-kill-region calc-yank))))
(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 @@ calc-kill calc-kill-region calc-yank))))
(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)