(rlogin-parse-words): Delete func.

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

diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index fa7e0d1950e774fc01b2fd98e2173f5f65e52566..b49e5bde10cd259e7e94291840c877e4ee1cb0c2 100644 (file)
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -179,9 +179,9 @@ variable."
 
   (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 @@ local one share the same directories (through NFS)."
           (goto-char orig-point)))))))
 
 \f
-;; 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"))