From 6ec3030266816be78f613880d663896c2efba797 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 15 Feb 2005 19:49:51 +0000 Subject: [PATCH] (math-csc-raw): Fix typo. --- lisp/ChangeLog | 33 +++++++++++++++++++++++++++++++++ lisp/calc/calc-math.el | 2 +- 2 files changed, 34 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3eabad5356..465bf57612 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,36 @@ +2005-02-15 Jay Belanger + + * 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 * emacs-lisp/lisp-mode.el (lisp-mode-variables): Add diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index 2cfe81fdd6..d2c66c34d4 100644 --- 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) -- 2.20.1