Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/w3/url-gw.el	Mon Aug 13 08:54:52 2007 +0200
+++ b/lisp/w3/url-gw.el	Mon Aug 13 08:55:10 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-gw.el --- Gateway munging for URL loading
 ;; Author: wmperry
-;; Created: 1997/02/10 01:00:01
-;; Version: 1.5
+;; Created: 1997/03/24 15:13:19
+;; Version: 1.6
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -106,7 +106,7 @@
 (defun url-open-rlogin (name buffer host service)
   "Open a connection using rsh."
   (if (not (stringp service))
-      (setq service (into-to-string service)))
+      (setq service (int-to-string service)))
   (let ((proc (if url-gateway-rlogin-user-name
 		  (start-process
 		   name buffer "rsh"
@@ -129,7 +129,7 @@
 ;; Stolen from red gnus nntp.el
 (defun url-open-telnet (name buffer host service)
   (if (not (stringp service))
-      (setq service (into-to-string service)))
+      (setq service (int-to-string service)))
   (save-excursion
     (set-buffer (get-buffer-create buffer))
     (erase-buffer)