Commit 93d8d5a8 authored by Jay Belanger's avatar Jay Belanger
Browse files

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

parent d5639b35
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment