Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children d2f30a177268
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
1 ;;; w3-vars.el,v --- All variable definitions for emacs-w3 1 ;;; w3-vars.el,v --- All variable definitions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/03 21:42:29 3 ;; Created: 1997/04/07 16:06:34
4 ;; Version: 1.120 4 ;; Version: 1.122
5 ;; Keywords: comm, help, hypermedia 5 ;; Keywords: comm, help, 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.
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 32
33 (require 'w3-cus) ; Grab everything that is customized 33 (require 'w3-cus) ; Grab everything that is customized
34 34
35 (defconst w3-version-number 35 (defconst w3-version-number
36 (let ((x "p3.0.79")) 36 (let ((x "p3.0.80"))
37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
38 (setq x (substring x (match-beginning 1) (match-end 1))) 38 (setq x (substring x (match-beginning 1) (match-end 1)))
39 (setq x (substring x 1))) 39 (setq x (substring x 1)))
40 (mapconcat 40 (mapconcat
41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
42 "Version # of w3-mode.") 42 "Version # of w3-mode.")
43 43
44 (defconst w3-version-date (let ((x "1997/04/03 21:42:29")) 44 (defconst w3-version-date (let ((x "1997/04/07 16:06:34"))
45 (if (string-match "Date: \\([^ \t\n]+\\)" x) 45 (if (string-match "Date: \\([^ \t\n]+\\)" x)
46 (substring x (match-beginning 1) (match-end 1)) 46 (substring x (match-beginning 1) (match-end 1))
47 x)) 47 x))
48 "Date this version of w3-mode was released.") 48 "Date this version of w3-mode was released.")
49 49
398 (defvar w3-active-faces nil "The list of active faces.") 398 (defvar w3-active-faces nil "The list of active faces.")
399 (defvar w3-active-voices nil "The list of active voices.") 399 (defvar w3-active-voices nil "The list of active voices.")
400 400
401 (defconst w3-bug-address "wmperry@cs.indiana.edu" 401 (defconst w3-bug-address "wmperry@cs.indiana.edu"
402 "Address of current maintainer, where to send bug reports.") 402 "Address of current maintainer, where to send bug reports.")
403 (defvar w3-continuation '(url-uncompress url-clean-text) 403 (defvar w3-continuation '(url-uncompress)
404 "List of functions to call to process a document completely.") 404 "List of functions to call to process a document completely.")
405 (defvar w3-current-isindex nil "Is the current document a searchable index?") 405 (defvar w3-current-isindex nil "Is the current document a searchable index?")
406 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.") 406 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.")
407 (defvar w3-current-links nil "An assoc list of <link> tags for this doc.") 407 (defvar w3-current-links nil "An assoc list of <link> tags for this doc.")
408 (defvar w3-current-metainfo nil "An assoc list of <meta> tags for this doc.") 408 (defvar w3-current-metainfo nil "An assoc list of <meta> tags for this doc.")
409 (defvar w3-current-source nil "Source of current document.") 409 (defvar w3-current-source nil "Source of current document.")
410 (defvar w3-current-parse nil "Parsed version of current document.") 410 (defvar w3-current-parse nil "Parsed version of current document.")
411 (defconst w3-default-continuation '(url-uncompress url-clean-text) 411 (defconst w3-default-continuation '(url-uncompress)
412 "Default action to start with - cleans text and uncompresses if necessary.") 412 "Default action to start with - cleans text and uncompresses if necessary.")
413 (defvar w3-find-this-link nil "Link to go to within a document.") 413 (defvar w3-find-this-link nil "Link to go to within a document.")
414 (defvar w3-hidden-forms nil "List of hidden form areas and their info.") 414 (defvar w3-hidden-forms nil "List of hidden form areas and their info.")
415 (defvar w3-hotlist nil "Default hotlist.") 415 (defvar w3-hotlist nil "Default hotlist.")
416 (defvar w3-icon-path-cache nil "Cache of where we found icons for entities.") 416 (defvar w3-icon-path-cache nil "Cache of where we found icons for entities.")