mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-16 09:50:25 +00:00
Don’t (require 'cl)
* test/src/regex-test.el: Don’t (require 'cl). (regex-tests-PCRE): s/loop/cl-loop/
This commit is contained in:
parent
82a487d522
commit
7496844e7d
@ -20,7 +20,6 @@
|
||||
;;; Code:
|
||||
|
||||
(require 'ert)
|
||||
(require 'cl)
|
||||
|
||||
(ert-deftest regex-word-cc-fallback-test ()
|
||||
"Test that ‘[[:cc:]]*x’ matches ‘x’ (bug#24020).
|
||||
@ -516,9 +515,9 @@ differences in behavior.")
|
||||
('invalid-regexp 'compilation-failed))
|
||||
|
||||
matches-observed
|
||||
(loop for x from 0 to 20
|
||||
collect (and (not what-failed)
|
||||
(or (match-string x string) "<unset>")))))
|
||||
(cl-loop for x from 0 to 20
|
||||
collect (and (not what-failed)
|
||||
(or (match-string x string) "<unset>")))))
|
||||
nil)
|
||||
|
||||
;; verification line: failed match
|
||||
|
Loading…
Reference in New Issue
Block a user