diff options
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index e7fbe0f6a7b..2636ccadea9 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1804,7 +1804,9 @@ configuration." | |||
| 1804 | (defun functionp (object) | 1804 | (defun functionp (object) |
| 1805 | "Non-nil iff OBJECT is a type of object that can be called as a function." | 1805 | "Non-nil iff OBJECT is a type of object that can be called as a function." |
| 1806 | (or (and (symbolp object) (fboundp object) | 1806 | (or (and (symbolp object) (fboundp object) |
| 1807 | (setq object (indirect-function object)) | 1807 | (condition-case nil |
| 1808 | (setq object (indirect-function object)) | ||
| 1809 | (error nil)) | ||
| 1808 | (eq (car-safe object) 'autoload) | 1810 | (eq (car-safe object) 'autoload) |
| 1809 | (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object))))))) | 1811 | (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object))))))) |
| 1810 | (subrp object) (byte-code-function-p object) | 1812 | (subrp object) (byte-code-function-p object) |