Searched refs:cadr (Results 1 - 25 of 253) sorted by relevance

1234567891011

/macosx-10.10/emacs-93/emacs/lisp/emacs-lisp/
H A Dtestcover.el255 (testcover-reinstrument (cadr form)))
265 (let ((testcover-vector (get (cadr (cadr form)) 'edebug-coverage)))
266 (testcover-reinstrument-list (nthcdr 2 (cadr (nth 2 form))))))
270 (unless (eq (cadr form) 0)
271 (aset testcover-vector (cadr (cadr form)) 'ok-coverage))
299 (push (cadr form) testcover-module-1value-functions))
301 (push (cadr form) testcover-module-potentially-1value-functions)))
304 (push (cadr for
[all...]
H A Dmacroexp.el58 (list (cadr var+list))
120 (maybe-cons (cadr form)
127 (push (cons (cadr form) (cons 'lambda (cddr form)))
135 (if (and (consp (cadr form)) (eq (car (cadr form)) 'lambda))
137 (maybe-cons (macroexpand-all-forms (cadr form) 2)
139 (cadr form))
144 (maybe-cons (macroexpand-all-clauses (cadr form) 1)
164 (consp (cadr form))
165 (eq (car (cadr for
[all...]
H A Dunsafep.el109 caar cadr cdar cddr
138 (setq arg (cadr form))
141 (setq reason (unsafep-function (cadr arg))))
155 (cadr form))
159 (setq unsafep-vars (nconc (mapcar #'unsafep-let (cadr form))
164 (dolist (x (cadr form))
172 (unsafep (cadr arg) unsafep-vars)))
177 (unsafep-variable (cadr form) nil))
180 (or (unsafep (cadr form) unsafep-vars)
184 (setq arg (cadr for
[all...]
H A Drx.el422 (let ((result (rx-to-string (cadr form) 'no-group))
543 (result (rx-to-string (cadr form) 'no-group)))
585 (let* ((sym (cadr form))
593 (error "Unknown rx syntax `%s'" (cadr form))))
608 (let ((char (if (integerp (cadr form))
609 (cadr form)
610 (cdr (assq (cadr form) rx-categories)))))
617 (rx-to-string (eval (cadr form))))
627 (rx-to-string (cadr form))))
633 (concat "\\(?:" (cadr for
[all...]
/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.el408 (setcar terms (cadr (car terms))))))
490 (eq (car (cadr arg)) 'eshell-command-to-value))
492 (cadr (cadr arg))
493 (list 'eshell-commands (cadr (cadr arg))
531 (list (list (intern (cadr terms))
538 (list 'cadr
574 (string= keyword (cadr names))))
599 (eshell-invokify-arg (cadr term
[all...]
H A Desh-opt.el62 ,(if (memq ':preserve-args (cadr options))
70 (cadr options))
110 (cadr (memq ':usage options))))
142 (cadr post-usage))))
144 (setq extcmd (eshell-search-path (cadr extcmd)))
195 (setq extcmd (eshell-search-path (cadr extcmd)))
/macosx-10.10/swig-12/Lib/chicken/
H A Dswigclosprefix.scm6 (cadr initargs)
21 (cadr lst)
27 (cadr lst)
/macosx-10.10/emacs-93/emacs/lisp/gnus/
H A Dformat-spec.el75 (push (cons (car pairs) (cadr pairs)) alist)
H A Dmm-encode.el145 (cadr (assq 'encoding type)))
177 (if (eq (cadr (car rules)) 'qp-or-base64)
179 (cadr (car rules)))))
H A Dgnus-async.el263 (copy-to-buffer buffer (cadr entry) (caddr entry))
303 (delete-region (cadr entry) (caddr entry))
304 (set-marker (cadr entry) nil)
331 (= (cadr entry) (caddr entry)))
334 (set-marker (cadr entry) nil)
H A Ddns.el88 (cadr (assq type spec)))
94 (if (eq value (cadr (car spec)))
169 (dns-write-bytes (cadr (assq (or (dns-get 'type query) 'A)
171 (dns-write-bytes (cadr (assq (or (dns-get 'class query) 'IN)
176 (dns-write-bytes (cadr (assq (dns-get 'type resource) dns-query-types))
178 (dns-write-bytes (cadr (assq (dns-get 'class resource) dns-classes))
H A Dmml-smime.el82 (or (let ((from (cadr (funcall (if (boundp
111 (cadr (funcall (if (boundp
H A Dgnus-diary.el155 (nndiary-parse-schedule-value head (cadr elt) (car (cddr elt))))))
173 (let* ((sec (+ (* (float (car real-time)) 65536) (cadr real-time)))
217 (if (and (= (car o1) (car o2)) (= (cadr o1) (cadr o2)))
H A Dnndir.el66 (or (cadr (assq 'nndir-directory defs))
/macosx-10.10/emacs-93/emacs/lisp/calendar/
H A Dtimeclock.el366 (cadr timeclock-last-event))
420 (- (if today-only (cadr discrep)
550 (cadr time)
569 (cadr discrep)
676 (cadr timeclock-last-event)))
713 (cadr timeclock-last-event)))
717 (- (timeclock-time-to-seconds (cadr entry))
724 (cadr entry))
997 (setq last-date-limited (timeclock-time-to-date (cadr event))
1004 (setq entry (list (cadr even
[all...]
/macosx-10.10/emacs-93/emacs/lisp/
H A Dinfo-xref.el305 (if (eq :tag (cadr link))
307 (if (info-xref-goto-node-p (cadr link))
313 symbol (symbol-file symbol) (cadr link)))))))
H A Dlog-view.el247 (when (and (cadr data) (not (equal (caar data) (cadr data))))
248 (list (cadr data)))))
H A Dansi-color.el285 (if (cadr ansi-color-context)
286 (setq string (concat (cadr ansi-color-context) string)
324 (if (cadr ansi-color-context)
325 (setq string (concat (cadr ansi-color-context) string)
375 (start (or (cadr ansi-color-context-region) begin)))
403 (start-marker (or (cadr ansi-color-context-region)
H A Dcus-theme.el190 (if (and (eq (cadr setting) symbol)
210 (if (and (eq (cadr setting) symbol)
254 (if (and (eq (cadr setting) symbol)
274 (if (and (eq (cadr setting) symbol)
310 (custom-theme-add-variable (cadr setting))
311 (custom-theme-add-face (cadr setting)))))
H A Ddescr-text.el591 (if (cadr x) (length (car x)) 0))
599 (when (cadr elt)
636 (format "%s (#x%02X)" (cadr (aref disp-vector i))
656 (if (cadr composition)
659 (cadr composition) "\"")
662 (if (cadr composition)
664 (cadr composition) "\"")))
679 (format "%s (#x%02X)" (cadr elt) (cddr elt))
H A Dls-lisp.el319 ;; cadr of each element of `file-alist' is t for
325 (when (and (eq (cadr elt) t) ; directory
430 ;; ordering, and reverse whole list. cadr of each element of
435 (if (or (eq (cadr (setq el (car file-alist))) t) ; directory
436 (and (stringp (cadr el))
437 (file-directory-p (cadr el)))) ; symlink to a directory
461 FILEDATA has the form (filename . `file-attributes'). Its `cadr' is t
464 (type (cadr filedata)))
503 (< (cadr time0) (cadr time
[all...]
H A Dcompare-w.el238 (with-selected-window w2 (recenter (cadr compare-windows-recenter)))))
257 (with-selected-window w2 (recenter (cadr compare-windows-recenter))))
351 op2 (cadr p12) b2 w2))
352 (setq compare-windows-sync-point (or (cadr p12) t)))
/macosx-10.10/emacs-93/emacs/lisp/erc/
H A Derc-spelling.el51 The `car' of every cell is a buffer name, the `cadr' is the
73 (cadr (car dicts))
80 The cadr is the beginning and the caddr is the end."
/macosx-10.10/emacs-93/emacs/lisp/mail/
H A Drfc2368.el114 (header-value (cadr temp-list)))

Completed in 344 milliseconds

1234567891011