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 <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):
......
......@@ -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
......
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