From c044263ba10e1d07b1c408a71ac17f51b6c9bbbf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 27 Dec 2004 16:15:53 +0000 Subject: [PATCH] (eshell-test-goto-func): Call symbol-file with `defun'. --- lisp/eshell/esh-test.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el index 076505da14..c1b121bbf7 100644 --- 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)) -- 2.39.2