Commit 7eb47123 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(split-string): Fix minor bug.

parent f41c4842
...@@ -789,7 +789,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." ...@@ -789,7 +789,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
(start 0) (start 0)
(list nil)) (list nil))
(while (string-match rexp string start) (while (string-match rexp string start)
(or (eq start 0) (or (eq (match-beginning 0) 0)
(setq list (setq list
(cons (substring string start (match-beginning 0)) (cons (substring string start (match-beginning 0))
list))) list)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment