[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/calc/calcalg2.el
diff -c emacs/lisp/calc/calcalg2.el:1.7.4.3 emacs/lisp/calc/calcalg2.el:1.7.4.4
*** emacs/lisp/calc/calcalg2.el:1.7.4.3 Fri Nov 19 06:55:07 2004
--- emacs/lisp/calc/calcalg2.el Wed Dec  8 05:02:17 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.
  
***************
*** 28,40 ****
  ;;; Code:
  
  ;; This file is autoloaded from calc-ext.el.
- (require 'calc-ext)
  
  (require 'calc-macs)
  
- (defun calc-Need-calc-alg-2 () nil)
- 
- 
  (defun calc-derivative (var num)
    (interactive "sDifferentiate with respect to: \np")
    (calc-slow-wrapper
--- 27,36 ----
  ;;; Code:
  
  ;; This file is autoloaded from calc-ext.el.
  
+ (require 'calc-ext)
  (require 'calc-macs)
  
  (defun calc-derivative (var num)
    (interactive "sDifferentiate with respect to: \np")
    (calc-slow-wrapper
***************
*** 1319,1324 ****
--- 1315,1321 ----
  
  ;; 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 ****
--- 2276,2282 ----
  ;; 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 ****
--- 2563,2569 ----
  ;;; 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 ****
--- 2797,2804 ----
  ;; 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 ****
--- 3137,3143 ----
  
  ;; 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)
***************
*** 3578,3582 ****
--- 3580,3586 ----
                    (math-normalize accum))))
        (list 'calcFunc-taylor expr var num))))
  
+ (provide 'calcalg2)
+ 
  ;;; arch-tag: f2932ec8-dd63-418b-a542-11a644b9d4c4
  ;;; calcalg2.el ends here