Searched refs:car (Results 1 - 25 of 787) sorted by relevance

1234567891011>>

/macosx-10.10/emacs-93/emacs/leim/quail/
H A Dviqr.el43 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
/macosx-10.10/emacs-93/emacs/lisp/emacs-lisp/
H A Dfind-gc.el79 (string-lessp (car x) (car y))))))
96 (error "No find-gc-subrs-callers for %s" (car find-gc-unsafe-list)))
98 (or (assq (car used) find-gc-unsafe-list)
99 (memq (car used) find-gc-noreturn-list)
101 (push (cons (car used) func) find-gc-unsafe-list)
102 (trace-unsafe (car used))))))
125 (message "Compiling %s..." (car files))
128 (car files)))
130 (insert-file-contents (concat "/tmp/esrc/" (car file
[all...]
H A Dassoc.el41 (function (lambda (a b) (equal (car a) key))))))
45 "Makes a list of a cons cell containing car of KEY and cdr of VALUE.
52 (car (car alist)))
82 (value (setcar alist (car elem)))
110 ((cdr (car copy)))
112 ((car (car copy)))
128 (let ((keycar (car keylist))
130 (valcar (car valuelis
[all...]
H A Dtq.el57 (defun tq-queue (tq) (car tq))
58 (defun tq-process (tq) (car (cdr tq)))
65 (defun tq-queue-head-question (tq) (car (car (tq-queue tq))))
68 (defun tq-queue-head-regexp (tq) (car (cdr (car (tq-queue tq)))))
70 (defun tq-queue-head-closure (tq) (car (cdr (cdr (car (tq-queue tq))))))
73 (defun tq-queue-head-fn (tq) (cdr (cdr (cdr (car (tq-queue tq))))))
101 (setcar tq (cdr (car t
[all...]
H A Dring.el53 (and (consp x) (integerp (car x))
54 (consp (cdr x)) (integerp (car (cdr x)))
66 (hd (car ring))
67 (ln (car (cdr ring))))
85 (car (cdr ring)))
98 (zerop (car (cdr ring))))
107 (hd (car ring))
108 (ln (car (cdr ring))))
116 (hd (car ring))
117 (ln (car (cd
[all...]
H A Dcl.el137 Analogous to (prog1 (car PLACE) (setf PLACE (cdr PLACE))), though more
141 (list 'car (list 'prog1 place (list 'setq place (list 'cdr place))))
347 (if (or (cdr cl-rest) (nlistp cl-x) (nlistp (car cl-rest)))
349 (let ((cl-res nil) (cl-y (car cl-rest)))
359 (defalias 'first 'car)
366 (car (cdr (cdr x))))
397 "Return the `car' of the `car' of the `car' of X."
398 (car (ca
[all...]
H A Dbyte-run.el49 (setq d (car decl))
50 (cond ((and (consp d) (eq (car d) 'indent))
51 (put macro 'lisp-indent-function (car (cdr d))))
52 ((and (consp d) (eq (car d) 'debug))
53 (put macro 'edebug-form-spec (car (cdr d))))
54 ((and (consp d) (eq (car d) 'doc-string))
55 (put macro 'doc-string-elt (car (cdr d))))
149 (car (read-from-string (read-string "Obsoletion replacement: ")))))
175 (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body)))))
203 (car (las
[all...]
H A Dshadow.el94 (setq dir (directory-file-name (file-truename (or (car path) "."))))
102 (and (car path)
103 (not (string= (car path) "."))
104 (message "Ignoring redundant directory %s" (car path))))
107 (setq dir (directory-file-name (or (car path) ".")))
118 (setq file (car curr-files))
217 (if (or (file-exists-p (expand-file-name "simple.el" (car tem)))
218 (file-exists-p (expand-file-name "simple.el.gz" (car tem))))
219 (setq toplevs (cons (car tem) toplevs)))
226 (let ((break (car toplev
[all...]
H A Dbyte-opt.el74 ;; we see a form like (car foo) we can from then on assume that
79 ;; to call car with a null argument.) A better approach might
106 ;; (funcall fn (car list))
172 ;; ;; (car (cons A B)) -> (prog1 A B)
173 ;; (disassemble (lambda (x) (car (cons (foo) 42))))
178 ;; ;; (car (list A B ...)) -> (prog1 A B ...)
179 ;; (disassemble (lambda (x) (car (list (foo) 42 (bar)))))
201 (if (integerp (setq c (car arg)))
206 (car (cdr (cdr arg))))
208 (car (cd
[all...]
/macosx-10.10/Security-57031.1.35/Security/include/security_cryptkit/
H A DengineNSA127.c107 int i, j, car; local
138 car = 0;
140 prod = a0 * mult + b->n[i] + car;
142 car = prod/D;
144 prod = a1 * mult + b->n[i] + car;
146 car = prod/D;
148 prod = a2 * mult + b->n[i] + car;
150 car = prod/D;
152 prod = a3 * mult + b->n[i] + car;
154 car
[all...]
/macosx-10.10/Security-57031.1.35/Security/libsecurity_cryptkit/lib/
H A DengineNSA127.c107 int i, j, car; local
138 car = 0;
140 prod = a0 * mult + b->n[i] + car;
142 car = prod/D;
144 prod = a1 * mult + b->n[i] + car;
146 car = prod/D;
148 prod = a2 * mult + b->n[i] + car;
150 car = prod/D;
152 prod = a3 * mult + b->n[i] + car;
154 car
[all...]
/macosx-10.10/emacs-93/emacs/lisp/obsolete/
H A Dprofile.el120 (let* ((calls (car (cdr entry)))
123 (/ (+ (car timec)
129 (car entry) calls (car timec) (cdr timec))
150 (let ((sec (+ (car dest)
151 (* 65536 (- (car now) (car prev)))
154 (- (car (cddr now)) (car (cddr prev))))))
169 (profile-add-time (cdr (cdr (assq (car profil
[all...]
/macosx-10.10/emacs-93/emacs/lisp/gnus/
H A Dgnus-range.el43 (car list))
49 (if (consp (car list))
60 (setq list1 (delq (car list2) list1))
74 (r2 (car range2))
75 (min1 (if (numberp r1) r1 (car r1)))
77 (min2 (if (numberp r2) r2 (car r2)))
113 (cond ((= (car list1) (car list2))
116 ((< (car list1) (car list
[all...]
/macosx-10.10/CPANInternal-159.1/Perl4-CoreLibs-0.003/lib/
H A Dbigint.pl185 $car = 0;
187 last unless @y || $car;
188 $x -= 1e5 if $car = (($x += shift(@y) + $car) >= 1e5) ? 1 : 0;
191 last unless $car;
192 $y -= 1e5 if $car = (($y += $car) >= 1e5) ? 1 : 0;
194 (@x, @y, $car);
221 ($car, $cty) = (0, 0);
223 $prod = $x * $y + $prod[$cty] + $car;
[all...]
/macosx-10.10/emacs-93/emacs/lisp/calc/
H A Dcalc-macs.el67 (and (not (memq (car a) '(bigpos bigneg)))
68 (if (eq (car a) 'float)
75 (eq (car a) 'bigneg)
80 (eq (car a) 'bigpos)
85 (or (eq (car a) 'bigneg)
86 (and (not (eq (car a) 'bigpos))
87 (if (memq (car a) '(frac float))
94 (and (consp a) (or (eq (car a) 'neg)
95 (and (memq (car a) '(* /))
101 (or (eq (car
[all...]
H A Dcalc-undo.el61 (calc-handle-undo (car cl))
67 (let ((action (car list)))
69 ((eq (car action) 'push)
71 ((eq (car action) 'pop)
73 ((eq (car action) 'set)
77 ((eq (car action) 'store)
88 ((eq (car action) 'eval)
116 (calc-handle-undo (car cl))
132 (let ((action (car list)))
133 (if (eq (car actio
[all...]
H A Dcalc-sel.el61 (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 entr
[all...]
/macosx-10.10/emacs-93/emacs/lisp/
H A Dsb-image.el102 (insert (car (car ia)))
105 (length (car (car ia))))
106 (insert (car (car ia)) "\t" (format "%s" (cdr (car ia))) "\n"))
/macosx-10.10/emacs-93/emacs/lisp/international/
H A Dja-dic-utl.el83 (>= (length (car heads)) min-len))
87 (>= (length (car tail)) min-len))
88 (setq l (cons (concat (car heads) (car tail)) l)))
119 (signal (car err) (cdr err)))))
137 (if (and (eq (car elts) 'japanese-jisx0208)
145 (if (consp (car entry))
146 (setq entry (copy-sequence (car entry)))
151 (let ((break (max (- len (car skkdic-postfix)) 1))
157 (consp (car entr
[all...]
H A Dja-dic-cnv.el127 (setq kana (car (car l)) candidates (cdr (car l)))
130 (insert " " (car candidates))
131 (setq entry (lookup-nested-alist (car candidates)
133 (if (consp (car entry))
134 (setcar entry (cons kana (car entry)))
135 (set-nested-alist (car candidates) (list kana)
154 (insert " " (car candidates))
155 (let ((entry (lookup-nested-alist (car candidate
[all...]
/macosx-10.10/emacs-93/emacs/lisp/progmodes/
H A Dcc-bytecomp.el104 (if (not (boundp (car p)))
106 (eval `(defvar ,(car p)))
107 (set (car p) (intern (concat "cc-bytecomp-ignore-var:"
108 (symbol-name (car p)))))
111 (car p))))
115 (let ((fun (car (car p)))
116 (temp-macro (car (cdr (car p)))))
130 (let ((sym (car (ca
[all...]
H A Debnf-otz.el124 (let ((rule (car prod-list)))
161 (setq elt (car seq))
177 (setq elt (car seq))
186 (car header)
249 (setq new (cons (ebnf-optimize1 (car syntax-list)) new)
277 (nlist (car hlist))
292 (if (car nl)
306 (eq (ebnf-node-kind (car nlist))
328 (nlist (car hlist))
331 (let ((elt (car hlis
[all...]
H A Doctave-hlp.el67 (Info-find-node (car octave-help-files) "Top")
70 (while (setq entry (car alist))
71 (if (string-match key (car entry))
88 (setq file (car files))
127 (setq entry (car alist))
129 (cons (car entry) (car entry)))
/macosx-10.10/emacs-93/emacs/lisp/eshell/
H A Dem-xtra.el54 (apply 'substitute (car args) (cadr args) :test 'equal
59 (apply 'count (car args) (cadr args) :test 'equal
64 (apply 'mismatch (car args) (cadr args) :test 'equal
69 (apply 'union (car args) (cadr args) :test 'equal
74 (apply 'intersection (car args) (cadr args) :test 'equal
79 (apply 'set-difference (car args) (cadr args) :test 'equal
84 (apply 'set-exclusive-or (car args) (cadr args) :test 'equal
H A Desh-cmd.el353 (eshell-parse-arguments (car command) (cdr command))
366 (if (or (not (car sep-terms))
367 (string= (car sep-terms) ";"))
369 (eshell-parse-pipeline cmd (not (car sep-terms))))
381 (setcar cmd (list 'eshell-commands (car cmd))))
406 (if (and (listp (car terms))
408 (setcar terms (cadr (car terms))))))
414 (if (and (listp (car terms))
418 (car terms)))))
424 (if (and (listp (car term
[all...]

Completed in 218 milliseconds

1234567891011>>