Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
1 ;;; url-ns.el --- Various netscape-ish functions for proxy definitions 1 ;;; url-ns.el --- Various netscape-ish functions for proxy definitions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/24 20:16:16 3 ;; Created: 1997/04/08 21:18:23
4 ;; Version: 1.1 4 ;; Version: 1.2
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
24 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;;; Boston, MA 02111-1307, USA. 25 ;;; Boston, MA 02111-1307, USA.
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27 27
28 (defun isPlainHostName (host) 28 (defun isPlainHostName (host)
29 (string-match "\\." host)) 29 (not (string-match "\\." host)))
30 30
31 (defun dnsDomainIs (host dom) 31 (defun dnsDomainIs (host dom)
32 (setq host (url-gateway-nslookup-host host)) 32 (setq host (url-gateway-nslookup-host host))
33 (string-match (concat (regexp-quote dom) "$") host)) 33 (string-match (concat (regexp-quote dom) "$") host))
34 34