From 93d8d5a8b0edef2a6b764f1d74c46c6a1393f38f Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 1 Dec 2004 21:03:24 +0000 Subject: [PATCH] (calc-inverse, calc-hyperbolic): Add more checks. --- lisp/calc/calc-ext.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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)) -- 2.39.5