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

[Miles Bader]

Index: emacs/lisp/calc/calcalg2.el
diff -c emacs/lisp/calc/calcalg2.el:1.6 emacs/lisp/calc/calcalg2.el:1.7
*** emacs/lisp/calc/calcalg2.el:1.6     Wed Jan 15 10:16:25 2003
--- emacs/lisp/calc/calcalg2.el Tue Feb  4 07:47:10 2003
***************
*** 3,9 ****
  ;; 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>
! ;; Maintainers: D. Goel <address@hidden>
  ;;              Colin Walters <address@hidden>
  
  ;; This file is part of GNU Emacs.
***************
*** 1292,1298 ****
      (unwind-protect
        (let ((p math-integral-cache)
              cur-record)
!         (display-buffer (get-buffer-create "*Integral Cache*")) 
          (set-buffer (get-buffer "*Integral Cache*"))
          (erase-buffer)
          (while p
--- 1292,1298 ----
      (unwind-protect
        (let ((p math-integral-cache)
              cur-record)
!         (display-buffer (get-buffer-create "*Integral Cache*"))
          (set-buffer (get-buffer "*Integral Cache*"))
          (erase-buffer)
          (while p
***************
*** 2116,2122 ****
                                       (setq t2 (math-simplify
                                                 (math-sub (car t1)
                                                           (math-mul high 2)))
!                                            t3 (math-simplify 
                                                 (math-sub (car t1)
                                                           (math-mul low
                                                                     2))))))
--- 2116,2122 ----
                                       (setq t2 (math-simplify
                                                 (math-sub (car t1)
                                                           (math-mul high 2)))
!                                            t3 (math-simplify
                                                 (math-sub (car t1)
                                                           (math-mul low
                                                                     2))))))
***************
*** 3095,3101 ****
                    (mapcar (function (lambda (x) (cons 'vec (cdr x)))) solns)
                  (mapcar (function (lambda (x) (cons 'vec x))) eqn-list)))))
        (math-normalize
!        (cons 'vec 
             (if solns
                 (mapcar (function (lambda (x) (cons 'calcFunc-eq x))) solns)
               (mapcar 'car eqn-list)))))))
--- 3095,3101 ----
                    (mapcar (function (lambda (x) (cons 'vec (cdr x)))) solns)
                  (mapcar (function (lambda (x) (cons 'vec x))) eqn-list)))))
        (math-normalize
!        (cons 'vec
             (if solns
                 (mapcar (function (lambda (x) (cons 'calcFunc-eq x))) solns)
               (mapcar 'car eqn-list)))))))