diff options
| -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)) |