Function: math-factor-expr

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

Signature

(math-factor-expr EXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-poly.el.gz
(defun math-factor-expr (expr)
  (cond ((eq math-factored-vars t) expr)
	((or (memq (car-safe expr) '(* / ^ neg))
	     (assq (car-safe expr) calc-tweak-eqn-table))
	 (cons (car expr) (mapcar 'math-factor-expr (cdr expr))))
	((memq (car-safe expr) '(+ -))
	 (let* ((math-factored-vars math-factored-vars)
		(y (catch 'factor (let ((math-fact-expr expr))
                                    (math-factor-expr-part expr)))))
	   (if y
	       (math-factor-expr y)
	     expr)))
	(t expr)))