Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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/02/14 17:57:21 3 ;; Created: 1997/02/15 23:38:52
4 ;; Version: 1.89 4 ;; Version: 1.91
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.
28 28
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;;; Variable definitions for w3 30 ;;; Variable definitions for w3
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 (defconst w3-version-number 32 (defconst w3-version-number
33 (let ((x "p3.0.59")) 33 (let ((x "p3.0.60"))
34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
35 (setq x (substring x (match-beginning 1) (match-end 1))) 35 (setq x (substring x (match-beginning 1) (match-end 1)))
36 (setq x (substring x 1))) 36 (setq x (substring x 1)))
37 (mapconcat 37 (mapconcat
38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
39 "Version # of w3-mode.") 39 "Version # of w3-mode.")
40 40
41 (defconst w3-version-date (let ((x "1997/02/14 17:57:21")) 41 (defconst w3-version-date (let ((x "1997/02/15 23:38:52"))
42 (if (string-match "Date: \\([^ \t\n]+\\)" x) 42 (if (string-match "Date: \\([^ \t\n]+\\)" x)
43 (substring x (match-beginning 1) (match-end 1)) 43 (substring x (match-beginning 1) (match-end 1))
44 x)) 44 x))
45 "Date this version of w3-mode was released.") 45 "Date this version of w3-mode was released.")
46 46
77 set it in your .emacs file. If WWW_HOME is undefined, then it will 77 set it in your .emacs file. If WWW_HOME is undefined, then it will
78 default to the hypertext documentation for W3 at Indiana University.") 78 default to the hypertext documentation for W3 at Indiana University.")
79 79
80 (defvar w3-default-stylesheet nil 80 (defvar w3-default-stylesheet nil
81 "*The filename of the users default stylesheet.") 81 "*The filename of the users default stylesheet.")
82
83 (defvar w3-display-frames nil
84 "*Fetch frames - not optimal.")
82 85
83 (defvar w3-do-incremental-display nil 86 (defvar w3-do-incremental-display nil
84 "*Whether to do incremental display of pages or not.") 87 "*Whether to do incremental display of pages or not.")
85 88
86 (defvar w3-dump-to-disk nil 89 (defvar w3-dump-to-disk nil