Searched refs:cdr (Results 1 - 25 of 765) sorted by relevance

1234567891011>>

/macosx-10.9.5/emacs-92/
H A Dsite-start.el1 (when (cdr command-line-args)
2 (setcdr command-line-args (cons "--no-splash" (cdr command-line-args))))
/macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/
H A Dring.el54 (consp (cdr x)) (integerp (car (cdr x)))
55 (vectorp (cdr (cdr x)))))
64 (let* ((vec (cdr (cdr ring)))
67 (ln (car (cdr ring))))
72 (setcar (cdr ring) ln)))
85 (car (cdr ring)))
98 (zerop (car (cdr rin
[all...]
H A Dbyte-opt.el107 ;; (tail-map fn (cdr list)))))
175 ;; ;; (cdr (cons A B)) -> (progn A B)
176 ;; (disassemble (lambda (x) (cdr (cons 42 (foo)))))
181 ;; ;; (cdr (list A B ...)) -> (progn A (list B ...))
182 ;; (disassemble (lambda (x) (cdr (list 42 (foo) (bar)))))
206 (car (cdr (cdr arg))))
208 (car (cdr arg)))
209 (t (cdr arg))))
214 (if (and (eq (cdr ar
[all...]
H A Dtq.el58 (defun tq-process (tq) (car (cdr tq)))
59 (defun tq-buffer (tq) (cdr (cdr 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 (ca
[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))))
260 (cdr (assq (symbol-name cl-macro) cl-env))))
347 (if (or (cdr cl-rest) (nlistp cl-x) (nlistp (car cl-rest)))
361 (defalias 'rest 'cdr)
366 (car (cdr (cdr x))))
401 "Return the `car' of the `car' of the `cdr' of X."
402 (car (car (cdr x))))
405 "Return the `car' of the `cdr' o
[all...]
H A Dbackquote.el53 (while (cdr rest)
55 (setq last (cdr last)
56 rest (cdr rest)))
70 list (cdr list))
73 (rest (cdr list))
77 rest (cdr rest)))
109 (cdr (backquote-process arg)))
128 ((not (listp (cdr n)))
129 (list 'vconcat (cdr n)))
135 (list 'apply '(function vector) (cdr
[all...]
H A Dmacroexp.el38 (defun maybe-cons (car cdr original-cons)
40 (if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))
42 (cons car cdr)))
73 (setq ,shared (cdr ,shared))
75 (setq ,tail (cdr ,tail)))
116 (maybe-cons fun (macroexpand-all-clauses (cdr form)) form))
124 (cdr form))
146 (cdr form))
153 (macroexpand-all-forms (cdr for
[all...]
H A Delint.el147 (cdr top-form))
161 (append (car (cdr env)) (car (cdr newenv)))
162 (append (car (cdr (cdr env))) (car (cdr (cdr newenv))))))
167 (cons (cons (list var) (car env)) (cdr env)))
185 (cons (list func args) (car (cdr env)))
186 (car (cdr (cd
[all...]
H A Dshadow.el136 (let ((base1 (concat (cdr orig-dir) "/" file))
150 (setq curr-files (cdr curr-files))))
151 (setq path (cdr path)))
220 (setq tem (cdr tem)))
233 (setq tem (cdr tem)))))
250 (car (cdr shadows))))
251 (setq shadows (cdr (cdr shadows))))
260 (message "%s hides %s" (car shadows) (car (cdr shadows)))
261 (setq shadows (cdr (cd
[all...]
H A Dbytecomp.el191 ;; (setq list (cdr list)))
556 (byte-defop 65 0 byte-cdr)
691 (byte-defop 163 0 byte-cdr-safe)
760 off (cdr (car lap)))
768 (setq bytes (cons (cons pc (cdr off))
776 (setq off (cdr off))
801 (setq lap (cdr lap)))
810 (setq pc (car (cdr (car bytes)))) ; Pick PC from tag
811 (setcar (cdr bytes) (logand pc 255))
813 (setq patchlist (cdr patchlis
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/obsolete/
H A Dprofile.el120 (let* ((calls (car (cdr entry)))
121 (timec (cdr (cdr entry)))
124 (/ (cdr timec) (float profile-million)))
129 (car entry) calls (car timec) (cdr timec))
153 (usec (+ (cdr dest)
169 (profile-add-time (cdr (cdr (assq (car profile-call-stack)
175 (init-time (cdr (assq fun profile-init-list))))
186 (accum (cdr (ass
[all...]
/macosx-10.9.5/emacs-92/emacs/leim/quail/
H A Dviqr.el43 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
44 (setq l (cdr l)))
/macosx-10.9.5/emacs-92/emacs/lisp/language/
H A Denglish.el46 "ASCII" (cdr (assoc "English" language-info-alist)))
/macosx-10.9.5/emacs-92/emacs/lisp/mail/
H A Dmailheader.el38 ;; print name is the name of the header, in all lower-case. The cdr of an
75 (push (if (cdr value)
89 (set-text-properties 0 (length (cdr elt)) nil (cdr elt))
103 (if (consp (cdr header))
104 (setf (cddr header) (funcall (cdr rule) (cadr header)))
105 (setf (cdr header)
106 (cons (cdr header) (funcall (cdr rule) (cdr heade
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/gnus/
H A Dgnus-range.el37 (if (listp (cdr-safe range)) range (list range)))
41 (while (cdr list)
42 (setq list (cdr list)))
61 (setq list2 (cdr list2)))
72 (while (cdr r)
76 (max1 (if (numberp r1) r1 (cdr r1)))
78 (max2 (if (numberp r2) r2 (cdr r2))))
87 (setcar (cdr r) min1))
102 (cdr new-range)))
114 (setq list1 (cdr list
[all...]
H A Dmm-extern.el52 (let ((name (cdr (assq 'name (cdr (mm-handle-type handle)))))
63 (let ((url (cdr (assq 'url (cdr (mm-handle-type handle)))))
75 (let* ((params (cdr (mm-handle-type handle)))
76 (name (cdr (assq 'name params)))
77 (site (cdr (assq 'site params)))
78 (directory (cdr (assq 'directory params)))
79 (mode (cdr (assq 'mode params)))
95 (let* ((params (cdr (m
[all...]
H A Dmm-partial.el51 (setq nid (cdr (assq 'id
52 (cdr (mm-handle-type nhandles)))))
64 (let ((id (cdr (assq 'id (cdr (mm-handle-type handle)))))
81 (cdr (assq 'number
82 (cdr (mm-handle-type a))))))
84 (cdr (assq 'number
85 (cdr (mm-handle-type b)))))))
93 (cdr (assq 'number
94 (cdr (m
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/calendar/
H A Dcal-china.el248 (let ((list (cdr (assoc y chinese-year-cache))))
266 (number-chinese-months (cdr list) (1+ start)))
271 (if (and (cdr (cdr list));; at least two more months...
272 (<= (car (cdr (cdr list)))
273 (chinese-zodiac-sign-on-or-after (car (cdr list)))))
275 (cons (list (+ start 0.5) (car (cdr list)))
276 (number-chinese-months (cdr (cdr lis
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/calc/
H A Dcalc-undo.el63 (calc-handle-undos (cdr cl) (1- n))))
90 (cdr (cdr (cdr action)))))
91 (apply (nth 1 action) (cdr (cdr (cdr action))))))
92 (calc-handle-undo (cdr list)))))
118 (calc-handle-redos (cdr cl) (1- n))))
136 (calc-handle-last-x (cdr lis
[all...]
H A Dcalc-incom.el56 (calc-enter-result 1 "..)" (cdr top)))
65 (calc-enter-result 1 "()" (cdr top))))))
86 (setcar (cdr (cdr top)) (1+ (nth 2 top)))
87 (calc-enter-result 1 "..]" (cdr top)))
91 (calc-pop-push-record 1 "[]" (cdr top))))))
113 (setq new (append '(incomplete cplx) (cdr (cdr new))))
116 (cdr (cdr (cd
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/progmodes/
H A Debnf-otz.el132 (setcdr before (cdr prod-list))
133 (setq syntax-list (cdr syntax-list)))))
134 (setq prod-list (cdr prod-list)))
165 (setcdr before (cdr seq))
166 (setq header (cdr header))))
167 (setq seq (cdr seq)))
181 (setcdr before (cdr seq))
182 (setq header (cdr header))))
183 (setq seq (cdr seq)))
250 syntax-list (cdr synta
[all...]
/macosx-10.9.5/emacs-92/emacs/lisp/
H A Dformat.el286 (setq try (cdr try))))))
298 (setq do (cdr do))))
369 (setq format (cdr format)))))))
386 (cdr (assq 'default-directory
469 (let ((from (if reverse (cdr (car alist)) (car (car alist))))
470 (to (if reverse (car (car alist)) (cdr (car alist)))))
479 (setq alist (cdr alist)))))))
489 (cdr list)
491 (while (not (eq (cdr p) cons))
493 (setq p (cdr
[all...]
/macosx-10.9.5/emacs-92/emacs/src/
H A Dundo.c513 Lisp_Object car, cdr;
516 cdr = XCDR (next);
524 high = Fcar (cdr);
525 low = Fcdr (cdr);
546 prop = Fcar (cdr);
547 cdr = Fcdr (cdr);
548 val = Fcar (cdr);
549 cdr = Fcdr (cdr);
511 Lisp_Object car, cdr; variable
[all...]
/macosx-10.9.5/bind9-45.100/bind9/lib/isccc/include/isccc/
H A Dsexpr.h49 isccc_sexpr_t *cdr; member in struct:isccc_dottedpair
69 #define ISCCC_SEXPR_CDR(s) (s)->value.as_dottedpair.cdr
72 isccc_sexpr_cons(isccc_sexpr_t *car, isccc_sexpr_t *cdr);
99 isccc_sexpr_setcdr(isccc_sexpr_t *pair, isccc_sexpr_t *cdr);
/macosx-10.9.5/ruby-104/ruby/misc/
H A Druby-style.el33 (> (point) (cdr x)))
34 (goto-char (cdr x))
41 (>= (point) (cdr x)))
42 (goto-char (cdr x))

Completed in 213 milliseconds

1234567891011>>