diff options
author | Richard M. Stallman <rms@gnu.org> | 2005-01-07 16:12:34 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2005-01-07 16:12:34 +0000 |
commit | 1bc9c7ed8b140a10f1e263091882f41aa6615b1d (patch) | |
tree | 06d8cd275872665851fcd813150932d6eef79763 /lisp/help-fns.el | |
parent | 60227bf44ec8a72c2e448adad24b2971f951ea5b (diff) | |
download | emacs-1bc9c7ed8b140a10f1e263091882f41aa6615b1d.tar.gz |
Whitespace/comment change.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r-- | lisp/help-fns.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index aaaff6903f2..9acadaa2fa6 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -216,6 +216,14 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." (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 @@ KIND should be `var' for a variable or `subr' for a subroutine." (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)))))))) |