# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104164153 0
# Node ID b79ba69139eb7ee8920682496c4f4b0c0db4a743
# Parent  803b2fab7ec15a5506ff0a4292e7fe4f99f8c272
(eshell-test-goto-func): Call symbol-file with `defun'.

diff -r 803b2fab7ec1 -r b79ba69139eb lisp/eshell/esh-test.el
--- a/lisp/eshell/esh-test.el	Mon Dec 27 16:12:11 2004 +0000
+++ b/lisp/eshell/esh-test.el	Mon Dec 27 16:15:53 2004 +0000
@@ -125,7 +125,7 @@
   (let ((fsym (get-text-property (point) 'test-func)))
     (when fsym
       (let* ((def (symbol-function fsym))
-	     (library (locate-library (symbol-file fsym)))
+	     (library (locate-library (symbol-file fsym 'defun)))
 	     (name (substring (symbol-name fsym)
 			      (length "eshell-test--")))
 	     (inhibit-redisplay t))