Lines Matching defs:fnp
147 ;; The variables calc-fnp-op and calc-fnp-num are local to
150 (defvar calc-fnp-op)
151 (defvar calc-fnp-num)
153 (defun calc-find-nth-part (expr calc-fnp-num)
156 (let (calc-fnp-op)
159 (and (>= calc-fnp-num 1) (<= calc-fnp-num 2) (nth (1+ calc-fnp-num) expr))
160 (and (not (Math-primp expr)) (>= calc-fnp-num 1) (< calc-fnp-num (length expr))
161 (nth calc-fnp-num expr)))))
164 (or (if (and (setq calc-fnp-op (assq (car-safe (nth 1 expr)) calc-assoc-ops))
165 (memq (car expr) (nth 1 calc-fnp-op)))
167 (and (= (setq calc-fnp-num (1- calc-fnp-num)) 0)
169 (if (and (setq calc-fnp-op (assq (car-safe (nth 2 expr)) calc-assoc-ops))
170 (memq (car expr) (nth 2 calc-fnp-op)))
172 (and (= (setq calc-fnp-num (1- calc-fnp-num)) 0)
251 (let (calc-fnp-op (calc-fnp-num 0))
253 (- 1 calc-fnp-num))