Mercurial > emacs

diff lisp/calc/calc-ext.el @ 58714:53295bbc3259

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-inverse, calc-hyperbolic): Give more thorough messages.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 01 Dec 2004 20:52:48 +0000
parents 5f04991ece3d
children 599d383ee37d
line wrap: on
line diff
--- 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