[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.29 emacs/lisp/calc/calc-ext.el:1.30
*** emacs/lisp/calc/calc-ext.el:1.29    Wed Dec  1 20:52:48 2004
--- emacs/lisp/calc/calc-ext.el Wed Dec  1 21:03:24 2004
***************
*** 1318,1324 ****
  
  (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))
--- 1318,1326 ----
  
  (defun calc-inverse (&optional n)
    (interactive "P")
!   (let* ((hyp-flag (if (or
!                         (eq major-mode 'calc-keypad-mode)
!                         (eq major-mode 'calc-trail-mode))
                         (with-current-buffer calc-main-buffer
                           calc-hyperbolic-flag)
                       calc-hyperbolic-flag))
***************
*** 1393,1399 ****
  
  (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))
--- 1395,1403 ----
  
  (defun calc-hyperbolic (&optional n)
    (interactive "P")
!   (let* ((inv-flag (if (or
!                         (eq major-mode 'calc-keypad-mode)
!                         (eq major-mode 'calc-trail-mode))
                         (with-current-buffer calc-main-buffer
                           calc-inverse-flag)
                       calc-inverse-flag))