(eshell-test-goto-func): Call symbol-file with `defun'.

diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el
index 076505da14efaf8d6584cd6cecda8d9aff625aa1..c1b121bbf73e39290939e067da7963b006100350 100644 (file)
--- a/lisp/eshell/esh-test.el
+++ b/lisp/eshell/esh-test.el
@@ -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))