diff options
| author | Richard M. Stallman | 2004-12-27 16:15:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-12-27 16:15:53 +0000 |
| commit | c044263ba10e1d07b1c408a71ac17f51b6c9bbbf (patch) | |
| tree | f2eb7af1b3c8ce471d1462cf3cf1373ea32ad5e5 /lisp/eshell | |
| parent | 9c8483538f3f7a8ec57bbd50af8aec45c0778622 (diff) | |
| download | emacs-c044263ba10e1d07b1c408a71ac17f51b6c9bbbf.tar.gz emacs-c044263ba10e1d07b1c408a71ac17f51b6c9bbbf.zip | |
(eshell-test-goto-func): Call symbol-file with `defun'.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-test.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el index 076505da14e..c1b121bbf73 100644 --- a/lisp/eshell/esh-test.el +++ b/lisp/eshell/esh-test.el | |||
| @@ -125,7 +125,7 @@ | |||
| 125 | (let ((fsym (get-text-property (point) 'test-func))) | 125 | (let ((fsym (get-text-property (point) 'test-func))) |
| 126 | (when fsym | 126 | (when fsym |
| 127 | (let* ((def (symbol-function fsym)) | 127 | (let* ((def (symbol-function fsym)) |
| 128 | (library (locate-library (symbol-file fsym))) | 128 | (library (locate-library (symbol-file fsym 'defun))) |
| 129 | (name (substring (symbol-name fsym) | 129 | (name (substring (symbol-name fsym) |
| 130 | (length "eshell-test--"))) | 130 | (length "eshell-test--"))) |
| 131 | (inhibit-redisplay t)) | 131 | (inhibit-redisplay t)) |