Mercurial > emacs
comparison lisp/help-fns.el @ 62908:af6dffb5d180
* emacs-lisp/find-func.el (find-function-noselect): Handle
subroutines.
* help-fns.el (help-C-file-name): Added autoload mark for
`find-function-noselect'.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Mon, 30 May 2005 18:06:02 +0000 |
| parents | 3de160e732f1 |
| children | f66c007ebe28 6aee1e9b0bd7 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62907:88db2adda4b7 | 62908:af6dffb5d180 |
|---|---|
| 222 ;;; "Return the name of the C file where SUBR-OR-VAR is defined. | 222 ;;; "Return the name of the C file where SUBR-OR-VAR is defined. |
| 223 ;;; KIND should be `var' for a variable or `subr' for a subroutine." | 223 ;;; KIND should be `var' for a variable or `subr' for a subroutine." |
| 224 ;;; (symbol-file (if (symbolp subr-or-var) subr-or-var | 224 ;;; (symbol-file (if (symbolp subr-or-var) subr-or-var |
| 225 ;;; (subr-name subr-or-var)) | 225 ;;; (subr-name subr-or-var)) |
| 226 ;;; (if (eq kind 'var) 'defvar 'defun))) | 226 ;;; (if (eq kind 'var) 'defvar 'defun))) |
| 227 | 227 ;;;###autoload |
| 228 (defun help-C-file-name (subr-or-var kind) | 228 (defun help-C-file-name (subr-or-var kind) |
| 229 "Return the name of the C file where SUBR-OR-VAR is defined. | 229 "Return the name of the C file where SUBR-OR-VAR is defined. |
| 230 KIND should be `var' for a variable or `subr' for a subroutine." | 230 KIND should be `var' for a variable or `subr' for a subroutine." |
| 231 (let ((docbuf (get-buffer-create " *DOC*")) | 231 (let ((docbuf (get-buffer-create " *DOC*")) |
| 232 (name (if (eq 'var kind) | 232 (name (if (eq 'var kind) |