Mercurial > emacs
comparison lisp/help-fns.el @ 90188:01137c1fdbe9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 324-352)
- Merge from gnus--rel--5.10
- Update from CVS
- etc/emacs-buffer.gdb: Remove RCS keywords
* gnus--rel--5.10 (patch 70-79)
- Update from CVS
- Merge from emacs--cvs-trunk--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 06 Jun 2005 02:39:45 +0000 |
| parents | f042e7c0fe20 af6dffb5d180 |
| children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
| 90187:587ea1490d70 | 90188:01137c1fdbe9 |
|---|---|
| 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) |