changeset 62016:ffdffaf33258

(rlogin-parse-words): Delete func. (rlogin): Use split-string, not rlogin-parse-words.

--- a/lisp/net/rlogin.el	Mon May 02 02:20:28 2005 +0000
+++ b/lisp/net/rlogin.el	Mon May 02 02:34:57 2005 +0000
@@ -179,9 +179,9 @@
 
   (let* ((process-connection-type rlogin-process-connection-type)
          (args (if rlogin-explicit-args
-                   (append (rlogin-parse-words input-args)
+                   (append (split-string input-args)
                            rlogin-explicit-args)
-                 (rlogin-parse-words input-args)))
+                 (split-string input-args)))
 	 (host (car args))
 	 (user (or (car (cdr (member "-l" args)))
                    (user-login-name)))
@@ -281,19 +281,6 @@
           (goto-char orig-point)))))))
 
 
-;; 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)))
-
 (defun rlogin-send-Ctrl-C ()
   (interactive)
   (process-send-string nil "\C-c"))