mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

Fix ERT / find-function type integration typos

Browse source 
* lisp/emacs-lisp/ert.el (ert-test-location, ert-describe-test):
Correctly type the test object as 'ert--test'.
* lisp/emacs-lisp/find-func.el (find-ert-deftest-regexp): Remove this
duplicate, broken customization.
This commit is contained in:
Stephen Gildea 2025-01-22 19:22:24 -08:00
parent aa6d2a396a
commit 90b4c1b6f2
2 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/find-func.el
View file

@ -123,15 +123,6 @@ should insert the feature name."
:group 'xref
:version "25.1")
(defcustom find-ert-deftest-regexp
"(ert-deftest +'%s"
"The regexp used to search for an `ert-deftest' definition.
Note it must contain a `%s' at the place where `format'
should insert the feature name."
:type 'regexp
:group 'xref
:version "29.1")
(defun find-function--defface (symbol)
(catch 'found
(while (re-search-forward (format find-face-regexp symbol) nil t)
@ -145,8 +136,7 @@ should insert the feature name."
(defvar . find-variable-regexp)
(defface . find-function--defface)
(feature . find-feature-regexp)
(defalias . find-alias-regexp)
(ert-deftest . find-ert-deftest-regexp))
(defalias . find-alias-regexp))
"Alist mapping definition types into regexp variables.
Each regexp variable's value should actually be a format string
to be used to substitute the desired symbol name into the regexp.