diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-10-15 11:38:21 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-10-15 13:58:45 -0400 |
| commit | de60992053a6ce21afe218e37bb377e7a5713522 (patch) | |
| tree | ecf2b223fba3b2cc163089912dea40161e728942 /lisp/emacs-lisp | |
| parent | 51615a808236058ac732a5eaba239874d56fdd10 (diff) | |
| download | emacs-de60992053a6ce21afe218e37bb377e7a5713522.tar.gz emacs-de60992053a6ce21afe218e37bb377e7a5713522.tar.bz2 emacs-de60992053a6ce21afe218e37bb377e7a5713522.zip | |
Fix ert-test finding by symbol (Bug#28849)
In 2017-07-28 "* lisp/subr.el (define-symbol-prop): New function", the
symbol used for ert tests in load-history was changed from
`ert-deftest' to `ert--test', but a couple of other places were not
updated accordingly.
* lisp/emacs-lisp/ert.el (ert-find-test-other-window): Pass
`ert--test' as the TYPE to `find-function-do-it'.
(top-level): Use `ert--test' as the key to the
`find-function-regexp-alist' entry.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 83acbacb883..3a3979e81f0 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1625,7 +1625,7 @@ default (if any)." (defun ert-find-test-other-window (test-name) "Find, in another window, the definition of TEST-NAME." (interactive (list (ert-read-test-name-at-point "Find test definition: "))) - (find-function-do-it test-name 'ert-deftest 'switch-to-buffer-other-window)) + (find-function-do-it test-name 'ert--test 'switch-to-buffer-other-window)) (defun ert-delete-test (test-name) "Make the test TEST-NAME unbound. @@ -2594,7 +2594,7 @@ To be used in the ERT results buffer." ;;; Actions on load/unload. -(add-to-list 'find-function-regexp-alist '(ert-deftest . ert--find-test-regexp)) +(add-to-list 'find-function-regexp-alist '(ert--test . ert--find-test-regexp)) (add-to-list 'minor-mode-alist '(ert--current-run-stats (:eval (ert--tests-running-mode-line-indicator)))) |