Mercurial > emacs
changeset 59410:ae92bd0348cd
Whitespace/comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jan 2005 16:12:34 +0000 |
| parents | 0e57f1b0b700 |
| children | ecb6689e04bf |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-fns.el Fri Jan 07 13:13:05 2005 +0000 +++ b/lisp/help-fns.el Fri Jan 07 16:12:34 2005 +0000 @@ -216,6 +216,14 @@ (intern (upcase name)))))) arglist))) +;;; Could be this, if we make symbol-file do the work below. +;;; (defun help-C-file-name (subr-or-var kind) +;;; "Return the name of the C file where SUBR-OR-VAR is defined. +;;; KIND should be `var' for a variable or `subr' for a subroutine." +;;; (symbol-file (if (symbolp subr-or-var) subr-or-var +;;; (subr-name subr-or-var)) +;;; (if (eq kind 'var) 'defvar 'defun))) + (defun help-C-file-name (subr-or-var kind) "Return the name of the C file where SUBR-OR-VAR is defined. KIND should be `var' for a variable or `subr' for a subroutine." @@ -231,8 +239,8 @@ (let ((file (catch 'loop (while t (let ((pnt (search-forward (concat " " name "\n")))) - (re-search-backward " S\\(.*\\)") - (let ((file (match-string 1))) + (re-search-backward " S\\(.*\\)") + (let ((file (match-string 1))) (if (member file build-files) (throw 'loop file) (goto-char pnt))))))))