Function: dictionary-simple-split-string

dictionary-simple-split-string is a byte-compiled function defined in dictionary.el.gz.

Signature

(dictionary-simple-split-string STRING &optional PATTERN)

Documentation

Return a list of substrings of STRING which are separated by PATTERN.

If PATTERN is omitted, it defaults to "[ \\f\\t\\n\\r\\v]+".

Source Code

;; Defined in /usr/src/emacs/lisp/net/dictionary.el.gz
(defun dictionary-simple-split-string (string &optional pattern)
  "Return a list of substrings of STRING which are separated by PATTERN.
If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
  (or pattern
      (setq pattern "[ \f\t\n\r\v]+"))
  ;; The FSF version of this function takes care not to cons in case
  ;; of infloop.  Maybe we should synch?
  (let (parts (start 0))
    (while (string-match pattern string start)
      (setq parts (cons (substring string start (match-beginning 0)) parts)
	    start (match-end 0)))
    (nreverse (cons (substring string start) parts))))