diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-01 21:03:24 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-01 21:03:24 +0000 |
| commit | 93d8d5a8b0edef2a6b764f1d74c46c6a1393f38f (patch) | |
| tree | 155231eb6e036df012e0e155cf37add1d5c3f126 /lisp/calc/calc-ext.el | |
| parent | d5639b35f77763b44e0849823e884ab45fdc0420 (diff) | |
| download | emacs-93d8d5a8b0edef2a6b764f1d74c46c6a1393f38f.tar.gz | |
(calc-inverse, calc-hyperbolic): Add more checks.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 8 |
1 files 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)) |