/[emacs]/emacs/lisp/net/rlogin.el
ViewVC logotype

Diff of /emacs/lisp/net/rlogin.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by miles, Sat Apr 10 05:55:47 2004 UTC revision 1.7 by ttn, Mon May 2 02:34:57 2005 UTC
# Line 179  variable." Line 179  variable."
179    
180    (let* ((process-connection-type rlogin-process-connection-type)    (let* ((process-connection-type rlogin-process-connection-type)
181           (args (if rlogin-explicit-args           (args (if rlogin-explicit-args
182                     (append (rlogin-parse-words input-args)                     (append (split-string input-args)
183                             rlogin-explicit-args)                             rlogin-explicit-args)
184                   (rlogin-parse-words input-args)))                   (split-string input-args)))
185           (host (car args))           (host (car args))
186           (user (or (car (cdr (member "-l" args)))           (user (or (car (cdr (member "-l" args)))
187                     (user-login-name)))                     (user-login-name)))
# Line 281  local one share the same directories (th Line 281  local one share the same directories (th
281            (goto-char orig-point)))))))            (goto-char orig-point)))))))
282    
283    
 ;; 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)))  
   
284  (defun rlogin-send-Ctrl-C ()  (defun rlogin-send-Ctrl-C ()
285    (interactive)    (interactive)
286    (process-send-string nil "\C-c"))    (process-send-string nil "\C-c"))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26