changeset 41187:f3b21013637a

(functionp): Do use cdr-safe on object.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Nov 2001 03:53:51 +0000
parents 6d18f98e184a
children 0ca5d3516741
files lisp/subr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sat Nov 17 03:49:52 2001 +0000
+++ b/lisp/subr.el	Sat Nov 17 03:53:51 2001 +0000
@@ -1539,7 +1539,7 @@
   (or (and (symbolp object) (fboundp object)
 	   (setq object (indirect-function object))
 	   (eq (car-safe object) 'autoload)
-	   (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr object)))))))
+	   (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
       (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)))