(split-string): Fix minor bug.

7eb47123 · Richard M. Stallman · f41c4842 · 7eb47123
Commit 7eb47123 authored Sep 25, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/subr.el lisp/subr.el +1 -1

No files found.
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -789,7 +789,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
 	(start 0)
 	(list nil))
    (while (string-match rexp string start)
-      (or (eq start 0)
+      (or (eq (match-beginning 0) 0)
 	  (setq list
 		(cons (substring string start (match-beginning 0))
 		      list)))