diff options
| author | Richard M. Stallman | 2001-11-17 03:53:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-17 03:53:51 +0000 |
| commit | f1d37f3cabf57685c00be0544eff249ebb18d727 (patch) | |
| tree | e1e3fd810cd8c6571f7ca6da19c80111a59091a3 | |
| parent | aa147f3b1b81d3aabb9edfc8256a2000653bdd5e (diff) | |
| download | emacs-f1d37f3cabf57685c00be0544eff249ebb18d727.tar.gz emacs-f1d37f3cabf57685c00be0544eff249ebb18d727.zip | |
(functionp): Do use cdr-safe on object.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1539 | (or (and (symbolp object) (fboundp object) | 1539 | (or (and (symbolp object) (fboundp object) |
| 1540 | (setq object (indirect-function object)) | 1540 | (setq object (indirect-function object)) |
| 1541 | (eq (car-safe object) 'autoload) | 1541 | (eq (car-safe object) 'autoload) |
| 1542 | (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr object))))))) | 1542 | (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object))))))) |
| 1543 | (subrp object) (byte-code-function-p object) | 1543 | (subrp object) (byte-code-function-p object) |
| 1544 | (eq (car-safe object) 'lambda))) | 1544 | (eq (car-safe object) 'lambda))) |
| 1545 | 1545 | ||