Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children 859a2309aef8
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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/01/03 16:47:06 3 ;; Created: 1997/01/31 04:28:42
4 ;; Version: 1.64 4 ;; Version: 1.76
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 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
10 ;;; 10 ;;;
11 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
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.43")) 33 (let ((x "p3.0.52"))
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/01/03 16:47:06")) 41 (defconst w3-version-date (let ((x "1997/01/31 04:28:42"))
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
117 format as the Mosaic extra documents.menu.") 117 format as the Mosaic extra documents.menu.")
118 118
119 (defvar w3-dump-to-disk nil 119 (defvar w3-dump-to-disk nil
120 "*If non-nil, all W3 pages loaded will be dumped to disk.") 120 "*If non-nil, all W3 pages loaded will be dumped to disk.")
121 121
122 (defvar w3-echo-link 'url 122 (defvar w3-echo-link '(title url text name)
123 "Whether to display the URL of a link when tabbing through links. 123 "*Whether to display the URL of a link when tabbing through links.
124 Possible values are: 124 Value is a list of one or more of the following symbols:
125 125
126 url == show the url of the target in the minibuffer 126 url == url of the target
127 text == show the text of the link in the minibuffer 127 text == text of the link
128 title == show the title attribute of the link in the minibuffer, 128 title == title attribute of the link
129 or the url if there is no title 129 name == name or id attribute of the link
130 nil == show nothing") 130
131 If none of the information is available, nothing will be shown for the link
132 in menus, etc.")
131 133
132 (defvar w3-horizontal-rule-char ?- 134 (defvar w3-horizontal-rule-char ?-
133 "*The character to use to create a horizontal rule. 135 "*The character to use to create a horizontal rule.
134 Must be the character's code, not a string. This character is 136 Must be the character's code, not a string. This character is
135 replicated across the screen to create a division.") 137 replicated across the screen to create a division.")
138
139 (defvar w3-fetch-with-default t
140 "*Whether `w3-fetch' should determine a good starting URL as a default.")
136 141
137 (defvar w3-hotlist-file nil 142 (defvar w3-hotlist-file nil
138 "*Hotlist filename. 143 "*Hotlist filename.
139 This should be the name of a file that is stored in either 144 This should be the name of a file that is stored in either
140 NCSA's Mosaic/X or Netscape/X format. It is used to keep a listing 145 NCSA's Mosaic/X or Netscape/X format. It is used to keep a listing
1034 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point) 1039 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point)
1035 (define-key w3-mode-map "\M-m" 'w3-mail-current-document) 1040 (define-key w3-mode-map "\M-m" 'w3-mail-current-document)
1036 (define-key w3-mode-map "\M-s" 'w3-search) 1041 (define-key w3-mode-map "\M-s" 'w3-search)
1037 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 1042 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
1038 (define-key w3-mode-map "\r" 'w3-widget-button-press) 1043 (define-key w3-mode-map "\r" 'w3-widget-button-press)
1044 (define-key w3-mode-map "\n" 'w3-widget-button-press)
1039 (define-key w3-mode-map "b" 'w3-widget-backward) 1045 (define-key w3-mode-map "b" 'w3-widget-backward)
1040 (define-key w3-mode-map "c" 'w3-mail-document-author) 1046 (define-key w3-mode-map "c" 'w3-mail-document-author)
1041 (define-key w3-mode-map "f" 'w3-widget-forward) 1047 (define-key w3-mode-map "f" 'w3-widget-forward)
1042 (define-key w3-mode-map "g" 'w3-reload-document) 1048 (define-key w3-mode-map "g" 'w3-reload-document)
1043 (define-key w3-mode-map "i" 'w3-document-information) 1049 (define-key w3-mode-map "i" 'w3-document-information)