Mercurial > hg > xemacs-beta

diff lisp/prim/subr.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 59463afc5666
children 28f395d8dc7a
line wrap: on
line diff
--- a/lisp/prim/subr.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/prim/subr.el	Mon Aug 13 09:41:43 2007 +0200
@@ -307,8 +307,10 @@
 			 newtext ""))))))
     (concat rtn-str (substring str start))))
 
-(defun split-string (string pattern)
+(defun split-string (string &optional pattern)
   "Return a list of substrings of STRING which are separated by PATTERN."
+  (or pattern
+      (setq pattern "[ \f\t\n\r\v]+"))
   (let (parts (start 0))
     (while (string-match pattern string start)
       (setq parts (cons (substring string start (match-beginning 0)) parts)