Fix s-split-up-to when string ends with separator (fixes #74)

1 files changed, 4 insertions, 4 deletions

diff --git a/s.el b/s.el
index 987652f..f145eb5 100644
--- a/s.el
+++ b/s.el
@@ -76,10 +76,10 @@ See also `s-split'."
               (push sub r)))
           (setq op (goto-char (match-end 0)))
           (setq n (1- n)))
-        (if (/= (point) (point-max))
-            (push (buffer-substring-no-properties op (point-max)) r)
-          (unless omit-nulls
-            (push "" r))))
+        (let ((sub (buffer-substring-no-properties op (point-max))))
+          (unless (and omit-nulls
+                       (equal sub ""))
+            (push sub r))))
       (nreverse r))))
 
 (defun s-lines (s)