Mercurial > hg > xemacs-beta
comparison lisp/w3/w3-vars.el @ 185:3d6bfa290dbd r20-3b19
Import from CVS: tag r20-3b19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:55:28 +0200 |
parents | 8eaf7971accc |
children | 489f57a838ef |
comparison
equal
deleted
inserted
replaced
184:bcd2674570bf | 185:3d6bfa290dbd |
---|---|
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/07/12 04:58:34 | 3 ;; Created: 1997/08/12 14:44:46 |
4 ;; Version: 1.149 | 4 ;; Version: 1.150 |
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.94")) | 37 (let ((x "p3.0.103")) |
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/07/12 04:58:34")) | 45 (defconst w3-version-date (let ((x "1997/08/12 14:44:46")) |
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 |
371 "Base target name") | 371 "Base target name") |
372 | 372 |
373 (defvar w3-target-window-distances nil | 373 (defvar w3-target-window-distances nil |
374 "Target window distances") | 374 "Target window distances") |
375 | 375 |
376 (defvar w3-tty-char-width 8 | |
377 "*Char width to use when in a tty") | |
378 | |
379 (defvar w3-tty-char-height 15 | |
380 "*Char height to use when in a tty") | |
381 | |
376 (defvar w3-form-radio-elements nil "Internal variable - do not touch!") | 382 (defvar w3-form-radio-elements nil "Internal variable - do not touch!") |
377 (defvar w3-form-elements nil "Internal variable - do not touch!") | 383 (defvar w3-form-elements nil "Internal variable - do not touch!") |
378 | 384 |
379 (defvar w3-user-stylesheet nil | 385 (defvar w3-user-stylesheet nil |
380 "The global stylesheet for this user.") | 386 "The global stylesheet for this user.") |