Function: math-expr-contains

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

Signature

(math-expr-contains EXPR THING)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-alg.el.gz
(defun math-expr-contains (expr thing)
  (cond ((equal expr thing) 1)
	((Math-primp expr) nil)
	(t
	 (while (and (setq expr (cdr expr))
		     (not (math-expr-contains (car expr) thing))))
	 expr)))