Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.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 cca96a509cfe
children 9b50b4588a93
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool 1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/07 16:06:35 3 ;; Created: 1997/04/10 21:18:12
4 ;; Version: 1.48 4 ;; Version: 1.50
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA. 26 ;;; Boston, MA 02111-1307, USA.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 (defconst url-version (let ((x "p3.0.80")) 29 (defconst url-version (let ((x "p3.0.81"))
30 (if (string-match "State: \\([^ \t\n]+\\)" x) 30 (if (string-match "State: \\([^ \t\n]+\\)" x)
31 (substring x (match-beginning 1) (match-end 1)) 31 (substring x (match-beginning 1) (match-end 1))
32 x)) 32 x))
33 "Version # of URL package.") 33 "Version # of URL package.")
34 34
427 (modify-syntax-entry ?` "\"" url-mailserver-syntax-table) 427 (modify-syntax-entry ?` "\"" url-mailserver-syntax-table)
428 (modify-syntax-entry ?< "(>" url-mailserver-syntax-table) 428 (modify-syntax-entry ?< "(>" url-mailserver-syntax-table)
429 (modify-syntax-entry ?> ")<" url-mailserver-syntax-table) 429 (modify-syntax-entry ?> ")<" url-mailserver-syntax-table)
430 (modify-syntax-entry ?/ " " url-mailserver-syntax-table) 430 (modify-syntax-entry ?/ " " url-mailserver-syntax-table)
431 431
432 (defvar url-handle-no-scheme-hook nil
433 "*Hooks to be run until one can successfully transform an incomplete URL.
434
435 Each hook is called with a single argument URL and should return a tranformed
436 url with a valid scheme (e.g., \"gnu\" --> \"http://www.gnu.org/\"), or nil
437 otherwise.")
438
432 ;;; Make OS/2 happy - yeeks 439 ;;; Make OS/2 happy - yeeks
433 (defvar tcp-binary-process-input-services nil 440 (defvar tcp-binary-process-input-services nil
434 "*Make OS/2 happy with our CRLF pairs...") 441 "*Make OS/2 happy with our CRLF pairs...")
435 442
436 (provide 'url-vars) 443 (provide 'url-vars)