Function: math-mul-thru

math-mul-thru is an autoloaded and byte-compiled function defined in calc-poly.el.gz.

Signature

(math-mul-thru LHS RHS)

Documentation

Multiply two terms, expanding out products of sums.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-poly.el.gz
(defun math-mul-thru (lhs rhs)
  "Multiply two terms, expanding out products of sums."
  (if (memq (car-safe lhs) '(+ -))
      (list (car lhs)
	    (math-mul-thru (nth 1 lhs) rhs)
	    (math-mul-thru (nth 2 lhs) rhs))
    (if (memq (car-safe rhs) '(+ -))
	(list (car rhs)
	      (math-mul-thru lhs (nth 1 rhs))
	      (math-mul-thru lhs (nth 2 rhs)))
      (math-mul lhs rhs))))