diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calc/calc-ext.el | 18 |
2 files changed, 21 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0750bd92404..e39db555779 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-01 Jay Belanger <belanger@truman.edu> + + * calc/calc-ext.el (calc-inverse, calc-hyperbolic): + Change message. + 2004-12-01 Juri Linkov <juri@jurta.org> * progmodes/prolog.el (prolog-mode-variables): diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 3aede349e5e..3347d8f24a7 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1318,7 +1318,14 @@ calc-kill calc-kill-region calc-yank)))) (defun calc-inverse (&optional n) (interactive "P") - (calc-fancy-prefix 'calc-inverse-flag "Inverse..." n)) + (let* ((hyp-flag (if (eq major-mode 'calc-keypad-mode) + (with-current-buffer calc-main-buffer + calc-hyperbolic-flag) + calc-hyperbolic-flag)) + (msg (if hyp-flag + "Inverse Hyperbolic..." + "Inverse..."))) + (calc-fancy-prefix 'calc-inverse-flag msg n))) (defconst calc-fancy-prefix-map (let ((map (make-sparse-keymap))) @@ -1386,7 +1393,14 @@ calc-kill calc-kill-region calc-yank)))) (defun calc-hyperbolic (&optional n) (interactive "P") - (calc-fancy-prefix 'calc-hyperbolic-flag "Hyperbolic..." n)) + (let* ((inv-flag (if (eq major-mode 'calc-keypad-mode) + (with-current-buffer calc-main-buffer + calc-inverse-flag) + calc-inverse-flag)) + (msg (if inv-flag + "Inverse Hyperbolic..." + "Hyperbolic..."))) + (calc-fancy-prefix 'calc-hyperbolic-flag msg n))) (defun calc-hyperbolic-func () (save-excursion |