Move string compatibility functions to cider-util

I can't figure out what's bothering the byte-compiler in the old
approach... this should solve the problem, though.

1 files changed, 0 insertions, 18 deletions

diff --git a/cider-compat.el b/cider-compat.el
index 3c0b1107..d551d64f 100644
--- a/cider-compat.el
+++ b/cider-compat.el
@@ -153,23 +153,5 @@ 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)))))
 
-(eval-and-compile
-  (unless (fboundp 'string-trim)
-    (defun string-trim-left (string)
-      "Remove leading whitespace from STRING."
-      (if (string-match "\\`[ \t\n\r]+" string)
-          (replace-match "" t t string)
-        string))
-
-    (defun string-trim-right (string)
-      "Remove trailing whitespace from STRING."
-      (if (string-match "[ \t\n\r]+\\'" string)
-          (replace-match "" t t string)
-        string))
-
-    (defun string-trim (string)
-      "Remove leading and trailing whitespace from STRING."
-      (string-trim-left (string-trim-right string)))))
-
 (provide 'cider-compat)
 ;;; cider-compat.el ends here