From d5639b35f77763b44e0849823e884ab45fdc0420 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 1 Dec 2004 20:57:30 +0000 Subject: [PATCH] (calc-inverse, calc-hyperbolic): Give more thorough messages. --- lisp/ChangeLog | 5 +++++ 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 + + * calc/calc-ext.el (calc-inverse, calc-hyperbolic): + Change message. + 2004-12-01 Juri Linkov * 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 -- 2.39.5