Mercurial > hg > xemacs-beta

diff lisp/w3/url-misc.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 441bb1e64a06
line wrap: on
line diff
--- a/lisp/w3/url-misc.el	Mon Aug 13 08:49:44 2007 +0200
+++ b/lisp/w3/url-misc.el	Mon Aug 13 08:50:05 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code
 ;; Author: wmperry
-;; Created: 1997/01/21 21:14:56
-;; Version: 1.9
+;; Created: 1997/02/08 05:29:22
+;; Version: 1.10
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -54,8 +54,8 @@
 	 (user (url-unhex-string (url-filename urlobj)))
 	 (proc (url-open-stream "finger" url-working-buffer host
 				(string-to-int port))))
-    (if (stringp proc)
-	(message "%s" proc)
+    (if (not (processp proc))
+	nil
       (process-kill-without-query proc)
       (if (= (string-to-char user) ?/)
 	  (setq user (substring user 1 nil)))