Mercurial > emacs

comparison lisp/emacs-lisp/advice.el @ 94737:f94711def01d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ad-special-form-p): Don't use `iff' in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 08 May 2008 03:38:21 +0000
parents 90a2847062be
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
94736:3a7862f514d0 94737:f94711def01d
2467 (defmacro ad-lambdafy (definition) 2467 (defmacro ad-lambdafy (definition)
2468 "Take a macro function DEFINITION and make a lambda out of it." 2468 "Take a macro function DEFINITION and make a lambda out of it."
2469 `(cdr ,definition)) 2469 `(cdr ,definition))
2470 2470
2471 (defun ad-special-form-p (definition) 2471 (defun ad-special-form-p (definition)
2472 "Non-nil iff DEFINITION is a special form." 2472 "Non-nil if and only if DEFINITION is a special form."
2473 (if (and (symbolp definition) (fboundp definition)) 2473 (if (and (symbolp definition) (fboundp definition))
2474 (setq definition (indirect-function definition))) 2474 (setq definition (indirect-function definition)))
2475 (and (subrp definition) (eq (cdr (subr-arity definition)) 'unevalled))) 2475 (and (subrp definition) (eq (cdr (subr-arity definition)) 'unevalled)))
2476 2476
2477 (defmacro ad-subr-p (definition) 2477 (defmacro ad-subr-p (definition)