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)) |
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)) |