Commit d5639b35 authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-inverse, calc-hyperbolic): Give more thorough messages.

parent d8059b03
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):
......@@ -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
(msg (if hyp-flag
"Inverse Hyperbolic..."
(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
(msg (if inv-flag
"Inverse Hyperbolic..."
(calc-fancy-prefix 'calc-hyperbolic-flag msg n)))
(defun calc-hyperbolic-func ()
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