(math-csc-raw): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3eabad53563bcc5bf00e7b20066cb2025278fecb..465bf57612bba3a394e3f9c3e4023cf1f788f1d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,36 @@
+2005-02-15  Jay Belanger  <belanger@truman.edu>
+
+       * calc/calc-alg.el: Add simplification rules for calcFunc-sec,
+       calcFunc-csc, calcFunc-cot, calcFunc-sech, calcFunc-csch and
+       calcFunc-coth.
+       (math-simplify-sqrt): Add simplifications.
+
+       * calc/calc-arith.el (math-real-if-arg-functions): Add functions
+       to list.
+
+       * calc/calc-ext.el: Add functions to autoloads.
+
+       * calc/calc-math.el (calc-sec, calc-csc, calc-cot, calc-sech)
+       (calc-csch, calc-coth, calcFunc-sec, calcFunc-csc, calcFunc-cot)
+       (calcFunc-sech, calcFunc-csch, calcFunc-coth, math-sec-raw)
+       (math-csc-raw, math-cot-raw): New functions.
+
+       * calc/calc-rules.el (calc-DistribRules, calc-NegateRules): Add rules.
+
+       * calc/calc-undo.el (calc-handle-undo): Remove prefix from
+       the variable name in a message.
+
+       * calc/calc-units.el: Add simplification rules for calcFunc-sec,
+       calcFunc-csc, calcFunc-cot.
+
+       * calc/calcalg2.el: Add derivative and integration rules for
+       calcFunc-sec, calcFunc-csc, calcFunc-cot, calcFunc-sech,
+       calcFunc-csch, calcFunc-coth.
+       (math-do-integral-methods): Add to checks for when to use
+       substitutions.
+
+       * calc/calccomp.el (math-eqn-special-funcs): Add functions to list.
+
 2005-02-15  Lute Kamstra  <lute@gnu.org>
 
        * emacs-lisp/lisp-mode.el (lisp-mode-variables): Add

diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index 2cfe81fdd65647435df1166799a3d9894753ce59..d2c66c34d4917b9c3f2b29e51c794008d1fd905c 100644 (file)
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -1070,7 +1070,7 @@
                      (math-div-float (math-mul-float (car sc) ch) d)
                      (math-div-float (math-mul-float (cdr sc) sh) d)))))
        ((eq (car x) 'polar)
-        (math-polar (math-sec-raw (math-complex x))))
+        (math-polar (math-csc-raw (math-complex x))))
        (t
         (let ((sn (math-sin-raw x)))
            (if (eq sn 0)