Function: calc-dispatch
calc-dispatch is an autoloaded, interactive and byte-compiled function
defined in calc.el.gz.
Signature
(calc-dispatch &optional ARG)
Documentation
Invoke the GNU Emacs Calculator. See M-x calc-dispatch-help (calc-dispatch-help) for details.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch)
;;;###autoload
(defun calc-dispatch (&optional _arg)
"Invoke the GNU Emacs Calculator. See \\[calc-dispatch-help] for details."
(interactive)
; (sit-for echo-keystrokes)
(ignore-errors ; look for other keys bound to calc-dispatch
(let ((keys (this-command-keys)))
(unless (or (not (stringp keys))
(string-match "\\`\C-u\\|\\`\e[-0-9#]\\|`[\M--\M-0-\M-9]" keys)
(eq (lookup-key calc-dispatch-map keys) 'calc-same-interface))
(when (and (string-match "\\`[\C-@-\C-_]" keys)
(symbolp
(lookup-key calc-dispatch-map (substring keys 0 1))))
(define-key calc-dispatch-map (substring keys 0 1) nil))
(define-key calc-dispatch-map keys 'calc-same-interface))))
(calc-do-dispatch))