Mercurial > hg > xemacs-beta

comparison lisp/w3/url-ns.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents d2f30a177268
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
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/04/08 21:18:23 3 ;; Created: 1997/06/29 22:51:33
4 ;; Version: 1.2 4 ;; Version: 1.3
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 ;;;
22 ;;; You should have received a copy of the GNU General Public License 22 ;;; You should have received a copy of the GNU General Public License
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 23 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
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
28 (require 'url-gw)
27 29
28 (defun isPlainHostName (host) 30 (defun isPlainHostName (host)
29 (not (string-match "\\." host))) 31 (not (string-match "\\." host)))
30 32
31 (defun dnsDomainIs (host dom) 33 (defun dnsDomainIs (host dom)