# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1101935004 0
# Node ID 599d383ee37d6808c73cdbb594fdc6e1d658a4cc
# Parent  93065e5b01e481b9292a2fa221eca6b9f00af75d
(calc-inverse, calc-hyperbolic): Add more checks.

diff -r 93065e5b01e4 -r 599d383ee37d lisp/calc/calc-ext.el
--- a/lisp/calc/calc-ext.el	Wed Dec 01 20:57:30 2004 +0000
+++ b/lisp/calc/calc-ext.el	Wed Dec 01 21:03:24 2004 +0000
@@ -1318,7 +1318,9 @@
 
 (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 @@
 
 (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))