From 6765ce5103bd235a0af4b482e6b1399748fd0af3 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 1 Mar 2025 14:29:58 +0100 Subject: [PATCH] ; * test/infra/android/test-controller.el: minor regexp snags (cherry picked from commit 773108fc0456c6c164aa60881929fdd59232c946) --- test/infra/android/test-controller.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/infra/android/test-controller.el b/test/infra/android/test-controller.el index 4a8b592648b..63fa54336a7 100644 --- a/test/infra/android/test-controller.el +++ b/test/infra/android/test-controller.el @@ -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))) @@ -2348,7 +2348,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) -- 2.39.5