From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 1 Dec 2004 21:03:24 +0000 (+0000)
Subject: (calc-inverse, calc-hyperbolic): Add more checks.
X-Git-Tag: ttn-vms-21-2-B4~3480
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93d8d5a8b0edef2a6b764f1d74c46c6a1393f38f;p=emacs.git

(calc-inverse, calc-hyperbolic): Add more checks.
---

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 3347d8f24a7..d308a391a05 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1318,7 +1318,9 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun calc-inverse (&optional n)
   (interactive "P")
-  (let* ((hyp-flag (if (eq major-mode 'calc-keypad-mode)
+  (let* ((hyp-flag (if (or
+                        (eq major-mode 'calc-keypad-mode)
+                        (eq major-mode 'calc-trail-mode))
                        (with-current-buffer calc-main-buffer
                          calc-hyperbolic-flag)
                      calc-hyperbolic-flag))
@@ -1393,7 +1395,9 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun calc-hyperbolic (&optional n)
   (interactive "P")
-  (let* ((inv-flag (if (eq major-mode 'calc-keypad-mode)
+  (let* ((inv-flag (if (or
+                        (eq major-mode 'calc-keypad-mode)
+                        (eq major-mode 'calc-trail-mode))
                        (with-current-buffer calc-main-buffer
                          calc-inverse-flag)
                      calc-inverse-flag))