[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.28 emacs/lisp/calc/calc-ext.el:1.29
*** emacs/lisp/calc/calc-ext.el:1.28    Tue Nov 30 17:06:07 2004
--- emacs/lisp/calc/calc-ext.el Wed Dec  1 20:52:48 2004
***************
*** 1318,1324 ****
  
  (defun calc-inverse (&optional n)
    (interactive "P")
!   (calc-fancy-prefix 'calc-inverse-flag "Inverse..." n))
  
  (defconst calc-fancy-prefix-map
    (let ((map (make-sparse-keymap)))
--- 1318,1331 ----
  
  (defun calc-inverse (&optional n)
    (interactive "P")
!   (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,1392 ****
  
  (defun calc-hyperbolic (&optional n)
    (interactive "P")
!   (calc-fancy-prefix 'calc-hyperbolic-flag "Hyperbolic..." n))
  
  (defun calc-hyperbolic-func ()
    (save-excursion
--- 1393,1406 ----
  
  (defun calc-hyperbolic (&optional n)
    (interactive "P")
!   (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