Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.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 5a88923fcbfe
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
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/06/25 15:58:53 3 ;; Created: 1997/07/02 17:41:53
4 ;; Version: 1.143 4 ;; Version: 1.145
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.
32 32
33 (require 'w3-cus) ; Grab everything that is customized 33 (require 'w3-cus) ; Grab everything that is customized
34 (require 'wid-edit) ; For `widget-keymap' 34 (require 'wid-edit) ; For `widget-keymap'
35 35
36 (defconst w3-version-number 36 (defconst w3-version-number
37 (let ((x "p3.0.92")) 37 (let ((x "p3.0.93"))
38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
39 (setq x (substring x (match-beginning 1) (match-end 1))) 39 (setq x (substring x (match-beginning 1) (match-end 1)))
40 (setq x (substring x 1))) 40 (setq x (substring x 1)))
41 (mapconcat 41 (mapconcat
42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
43 "Version # of w3-mode.") 43 "Version # of w3-mode.")
44 44
45 (defconst w3-version-date (let ((x "1997/06/25 15:58:53")) 45 (defconst w3-version-date (let ((x "1997/07/02 17:41:53"))
46 (if (string-match "Date: \\([^ \t\n]+\\)" x) 46 (if (string-match "Date: \\([^ \t\n]+\\)" x)
47 (substring x (match-beginning 1) (match-end 1)) 47 (substring x (match-beginning 1) (match-end 1))
48 x)) 48 x))
49 "Date this version of w3-mode was released.") 49 "Date this version of w3-mode was released.")
50 50
76 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 76 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
77 ;;; Figure out what flavor of emacs we are running 77 ;;; Figure out what flavor of emacs we are running
78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) 79 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
80 "*Got XEmacs?.") 80 "*Got XEmacs?.")
81
82 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version)
83 (not w3-running-xemacs))
84 "*Got Emacs 19?")
85 81
86 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 82 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
87 ;; Store the database of HTML general entities. 83 ;; Store the database of HTML general entities.
88 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 84 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
89 (defvar w3-html-entities 85 (defvar w3-html-entities