[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el

[Thien-Thi Nguyen]

Index: emacs/lisp/net/rlogin.el
diff -c emacs/lisp/net/rlogin.el:1.6 emacs/lisp/net/rlogin.el:1.7
*** emacs/lisp/net/rlogin.el:1.6        Sat Apr 10 05:55:47 2004
--- emacs/lisp/net/rlogin.el    Mon May  2 02:34:57 2005
***************
*** 179,187 ****
  
    (let* ((process-connection-type rlogin-process-connection-type)
           (args (if rlogin-explicit-args
!                    (append (rlogin-parse-words input-args)
                             rlogin-explicit-args)
!                  (rlogin-parse-words input-args)))
         (host (car args))
         (user (or (car (cdr (member "-l" args)))
                     (user-login-name)))
--- 179,187 ----
  
    (let* ((process-connection-type rlogin-process-connection-type)
           (args (if rlogin-explicit-args
!                    (append (split-string input-args)
                             rlogin-explicit-args)
!                  (split-string input-args)))
         (host (car args))
         (user (or (car (cdr (member "-l" args)))
                     (user-login-name)))
***************
*** 281,299 ****
            (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"))
--- 281,286 ----