Searched +refs:cl +refs:macroexpand +refs:body (Results 1 - 8 of 8) sorted by relevance
| /macosx-10.9.5/emacs-92/emacs/lisp/mh-e/ |
| H A D | mh-acros.el | 45 (require 'cl)
53 (defmacro mh-require-cl ()
54 "Macro to load \"cl\" if needed.
56 Emacs coding conventions require that the \"cl\" package not be
57 required at runtime. However, the \"cl\" package in Emacs 21.4
58 and earlier left \"cl\" routines in their macro expansions. In
60 functions in \"cl\" at run time. This macro recognizes that and
61 loads \"cl\" appropriately."
62 (if (eq (car (macroexpand '(setf (gethash foo bar) baz))) 'cl
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/ |
| H A D | autoload.el | 37 (eval-when-compile (require 'cl))
78 (setq expand (let ((load-file-name file)) (macroexpand form)))
103 (body (nthcdr (get car 'doc-string-elt) form))
104 (doc (if (stringp (car body)) (pop body))))
118 (eq (car-safe (car body)) 'interactive))
|
| H A D | cl.el | 0 ;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*-
34 ;; rewrite of Cesar Quiroz's original cl.el package of December 1986.
52 ;; * Added "cl-compat.el" file, extra compatibility with old package.
81 ;; * Moved most sequence functions to a new file, cl-seq.el.
82 ;; * Moved `eval-when' into cl-macs.el.
83 ;; * Moved `pushnew' and `adjoin' to cl.el for most common cases.
97 (defvar cl-optimize-speed 1)
98 (defvar cl-optimize-safety 1)
112 (add-hook 'cl-unload-hook 'cl
[all...] |
| H A D | bytecomp.el | 101 ;; `cl-warnings' (calls to CL functions)
139 ;; o The form `eval-when-compile' is like progn, except that the body
341 obsolete noruntime cl-functions interactive-only)
356 cl-functions calls to runtime functions from the CL package (as
366 (const cl-functions) (const interactive-only))))
377 cl-functions interactive-only))
453 (eval-when-compile . (lambda (&rest body)
456 (cons 'progn body))))))
457 (eval-and-compile . (lambda (&rest body)
458 (byte-compile-eval-before-compile (cons 'progn body))
[all...] |
| H A D | cl-extra.el | 0 ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-
33 ;; rewrite of Cesar Quiroz's original cl.el package of December 1986.
42 (require 'cl)
90 (defun cl-mapcar-many (cl-func cl-seqs)
91 (if (cdr (cdr cl-seqs))
92 (let* ((cl-res nil)
93 (cl-n (apply 'min (mapcar 'length cl
[all...] |
| H A D | advice.el | 253 ;; {<body-form>}* )
300 ;; into the body of a `defun' to accomplish proper compilation).
312 ;; A possibly empty list of <body-forms> specifies the body of the advice in
313 ;; an implicit progn. The body of an advice can access/change arguments,
322 ;; (body-form indices correspond to the position of the respective advice in
328 ;; {<before-0-body-form>}*
330 ;; {<before-N-1-body-form>}*
331 ;; {<around-0-body-form>}*
332 ;; {<around-1-body
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/gnus/ |
| H A D | mm-decode.el | 32 (eval-when-compile (require 'cl)
38 (autoload 'mm-inline-external-body "mm-extern")
247 ("message/external-body" mm-inline-external-body identity)
279 "message/partial" "message/external-body" "application/emacs-lisp"
418 ;; Content-Type value for a body part is changed from "text/plain" to
675 "message/external-body")
876 ,(macroexpand
1119 (put 'mm-with-part 'edebug-form-spec '(body))
1123 If NO-CACHE is non-nil, cached contents of a message/external-body par
[all...] |
| H A D | gnus-sum.el | 31 (require 'cl)
1178 `((?N ,(macroexpand '(mail-header-number gnus-tmp-header)) ?d)
1179 (?S ,(macroexpand '(mail-header-subject gnus-tmp-header)) ?s)
1187 (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
1188 (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
1191 (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
1192 (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
1221 ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s))
1907 "a" gnus-article-strip-headers-in-body ;; mnemonic: wash archive
2008 "b" gnus-summary-save-article-body
[all...] |
Completed in 141 milliseconds