Letters can be neither upper or lower case. Handle it.

1 files changed, 1 insertions, 1 deletions

diff --git a/s.el b/s.el
index 995f620..3dc88d2 100644
--- a/s.el
+++ b/s.el
@@ -404,7 +404,7 @@ When START is non-nil the search will start at that index."
 (defun s-split-words (s)
   "Split S into list of words."
   (s-split
-   "[^[:lower:][:upper:]0-9]+"
+   "[^[:word:]0-9]+"
    (let ((case-fold-search nil))
      (replace-regexp-in-string
       "\\([[:lower:]]\\)\\([[:upper:]]\\)" "\\1 \\2"