Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gw.el @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents 8d2a9b52c682
children
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
1 ;;; url-gw.el --- Gateway munging for URL loading 1 ;;; url-gw.el --- Gateway munging for URL loading
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/24 15:13:19 3 ;; Created: 1997/03/26 14:32:29
4 ;; Version: 1.6 4 ;; Version: 1.7
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
66 "*Whether to use nslookup to resolve hostnames. 66 "*Whether to use nslookup to resolve hostnames.
67 This should be used when your version of Emacs cannot correctly use DNS, 67 This should be used when your version of Emacs cannot correctly use DNS,
68 but your machine can. This usually happens if you are running a statically 68 but your machine can. This usually happens if you are running a statically
69 linked Emacs under SunOS 4.x") 69 linked Emacs under SunOS 4.x")
70 70
71 (defvar url-gateway-nslookup-program nil 71 (defvar url-gateway-nslookup-program "nslookup"
72 "*If non-NIL then a string naming nslookup program." ) 72 "*If non-NIL then a string naming nslookup program." )
73 73
74 ;; Stolen from ange-ftp 74 ;; Stolen from ange-ftp
75 (defun url-gateway-nslookup-host (host) 75 (defun url-gateway-nslookup-host (host)
76 "Attempt to resolve the given HOSTNAME using nslookup if possible." 76 "Attempt to resolve the given HOSTNAME using nslookup if possible."