procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * test/infra/android/test-controller.el: minor regexp snags

Browse source
This commit is contained in:
Mattias Engdegård 2025-03-01 14:29:58 +01:00
parent f1950fbdb4
commit 773108fc04
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/infra/android/test-controller.el
View file

@ -204,7 +204,7 @@ it returns true, with ARG provided as a second argument."
(save-excursion
(goto-char beg)
(save-match-data
(when (re-search-forward "\\([RSDZTtWXxKWPI]\\) " nil t)
(when (re-search-forward "\\([RSDZTtWXxKPI]\\) " nil t)
(setq beg (point))
(push (cons 'S (match-string 1)) process)))))
(push (cons column (buffer-substring beg (match-beginning 0)))
@ -2349,7 +2349,7 @@ a likewise structured directory tree."
(let* ((default-directory (expand-file-name dir))
(start (length default-directory)))
(let ((dirs (directory-files-recursively
dir "^[[:alnum:]-]+-tests\\.el$"
dir "\\`[[:alnum:]-]+-tests\\.el\\'"
;; Do not recurse into resource directories, as ERC's
;; contain several files that resemble tests.
nil (lambda (dir-name)