Function: calculator-put-value

calculator-put-value is a byte-compiled function defined in calculator.el.gz.

Signature

(calculator-put-value VAL)

Documentation

Paste VAL as if entered.

Used by calculator-paste and get-register.

Source Code

;; Defined in /usr/src/emacs/lisp/calculator.el.gz
(defun calculator-put-value (val)
  "Paste VAL as if entered.
Used by `calculator-paste' and `get-register'."
  (when (and (numberp val)
             ;; (not calculator-curnum)
             (or calculator-display-fragile
                 (not (numberp (car calculator-stack)))))
    (calculator-clear-fragile)
    (setq calculator-curnum
          (let ((calculator-displayer "%S")
                (calculator-radix-grouping-mode nil)
                (calculator-output-radix calculator-input-radix))
            (calculator-number-to-string val)))
    (calculator-update-display)))