summaryrefslogtreecommitdiff
path: root/lisp/help-fns.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2005-01-07 16:12:34 +0000
committerRichard M. Stallman <rms@gnu.org>2005-01-07 16:12:34 +0000
commit1bc9c7ed8b140a10f1e263091882f41aa6615b1d (patch)
tree06d8cd275872665851fcd813150932d6eef79763 /lisp/help-fns.el
parent60227bf44ec8a72c2e448adad24b2971f951ea5b (diff)
downloademacs-1bc9c7ed8b140a10f1e263091882f41aa6615b1d.tar.gz
Whitespace/comment change.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r--lisp/help-fns.el12
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))))))))