Mercurial > emacs
comparison lisp/eshell/esh-cmd.el @ 48211:e23f9344f37d
(function-p-func): Avoid `xemacs-p'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 07 Nov 2002 23:01:30 +0000 |
| parents | bb0835bc6023 |
| children | ea69593b3b09 |
comparison
equal
deleted
inserted
replaced
| 48210:eeded772a8a2 | 48211:e23f9344f37d |
|---|---|
| 1058 (while (and (symbolp object) (fboundp object)) | 1058 (while (and (symbolp object) (fboundp object)) |
| 1059 (setq object (symbol-function object))) | 1059 (setq object (symbol-function object))) |
| 1060 object) | 1060 object) |
| 1061 | 1061 |
| 1062 (defconst function-p-func | 1062 (defconst function-p-func |
| 1063 (if (eshell-under-xemacs-p) | 1063 (if (fboundp 'compiled-function-p) |
| 1064 'compiled-function-p | 1064 'compiled-function-p |
| 1065 'byte-code-function-p)) | 1065 'byte-code-function-p)) |
| 1066 | 1066 |
| 1067 (defsubst eshell-functionp (object) | 1067 (defsubst eshell-functionp (object) |
| 1068 "Returns the function named by OBJECT, or nil if it is not a function." | 1068 "Returns the function named by OBJECT, or nil if it is not a function." |