Conditionally require ucs-normalize

Defer requiring ucs-normalize until variable
ucs-normalize-combining-chars is used in function s-reverse. This
should result in s.el loading faster.

Addresses issue #77

1 files changed, 2 insertions, 3 deletions

diff --git a/s.el b/s.el
index 9a2b4f4..849e245 100644
--- a/s.el
+++ b/s.el
@@ -27,8 +27,6 @@
 
 ;;; Code:
 
-(require 'ucs-normalize)
-
 (defun s-trim-left (s)
   "Remove whitespace at the beginning of S."
   (save-match-data
@@ -380,7 +378,8 @@ attention to case differences."
   "Return the reverse of S."
   (if (multibyte-string-p s)
       (let ((input (string-to-list s))
-            (output ()))
+            output)
+        (require 'ucs-normalize)
         (while input
           ;; Handle entire grapheme cluster as a single unit
           (let ((grapheme (list (pop input))))