summaryrefslogtreecommitdiff
path: root/cider-compat.el
diff options
context:
space:
mode:
authorBozhidar Batsov <bozhidar@batsov.com>2015-12-20 11:56:54 +0200
committerBozhidar Batsov <bozhidar@batsov.com>2015-12-20 11:56:54 +0200
commit22cccb7f6d8cf779d9141bc445d80ebe85b4bb5c (patch)
treef424c551ae17908f97c86343fbfd82922c2fc9cb /cider-compat.el
parent6aefaba82eadf8a6615cd9067e24a156809fdaf6 (diff)
Replace usage of string-suffix-p with directory-file-name
I should really stop working late. I do so many silly things then...
Diffstat (limited to 'cider-compat.el')
-rw-r--r--cider-compat.el9
1 files changed, 1 insertions, 8 deletions
diff --git a/cider-compat.el b/cider-compat.el
index 4c0f2939..c506cf38 100644
--- a/cider-compat.el
+++ b/cider-compat.el
@@ -151,14 +151,7 @@ bound and (optionally) used in BODY, and its cadr is a sexp to be
evalled to set symbol's value. In the special case you only want
to bind a single value, BINDINGS can just be a plain tuple."
(declare (indent 1) (debug if-let))
- (list 'if-let bindings (macroexp-progn body))))
-
- (unless (fboundp 'string-remove-suffix)
- (defsubst string-remove-suffix (suffix string)
- "Remove SUFFIX from STRING if present."
- (if (string-suffix-p suffix string)
- (substring string 0 (- (length string) (length suffix)))
- string))))
+ (list 'if-let bindings (macroexp-progn body)))))
(provide 'cider-compat)
;;; cider-compat.el ends here