diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-27 04:13:08 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-27 04:13:08 +0000 |
| commit | 79d2746f47d96a071510319a84e3891d5cd4547a (patch) | |
| tree | dcb079aa79511fcdecac3ea13aab033cdecadac9 /lisp/calc/calcalg2.el | |
| parent | 388df0be56c59f062a57d437c02c60ee21201b72 (diff) | |
| download | emacs-79d2746f47d96a071510319a84e3891d5cd4547a.tar.gz | |
(math-expr-parts, math-try-solve-sign, math-solve-b, math-int-factors)
(math-double-roots): Declare them (for real this time).
Diffstat (limited to 'lisp/calc/calcalg2.el')
| -rw-r--r-- | lisp/calc/calcalg2.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el index b7c837c7b4f..e1198bab8b3 100644 --- a/lisp/calc/calcalg2.el +++ b/lisp/calc/calcalg2.el @@ -3,8 +3,7 @@ ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> -;; Maintainers: D. Goel <deego@gnufans.org> -;; Colin Walters <walters@debian.org> +;; Maintainer: Jay Belanger <belanger@truman.edu> ;; This file is part of GNU Emacs. @@ -1319,6 +1318,7 @@ ;; The variable math-expr-parts is local to math-expr-rational-in, ;; but is used by math-expr-rational-in-rec +(defvar math-expr-parts) (defun math-expr-rational-in (expr) (let ((math-expr-parts nil)) @@ -2279,6 +2279,7 @@ ;; math-decompose-poly, but used by math-solve-poly-funny-powers.) (defvar math-solve-lhs) (defvar math-solve-rhs) +(defvar math-try-solve-sign) (defun math-try-solve-for (math-solve-lhs math-solve-rhs &optional math-try-solve-sign no-poly) @@ -2565,6 +2566,7 @@ ;;; This deals with negative, fractional, and symbolic powers of "x". ;; The variable math-solve-b is local to math-decompose-poly, ;; but is used by math-solve-poly-funny-powers. +(defvar math-solve-b) (defun math-solve-poly-funny-powers (sub-rhs) ; uses "t1", "t2" (setq math-t1 math-solve-lhs) @@ -2798,6 +2800,8 @@ ;; The variables math-int-scale, math-int-factors and math-double-roots ;; are local to math-poly-all-roots, but are used by math-poly-integer-root. (defvar math-int-scale) +(defvar math-int-factors) +(defvar math-double-roots) (defun math-poly-all-roots (var p &optional math-factoring) (catch 'ouch @@ -3136,6 +3140,7 @@ ;; The variable math-solve-simplifying is local to math-solve-system ;; and math-solve-system-rec, but is used by math-solve-system-subst. +(defvar math-solve-simplifying) (defun math-solve-system (exprs math-solve-vars math-solve-full) (setq exprs (mapcar 'list (if (Math-vectorp exprs) |