(math-expr-parts, math-try-solve-sign, math-solve-b, math-int-factors)

(math-double-roots): Declare them (for real this time).

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)