(calc-inverse, calc-hyperbolic): Give more thorough messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0750bd924049e61db983a6d60d4aa9ce596dc649..e39db555779ecc34769764da1f81fd08eb9f9988 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-01  Jay Belanger  <belanger@truman.edu>
+
+       * calc/calc-ext.el (calc-inverse, calc-hyperbolic):
+       Change message.
+
 2004-12-01  Juri Linkov  <juri@jurta.org>
 
        * progmodes/prolog.el (prolog-mode-variables):

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 3aede349e5e57d06c7293b32b38cbe728d174d07..3347d8f24a78e7bc42acf8b780b49a129cdcb409 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1318,7 +1318,14 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun calc-inverse (&optional n)
   (interactive "P")
-  (calc-fancy-prefix 'calc-inverse-flag "Inverse..." n))
+  (let* ((hyp-flag (if (eq major-mode 'calc-keypad-mode)
+                       (with-current-buffer calc-main-buffer
+                         calc-hyperbolic-flag)
+                     calc-hyperbolic-flag))
+         (msg (if hyp-flag 
+                 "Inverse Hyperbolic..."
+               "Inverse...")))
+    (calc-fancy-prefix 'calc-inverse-flag msg n)))
 
 (defconst calc-fancy-prefix-map
   (let ((map (make-sparse-keymap)))
@@ -1386,7 +1393,14 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun calc-hyperbolic (&optional n)
   (interactive "P")
-  (calc-fancy-prefix 'calc-hyperbolic-flag "Hyperbolic..." n))
+  (let* ((inv-flag (if (eq major-mode 'calc-keypad-mode)
+                       (with-current-buffer calc-main-buffer
+                         calc-inverse-flag)
+                     calc-inverse-flag))
+         (msg (if inv-flag 
+                  "Inverse Hyperbolic..."
+                "Hyperbolic...")))
+    (calc-fancy-prefix 'calc-hyperbolic-flag msg n)))
 
 (defun calc-hyperbolic-func ()
   (save-excursion