Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gw.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8fc7fe29b841
children 6a22abad6937
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
1 ;;; url-gw.el --- Gateway munging for URL loading 1 ;;; url-gw.el --- Gateway munging for URL loading
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/10 01:00:01 3 ;; Created: 1997/03/24 15:13:19
4 ;; Version: 1.5 4 ;; Version: 1.6
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
104 104
105 ;; Stolen from red gnus nntp.el 105 ;; Stolen from red gnus nntp.el
106 (defun url-open-rlogin (name buffer host service) 106 (defun url-open-rlogin (name buffer host service)
107 "Open a connection using rsh." 107 "Open a connection using rsh."
108 (if (not (stringp service)) 108 (if (not (stringp service))
109 (setq service (into-to-string service))) 109 (setq service (int-to-string service)))
110 (let ((proc (if url-gateway-rlogin-user-name 110 (let ((proc (if url-gateway-rlogin-user-name
111 (start-process 111 (start-process
112 name buffer "rsh" 112 name buffer "rsh"
113 url-gateway-rlogin-host "-l" url-gateway-rlogin-user-name 113 url-gateway-rlogin-host "-l" url-gateway-rlogin-user-name
114 (mapconcat 'identity 114 (mapconcat 'identity
127 proc)) 127 proc))
128 128
129 ;; Stolen from red gnus nntp.el 129 ;; Stolen from red gnus nntp.el
130 (defun url-open-telnet (name buffer host service) 130 (defun url-open-telnet (name buffer host service)
131 (if (not (stringp service)) 131 (if (not (stringp service))
132 (setq service (into-to-string service))) 132 (setq service (int-to-string service)))
133 (save-excursion 133 (save-excursion
134 (set-buffer (get-buffer-create buffer)) 134 (set-buffer (get-buffer-create buffer))
135 (erase-buffer) 135 (erase-buffer)
136 (let ((proc (start-process name buffer "telnet" "-8")) 136 (let ((proc (start-process name buffer "telnet" "-8"))
137 (case-fold-search t)) 137 (case-fold-search t))