# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1105114354 0
# Node ID ae92bd0348cd697bfdc5d04bb9ed5d548ac272f3
# Parent  0e57f1b0b70015b7c602b0d125a8553dceebde96
Whitespace/comment change.

diff -r 0e57f1b0b700 -r ae92bd0348cd lisp/help-fns.el
--- 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))))))))