Function: math-prod-first-term

math-prod-first-term is a byte-compiled function defined in calccomp.el.gz.

Signature

(math-prod-first-term X)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calccomp.el.gz
(defun math-prod-first-term (x)
  (while (eq (car-safe x) '*)
    (setq x (nth 1 x)))
  x)