Mercurial > emacs

comparison lisp/subr.el @ 16333:585956e62c87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(split-string): Fix minor bug.
author Richard M. Stallman <rms@gnu.org>
date Wed, 25 Sep 1996 22:35:17 +0000
parents c72b7ee606a3
children 18cc78dc8b18
comparison
equal deleted inserted replaced
16332:be25bd9150e8 16333:585956e62c87
787 If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." 787 If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
788 (let ((rexp (or separators "[ \f\t\n\r\v]+")) 788 (let ((rexp (or separators "[ \f\t\n\r\v]+"))
789 (start 0) 789 (start 0)
790 (list nil)) 790 (list nil))
791 (while (string-match rexp string start) 791 (while (string-match rexp string start)
792 (or (eq start 0) 792 (or (eq (match-beginning 0) 0)
793 (setq list 793 (setq list
794 (cons (substring string start (match-beginning 0)) 794 (cons (substring string start (match-beginning 0))
795 list))) 795 list)))
796 (setq start (match-end 0))) 796 (setq start (match-end 0)))
797 (or (eq start (length string)) 797 (or (eq start (length string))