# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1005969231 0
# Node ID f3b21013637afdef3011f09c79e3a927be75a2cf
# Parent  6d18f98e184a4cc0029c0e2e92b8e8767f0a0a7d
(functionp): Do use cdr-safe on object.

diff -r 6d18f98e184a -r f3b21013637a lisp/subr.el
--- 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)))