# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843690917 0
# Node ID 585956e62c87bf415f7df2384456dbb8bbbdafa6
# Parent  be25bd9150e80ae8b2785220e3ea5befcd9a50c2
(split-string): Fix minor bug.

diff -r be25bd9150e8 -r 585956e62c87 lisp/subr.el
--- a/lisp/subr.el	Wed Sep 25 09:53:56 1996 +0000
+++ b/lisp/subr.el	Wed Sep 25 22:35:17 1996 +0000
@@ -789,7 +789,7 @@
 	(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)))