Skip to content

Commit cf55e90

Browse files
committed
Simplify a bit of code by using string-suffix-p
1 parent d830ca6 commit cf55e90

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

cider-test.el

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -563,8 +563,7 @@ The default implementation uses the simple Leiningen convention of appending
563563
This uses the Leiningen convention of appending '-test' to the namespace name."
564564
(when ns
565565
(let ((suffix "-test"))
566-
;; string-suffix-p is only available in Emacs 24.4+
567-
(if (string-match-p (rx-to-string `(: ,suffix eos) t) ns)
566+
(if (string-suffix-p suffix ns)
568567
ns
569568
(concat ns suffix)))))
570569

0 commit comments

Comments
 (0)