Diane Murray <disumu at x3y2z1.net>

(url-generic-emulator-loader): Send the port as a string to
`url-do-terminal-emulator'.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index e7b441bf55e02ca42392965f967a803b7e6abec1..05be493b74e58a634f6c08c33ab421b50072ba75 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-22  Diane Murray  <disumu@x3y2z1.net>
+
+       * url-misc.el (url-generic-emulator-loader): Send the port as a
+        string to `url-do-terminal-emulator'.
+
 2007-09-21  Diane Murray  <disumu@x3y2z1.net>
 
        * url-news.el (url-news-fetch-newsgroup): Fix formatting of Gnus

diff --git a/lisp/url/url-misc.el b/lisp/url/url-misc.el
index a793cacc5bc9ed3287b4ef92c723465ce2308618..f70726407d37f28eb0be739ed1678a19380da7ca 100644 (file)
--- a/lisp/url/url-misc.el
+++ b/lisp/url/url-misc.el
@@ -75,7 +75,7 @@
   (let* ((type (intern (downcase (url-type url))))
         (server (url-host url))
         (name (url-user url))
-        (port (url-port url)))
+        (port (number-to-string (url-port url))))
     (url-do-terminal-emulator type server port name))
   nil)