Mercurial > emacs
diff lisp/calc/calcalg2.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | f4d68f97221e |
| children | 695cf19ef79e d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/calc/calcalg2.el Tue Feb 04 12:29:42 2003 +0000 +++ b/lisp/calc/calcalg2.el Tue Feb 04 13:24:35 2003 +0000 @@ -3,7 +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> +;; Maintainers: D. Goel <deego@gnufans.org> ;; Colin Walters <walters@debian.org> ;; This file is part of GNU Emacs. @@ -1292,7 +1292,7 @@ (unwind-protect (let ((p math-integral-cache) cur-record) - (display-buffer (get-buffer-create "*Integral Cache*")) + (display-buffer (get-buffer-create "*Integral Cache*")) (set-buffer (get-buffer "*Integral Cache*")) (erase-buffer) (while p @@ -2116,7 +2116,7 @@ (setq t2 (math-simplify (math-sub (car t1) (math-mul high 2))) - t3 (math-simplify + t3 (math-simplify (math-sub (car t1) (math-mul low 2)))))) @@ -3095,7 +3095,7 @@ (mapcar (function (lambda (x) (cons 'vec (cdr x)))) solns) (mapcar (function (lambda (x) (cons 'vec x))) eqn-list))))) (math-normalize - (cons 'vec + (cons 'vec (if solns (mapcar (function (lambda (x) (cons 'calcFunc-eq x))) solns) (mapcar 'car eqn-list)))))))