/[emacs]/emacs/lisp/calc/calc-ext.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-ext.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by jpb, Wed Dec 1 20:52:48 2004 UTC revision 1.30 by jpb, Wed Dec 1 21:03:24 2004 UTC
# Line 1318  calc-kill calc-kill-region calc-yank)))) Line 1318  calc-kill calc-kill-region calc-yank))))
1318    
1319  (defun calc-inverse (&optional n)  (defun calc-inverse (&optional n)
1320    (interactive "P")    (interactive "P")
1321    (let* ((hyp-flag (if (eq major-mode 'calc-keypad-mode)    (let* ((hyp-flag (if (or
1322                            (eq major-mode 'calc-keypad-mode)
1323                            (eq major-mode 'calc-trail-mode))
1324                         (with-current-buffer calc-main-buffer                         (with-current-buffer calc-main-buffer
1325                           calc-hyperbolic-flag)                           calc-hyperbolic-flag)
1326                       calc-hyperbolic-flag))                       calc-hyperbolic-flag))
# Line 1393  calc-kill calc-kill-region calc-yank)))) Line 1395  calc-kill calc-kill-region calc-yank))))
1395    
1396  (defun calc-hyperbolic (&optional n)  (defun calc-hyperbolic (&optional n)
1397    (interactive "P")    (interactive "P")
1398    (let* ((inv-flag (if (eq major-mode 'calc-keypad-mode)    (let* ((inv-flag (if (or
1399                            (eq major-mode 'calc-keypad-mode)
1400                            (eq major-mode 'calc-trail-mode))
1401                         (with-current-buffer calc-main-buffer                         (with-current-buffer calc-main-buffer
1402                           calc-inverse-flag)                           calc-inverse-flag)
1403                       calc-inverse-flag))                       calc-inverse-flag))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26