From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Nov 2001 03:53:51 +0000 (+0000)
Subject: (functionp): Do use cdr-safe on object.
X-Git-Tag: ttn-vms-21-2-B4~18447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1d37f3cabf57685c00be0544eff249ebb18d727;p=emacs.git

(functionp): Do use cdr-safe on object.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 5e748895709..b4203fd7371 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1539,7 +1539,7 @@ configuration."
   (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)))