# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1101934368 0
# Node ID 53295bbc3259028f400b12e945ec48c519648bb6
# Parent  75d6f143fced294a9ef788ad86caa999054162f6
(calc-inverse, calc-hyperbolic): Give more thorough messages.

diff -r 75d6f143fced -r 53295bbc3259 lisp/calc/calc-ext.el
--- a/lisp/calc/calc-ext.el	Wed Dec 01 19:48:52 2004 +0000
+++ b/lisp/calc/calc-ext.el	Wed Dec 01 20:52:48 2004 +0000
@@ -1318,7 +1318,14 @@
 
 (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 @@
 
 (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