Function: calc-find-sub-formula

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

Signature

(calc-find-sub-formula EXPR PART)

Source Code

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