-;; Parse a line into its constituent parts (words separated by
-;; whitespace). Return a list of the words.
-(defun rlogin-parse-words (line)
- (let ((list nil)
- (posn 0)
- (match-data (match-data)))
- (while (string-match "[^ \t\n]+" line posn)
- (setq list (cons (substring line (match-beginning 0) (match-end 0))
- list))
- (setq posn (match-end 0)))
- (set-match-data (match-data))
- (nreverse list)))
-