Mercurial > emacs
comparison lisp/subr.el @ 62326:fd364cee20ef
(symbol-file): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 14 May 2005 13:54:21 +0000 |
parents | e208ebaf0e17 |
children | 4560134d21fa |
comparison
equal
deleted
inserted
replaced
62325:13d3be64499c | 62326:fd364cee20ef |
---|---|
981 \(with no directory name and no `.el' or `.elc' at the end). | 981 \(with no directory name and no `.el' or `.elc' at the end). |
982 It can also be nil, if the definition is not associated with any file. | 982 It can also be nil, if the definition is not associated with any file. |
983 | 983 |
984 If TYPE is nil, then any kind of definition is acceptable. | 984 If TYPE is nil, then any kind of definition is acceptable. |
985 If TYPE is `defun' or `defvar', that specifies function | 985 If TYPE is `defun' or `defvar', that specifies function |
986 definition only or variable definition only." | 986 definition only or variable definition only. |
987 `defface' specifies a face definition only." | |
987 (if (and (or (null type) (eq type 'defun)) | 988 (if (and (or (null type) (eq type 'defun)) |
988 (symbolp symbol) (fboundp symbol) | 989 (symbolp symbol) (fboundp symbol) |
989 (eq 'autoload (car-safe (symbol-function symbol)))) | 990 (eq 'autoload (car-safe (symbol-function symbol)))) |
990 (nth 1 (symbol-function symbol)) | 991 (nth 1 (symbol-function symbol)) |
991 (let ((files load-history) | 992 (let ((files load-history) |