[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el |
Date: |
Fri, 26 Nov 2004 23:30:39 -0500 |
Index: emacs/lisp/calc/calcalg2.el
diff -c emacs/lisp/calc/calcalg2.el:1.11 emacs/lisp/calc/calcalg2.el:1.12
*** emacs/lisp/calc/calcalg2.el:1.11 Mon Nov 15 06:16:21 2004
--- emacs/lisp/calc/calcalg2.el Sat Nov 27 04:13:08 2004
***************
*** 3,10 ****
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden>
! ;; Colin Walters <address@hidden>
;; This file is part of GNU Emacs.
--- 3,9 ----
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainer: Jay Belanger <address@hidden>
;; This file is part of GNU Emacs.
***************
*** 1319,1324 ****
--- 1318,1324 ----
;; 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,2284 ****
--- 2279,2285 ----
;; 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,2570 ****
--- 2566,2572 ----
;;; 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,2803 ****
--- 2800,2807 ----
;; 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,3141 ****
--- 3140,3146 ----
;; 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)