Lines Matching refs:car
61 (not (eq found (car entry))))
63 (car entry) found)))
65 (calc-grow-assoc-formula (car entry) found))
66 (car entry))))))))
92 (while (not (or (eq sel (car entry))
95 (car entry) sel)))
97 (calc-grow-assoc-formula (car entry) found)))
98 (car entry))))))
107 (while (and (not (eq sel (car entry)))
109 (setq sel (calc-find-assoc-parent-formula (car entry) sel)))
130 (setq op (assq (car-safe sel) calc-assoc-ops))
131 (memq (car old) (nth index op))
141 (car calc-selection-cache-entry))
155 (assq (car-safe expr) calc-assoc-ops))
158 (if (eq (car-safe expr) 'intv)
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)))
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)))
186 (let* ((parent (calc-find-parent-formula (car entry) sel))
191 (not (eq (car p) sel))))
194 (setq op (assq (car-safe (nth 1 p))
196 (memq (car parent) (nth 2 op))
200 (setq op (assq (car-safe parent) calc-assoc-ops))
202 (car entry) parent)))
204 (memq (car p) (nth 1 op)))
208 (if (Math-primp (car entry))
209 (calc-change-current-selection (car entry))
223 (let* ((parent (calc-find-parent-formula (car entry) sel))
227 (if (eq (car-safe parent) 'intv) (setq p (cdr p)))
228 (while (and (not (eq (car p) sel))
229 (setq prev (car p)
233 (setq op (assq (car-safe prev)
235 (memq (car parent) (nth 1 op))
239 (setq op (assq (car-safe parent) calc-assoc-ops))
241 (car entry) parent)))
243 (memq (car p) (nth 2 op)))
247 (if (Math-primp (car entry))
248 (calc-change-current-selection (car entry))
250 (assq (car (car entry)) calc-assoc-ops))
252 (calc-find-nth-part-rec (car entry))
254 (length (car entry)))))
264 (car p) part)))))
274 (let ((op (assq (car-safe part) calc-assoc-ops)))
279 (memq (car new)
291 (not (calc-find-sub-formula (car expr) part)))
323 (or (null (nth 2 (car p)))
324 (equal (car p) calc-selection-cache-entry)))
385 (setcar entry (calc-encase-atoms (car entry)))
390 (math-compose-expr (car entry) 0))
392 (+ (car (math-stack-value-offset calc-selection-cache-comp))
408 (if (eq (car x) 'intv)
411 (if (or (not (consp (car x)))
412 (equal (car x) '(float 0 0)))
413 (setcar x (list 'cplx (car x) 0))
414 (calc-encase-atoms-rec (car x)))))))
471 (if (nth 2 (car top))
472 (setq sel (if sel t (nth 2 (car top)))))
490 (cons (car expr)
507 (if (nth 2 (car old))
508 (setq val (calc-encase-atoms (car vals))
509 new (cons (calc-replace-sub-formula (car (car old))
510 (nth 2 (car old))
514 (setq new (cons (car vals) new)
524 (while (and old (not (nth 2 (car old))))
527 (while (and (setq more (cdr more)) (not (nth 2 (car more)))))
532 (let ((val (calc-encase-atoms (car vals))))
534 (car (car old))
535 (nth 2 (car old))
546 (if (eq (nth 2 entry) (car entry))
550 (let ((parent (calc-find-parent-formula (car entry) (nth 2 entry)))
554 (cond ((or (memq (car parent) '(* / %))
555 (and (eq (car parent) '^)
558 ((memq (car parent) '(vec calcFunc-min calcFunc-max)))
559 ((and (assq (car parent) calc-tweak-eqn-table)
569 (car entry)
578 (calc-replace-sub-formula (car entry)
585 (calc-replace-sub-formula (car entry)
616 (calc-grow-assoc-formula (car entry) (calc-find-selected-part)))))
624 (calc-push (or (calc-auto-selection entry) (car entry))))))
633 (setcar (nthcdr 2 entry) (and (not (eq sel (car entry))) sel))
646 (expr (car entry))
655 (setq alg (calc-encase-atoms (car alg)))
670 (expr (car entry))
693 (if (eq (car-safe val) 'error)
720 (sel (or (calc-auto-selection entry) (car entry))))
727 (car entry) sel val))
739 (sel (or (calc-auto-selection entry) (car entry))))
752 (car entry) sel val))
764 (expr (car entry))
766 (func (car-safe sel))
769 (car (calc-do-alg-entry ""
800 (and (memq (car-safe (nth 2 sel)) '(+ -))
801 (memq (car-safe alg) '(+ -))))
830 (expr (car entry))
832 (func (car-safe sel))
835 (car (calc-do-alg-entry ""