/[emacs]/emacs/lisp/calc/calc-ext.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-ext.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by jpb, Tue Nov 23 05:56:40 2004 UTC revision 1.26 by jpb, Sat Nov 27 04:09:24 2004 UTC
# Line 1176  calc-kill calc-kill-region calc-yank)))) Line 1176  calc-kill calc-kill-region calc-yank))))
1176    
1177  ;;;; Miscellaneous.  ;;;; Miscellaneous.
1178    
1179    ;; calc-command-flags is declared in calc.el
1180    (defvar calc-command-flags)
1181    
1182  (defun calc-clear-command-flag (f)  (defun calc-clear-command-flag (f)
1183    (setq calc-command-flags (delq f calc-command-flags)))    (setq calc-command-flags (delq f calc-command-flags)))
1184    
# Line 1654  calc-kill calc-kill-region calc-yank)))) Line 1657  calc-kill calc-kill-region calc-yank))))
1657    
1658    
1659  (defvar calc-gnuplot-process nil)  (defvar calc-gnuplot-process nil)
1660    (defvar calc-gnuplot-input)
1661    (defvar calc-gnuplot-buffer)
1662    
1663  (defun calc-gnuplot-alive ()  (defun calc-gnuplot-alive ()
1664    (and calc-gnuplot-process    (and calc-gnuplot-process
# Line 2217  calc-kill calc-kill-region calc-yank)))) Line 2221  calc-kill calc-kill-region calc-yank))))
2221               (math-normalize (car a))               (math-normalize (car a))
2222             (error "Can't use multi-valued function in an expression")))))             (error "Can't use multi-valued function in an expression")))))
2223    
2224    ;; The variable math-normalize-a is local to math-normalize in calc.el,
2225    ;; but is used by math-normalize-nonstandard, which is called by
2226    ;; math-normalize.
2227    (defvar math-normalize-a)
2228    
2229  (defun math-normalize-nonstandard ()  (defun math-normalize-nonstandard ()
2230    (if (consp calc-simplify-mode)    (if (consp calc-simplify-mode)
2231        (progn        (progn
# Line 2656  calc-kill calc-kill-region calc-yank)))) Line 2665  calc-kill calc-kill-region calc-yank))))
2665                  (eq (car-safe (symbol-value (nth 2 expr))) 'special-const))                  (eq (car-safe (symbol-value (nth 2 expr))) 'special-const))
2666             (memq (nth 2 expr) '(var-inf var-uinf var-nan)))))             (memq (nth 2 expr) '(var-inf var-uinf var-nan)))))
2667    
2668    ;; The variable math-integral-cache is originally declared in calcalg2.el,
2669    ;; but is set by math-defintegral and math-definitegral2.
2670    (defvar math-integral-cache)
2671    
2672  (defmacro math-defintegral (funcs &rest code)  (defmacro math-defintegral (funcs &rest code)
2673    (setq math-integral-cache nil)    (setq math-integral-cache nil)
2674    (append '(progn)    (append '(progn)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26