Mercurial > emacs

changeset 58716:599d383ee37d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-inverse, calc-hyperbolic): Add more checks.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 01 Dec 2004 21:03:24 +0000
parents 93065e5b01e4
children bd9d0c90fd28
files lisp/calc/calc-ext.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))