From f1d37f3cabf57685c00be0544eff249ebb18d727 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Nov 2001 03:53:51 +0000 Subject: [PATCH] (functionp): Do use cdr-safe on object. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.5