procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(symbol-file): Fix doc-string.

Browse source
This commit is contained in:
Martin Rudalics 2008-09-06 10:02:33 +00:00
parent 18a2979dce
commit 37fda77e2d
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-09-06 Martin Rudalics <rudalics@gmx.at>
* subr.el (symbol-file): Fix doc-string.
2008-09-06 Glenn Morris <rgm@gnu.org>
* help-mode.el (help-xref-forward-stack): Doc fix.

15
lisp/subr.el
View file

@ -1458,14 +1458,15 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
;; (setq symbol-file-load-history-loaded t)))
(defun symbol-file (symbol &optional type)
"Return the input source in which SYMBOL was defined.
The value is an absolute file name.
It can also be nil, if the definition is not associated with any file.
"Return the name of the file that defined SYMBOL.
The value is normally an absolute file name. It can also be nil,
if the definition is not associated with any file. If SYMBOL
specifies an autoloaded function, the value can be a relative
file name without extension.
If TYPE is nil, then any kind of definition is acceptable.
If TYPE is `defun' or `defvar', that specifies function
definition only or variable definition only.
`defface' specifies a face definition only."
If TYPE is nil, then any kind of definition is acceptable. If
TYPE is `defun', `defvar', or `defface', that specifies function
definition, variable definition, or face definition only."
(if (and (or (null type) (eq type 'defun))
(symbolp symbol) (fboundp symbol)
(eq 'autoload (car-safe (symbol-function symbol))))