Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
305 (if (eq c ?\\) (progn (setq special t) nil) 305 (if (eq c ?\\) (progn (setq special t) nil)
306 (char-to-string c))))) 306 (char-to-string c)))))
307 newtext "")))))) 307 newtext ""))))))
308 (concat rtn-str (substring str start)))) 308 (concat rtn-str (substring str start))))
309 309
310 (defun split-string (string pattern) 310 (defun split-string (string &optional pattern)
311 "Return a list of substrings of STRING which are separated by PATTERN." 311 "Return a list of substrings of STRING which are separated by PATTERN."
312 (or pattern
313 (setq pattern "[ \f\t\n\r\v]+"))
312 (let (parts (start 0)) 314 (let (parts (start 0))
313 (while (string-match pattern string start) 315 (while (string-match pattern string start)
314 (setq parts (cons (substring string start (match-beginning 0)) parts) 316 (setq parts (cons (substring string start (match-beginning 0)) parts)
315 start (match-end 0))) 317 start (match-end 0)))
316 (nreverse (cons (substring string start) parts)) 318 (nreverse (cons (substring string start) parts))