Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 58716:599d383ee37d
(calc-inverse, calc-hyperbolic): Add more checks.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 01 Dec 2004 21:03:24 +0000 |
| parents | 53295bbc3259 |
| children | d598b3594142 f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58715:93065e5b01e4 | 58716:599d383ee37d |
|---|---|
| 1316 (message "Floating-point precision is %d digits" calc-internal-prec))) | 1316 (message "Floating-point precision is %d digits" calc-internal-prec))) |
| 1317 | 1317 |
| 1318 | 1318 |
| 1319 (defun calc-inverse (&optional n) | 1319 (defun calc-inverse (&optional n) |
| 1320 (interactive "P") | 1320 (interactive "P") |
| 1321 (let* ((hyp-flag (if (eq major-mode 'calc-keypad-mode) | 1321 (let* ((hyp-flag (if (or |
| 1322 (eq major-mode 'calc-keypad-mode) | |
| 1323 (eq major-mode 'calc-trail-mode)) | |
| 1322 (with-current-buffer calc-main-buffer | 1324 (with-current-buffer calc-main-buffer |
| 1323 calc-hyperbolic-flag) | 1325 calc-hyperbolic-flag) |
| 1324 calc-hyperbolic-flag)) | 1326 calc-hyperbolic-flag)) |
| 1325 (msg (if hyp-flag | 1327 (msg (if hyp-flag |
| 1326 "Inverse Hyperbolic..." | 1328 "Inverse Hyperbolic..." |
| 1391 (defun calc-is-inverse () | 1393 (defun calc-is-inverse () |
| 1392 calc-inverse-flag) | 1394 calc-inverse-flag) |
| 1393 | 1395 |
| 1394 (defun calc-hyperbolic (&optional n) | 1396 (defun calc-hyperbolic (&optional n) |
| 1395 (interactive "P") | 1397 (interactive "P") |
| 1396 (let* ((inv-flag (if (eq major-mode 'calc-keypad-mode) | 1398 (let* ((inv-flag (if (or |
| 1399 (eq major-mode 'calc-keypad-mode) | |
| 1400 (eq major-mode 'calc-trail-mode)) | |
| 1397 (with-current-buffer calc-main-buffer | 1401 (with-current-buffer calc-main-buffer |
| 1398 calc-inverse-flag) | 1402 calc-inverse-flag) |
| 1399 calc-inverse-flag)) | 1403 calc-inverse-flag)) |
| 1400 (msg (if inv-flag | 1404 (msg (if inv-flag |
| 1401 "Inverse Hyperbolic..." | 1405 "Inverse Hyperbolic..." |