Function: calc-enter-result

calc-enter-result is a byte-compiled function defined in calc.el.gz.

Signature

(calc-enter-result N PREFIX VALS &optional M)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun calc-enter-result (n prefix vals &optional m)
  (setq calc-aborted-prefix prefix)
  (if (and (consp vals)
	   (or (integerp (car vals))
	       (consp (car vals))))
      (setq vals (mapcar #'calc-normalize vals))
    (setq vals (calc-normalize vals)))
  (or (and (consp vals)
	   (or (integerp (car vals))
	       (consp (car vals))))
      (setq vals (list vals)))
  (if (equal vals '((nil)))
      (setq vals nil))
  (calc-pop-push-record-list n prefix vals m)
  (calc-handle-whys))