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

[Miles Bader]

Index: emacs/lisp/calc/calc-alg.el
diff -c emacs/lisp/calc/calc-alg.el:1.6 emacs/lisp/calc/calc-alg.el:1.7
*** emacs/lisp/calc/calc-alg.el:1.6     Wed Jan 15 10:16:24 2003
--- emacs/lisp/calc/calc-alg.el Tue Feb  4 07:47:09 2003
***************
*** 1,9 ****
! ;;; calc-alg.el --- algebraic functions for Calc 
  
  ;; 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.
--- 1,9 ----
! ;;; calc-alg.el --- algebraic functions for Calc
  
  ;; 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.
***************
*** 70,76 ****
     (calc-with-default-simplification
      (let ((math-simplify-only nil))
        (calc-modify-simplify-mode arg)
!       (calc-enter-result 1 "expf" 
                         (if (> arg 0)
                             (let ((math-expand-formulas t))
                               (calc-top-n 1))
--- 70,76 ----
     (calc-with-default-simplification
      (let ((math-simplify-only nil))
        (calc-modify-simplify-mode arg)
!       (calc-enter-result 1 "expf"
                         (if (> arg 0)
                             (let ((math-expand-formulas t))
                               (calc-top-n 1))
***************
*** 1257,1263 ****
        (if (Math-objvecp expr)
          (and (eq always 1)
               (list expr 1))
!       (and always 
             (list 1 expr)))))
  
  (defun calcFunc-lin (expr &optional var)
--- 1257,1263 ----
        (if (Math-objvecp expr)
          (and (eq always 1)
               (list expr 1))
!       (and always
             (list 1 expr)))))
  
  (defun calcFunc-lin (expr &optional var)