Function: calculator-digit

calculator-digit is an interactive and byte-compiled function defined in calculator.el.gz.

Signature

(calculator-digit)

Documentation

Enter a single digit.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calculator.el.gz
(defun calculator-digit ()
  "Enter a single digit."
  (interactive)
  (let ((inp (aref (calculator-last-input) 0)))
    (when (and (or calculator-display-fragile
                   (not (numberp (car calculator-stack))))
               (<= inp (pcase calculator-input-radix
                         ('nil ?9) ('bin ?1) ('oct ?7) (_ 999))))
      (calculator-clear-fragile)
      (setq calculator-curnum
            (concat (if (equal calculator-curnum "0") ""
                        calculator-curnum)
                    (list (upcase inp))))
      (calculator-update-display))))