diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-24 19:14:26 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-24 19:14:26 +0200 |
commit | cf55e903a192dc008ca975c37254ae2134b3bf0b (patch) | |
tree | c4f35f11b2a5cfbdc60b032349f1d3b8871222e9 | |
parent | d830ca6b02797c901a1f8a2db3d6fe16b302fe0c (diff) |
Simplify a bit of code by using string-suffix-p
-rw-r--r-- | cider-test.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/cider-test.el b/cider-test.el index 9fe043a8..524137d4 100644 --- a/cider-test.el +++ b/cider-test.el @@ -563,8 +563,7 @@ The default implementation uses the simple Leiningen convention of appending This uses the Leiningen convention of appending '-test' to the namespace name." (when ns (let ((suffix "-test")) - ;; string-suffix-p is only available in Emacs 24.4+ - (if (string-match-p (rx-to-string `(: ,suffix eos) t) ns) + (if (string-suffix-p suffix ns) ns (concat ns suffix))))) |