Function: calc-find-parent-formula

calc-find-parent-formula is an autoloaded and byte-compiled function defined in calc-sel.el.gz.

Signature

(calc-find-parent-formula EXPR PART)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-sel.el.gz
(defun calc-find-parent-formula (expr part)
  (cond ((eq expr part) t)
	((Math-primp expr) nil)
	(t
	 (let ((p expr) res)
	   (while (and (setq p (cdr p))
		       (not (setq res (calc-find-parent-formula
				       (car p) part)))))
	   (and p
		(if (eq res t) expr res))))))