[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v |
Date: |
Sat, 05 Apr 2008 20:22:23 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 08/04/05 20:22:23
Index: lisp/subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.587
retrieving revision 1.588
diff -u -b -r1.587 -r1.588
--- lisp/subr.el 5 Apr 2008 20:00:23 -0000 1.587
+++ lisp/subr.el 5 Apr 2008 20:22:17 -0000 1.588
@@ -231,17 +231,17 @@
(eq (car object) 'frame-configuration)))
(defun functionp (object)
- "Non-nil if OBJECT is any kind of function or a special form.
-Also non-nil if OBJECT is a symbol and its function definition is
-\(recursively) a function or special form. This does not include
-macros."
+ "Non-nil if OBJECT is a function."
(or (and (symbolp object) (fboundp object)
(condition-case nil
(setq object (indirect-function object))
(error nil))
(eq (car-safe object) 'autoload)
(not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
- (subrp object) (byte-code-function-p object)
+ (and (subrp object)
+ ;; Filter out special forms.
+ (not (eq 'unevalled (cdr (subr-arity object)))))
+ (byte-code-function-p object)
(eq (car-safe object) 'lambda)))
;;;; List functions.
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/04
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/05
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/07
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Juanma Barranquero, 2008/04/10
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/11
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/19
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Stefan Monnier, 2008/04/24