Mercurial > hg > xemacs-beta

diff lisp/w3/url-ns.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 8d2a9b52c682
children 15872534500d
line wrap: on
line diff
--- a/lisp/w3/url-ns.el	Mon Aug 13 09:25:31 2007 +0200
+++ b/lisp/w3/url-ns.el	Mon Aug 13 09:26:03 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-ns.el --- Various netscape-ish functions for proxy definitions
 ;; Author: wmperry
-;; Created: 1997/03/24 20:16:16
-;; Version: 1.1
+;; Created: 1997/04/08 21:18:23
+;; Version: 1.2
 ;; Keywords: comm, data, processes, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -26,7 +26,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defun isPlainHostName (host)
-  (string-match "\\." host))
+  (not (string-match "\\." host)))
 
 (defun dnsDomainIs (host dom)
   (setq host (url-gateway-nslookup-host host))