Function: calc-find-nth-part

calc-find-nth-part is a byte-compiled function defined in calc-sel.el.gz.

Signature

(calc-find-nth-part EXPR FNP-NUM)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-sel.el.gz
(defun calc-find-nth-part (expr fnp-num)
  (let ((calc-fnp-num fnp-num))
  (if (and calc-assoc-selections
	   (assq (car-safe expr) calc-assoc-ops))
      (let (calc-fnp-op)
	(calc-find-nth-part-rec expr))
    (if (eq (car-safe expr) 'intv)
	(and (>= calc-fnp-num 1) (<= calc-fnp-num 2) (nth (1+ calc-fnp-num) expr))
      (and (not (Math-primp expr)) (>= calc-fnp-num 1) (< calc-fnp-num (length expr))
	   (nth calc-fnp-num expr))))))