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)