Function: calc-option

calc-option is an interactive and byte-compiled function defined in calc-ext.el.gz.

Signature

(calc-option &optional N)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
(defun calc-option (&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))
         (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))
         (msg
          (cond
           ((and hyp-flag inv-flag) "Option Inverse Hyperbolic...")
           (hyp-flag "Option Hyperbolic...")
           (inv-flag "Option Inverse...")
           (t "Option..."))))
    (calc-fancy-prefix 'calc-option-flag msg n)))