Mercurial > emacs

diff lisp/subr.el @ 41187:f3b21013637a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(functionp): Do use cdr-safe on object.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Nov 2001 03:53:51 +0000
parents dc77550aede3
children 812e52cc5162
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)))