Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children c53a95d3c46d
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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/03/07 16:46:48 3 ;; Created: 1997/03/14 06:51:56
4 ;; Version: 1.102 4 ;; Version: 1.108
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.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;;; Variable definitions for w3 30 ;;; Variable definitions for w3
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32
33 (require 'w3-cus) ; Grab everything that is customized
34
32 (defconst w3-version-number 35 (defconst w3-version-number
33 (let ((x "p3.0.65")) 36 (let ((x "p3.0.68"))
34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
35 (setq x (substring x (match-beginning 1) (match-end 1))) 38 (setq x (substring x (match-beginning 1) (match-end 1)))
36 (setq x (substring x 1))) 39 (setq x (substring x 1)))
37 (mapconcat 40 (mapconcat
38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
39 "Version # of w3-mode.") 42 "Version # of w3-mode.")
40 43
41 (defconst w3-version-date (let ((x "1997/03/07 16:46:48")) 44 (defconst w3-version-date (let ((x "1997/03/14 06:51:56"))
42 (if (string-match "Date: \\([^ \t\n]+\\)" x) 45 (if (string-match "Date: \\([^ \t\n]+\\)" x)
43 (substring x (match-beginning 1) (match-end 1)) 46 (substring x (match-beginning 1) (match-end 1))
44 x)) 47 x))
45 "Date this version of w3-mode was released.") 48 "Date this version of w3-mode was released.")
46 49
49 "More descriptive version of w3-version-number.") 52 "More descriptive version of w3-version-number.")
50 53
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52 ;;; General configuration variables 55 ;;; General configuration variables
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 56 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
54 (defvar w3-auto-image-alt t
55 "*Whether emacs-w3 should create an alt attribute for an image that
56 is missing it.
57 If nil, emacs-w3 will not automatically create an ALT attribute.
58 If t, the alt attribute will be [IMAGE(nameofimage)]
59 If a string, it should be a string suitable for running through format,
60 with only one %s, which will be replaced with just the filename of the
61 graphic that is not loaded.")
62
63 (defvar w3-configuration-directory "~/.w3/"
64 "*Where emacs-w3 can find its configuration files")
65
66 (defvar w3-debug-html nil "*Whether to gripe about bad HTML or not.")
67
68 (defvar w3-debug-buffer "*HTML Debug*"
69 "*Name of buffer to store debugging information in.")
70
71 (defvar w3-default-configuration-file nil
72 "*Where per-user customizations of w3 are kept.")
73
74 (defvar w3-default-homepage nil
75 "*The url to open at startup. It can be any valid URL.
76 This will default to the environment variable WWW_HOME if you do not
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.")
79
80 (defvar w3-default-stylesheet nil
81 "*The filename of the users default stylesheet.")
82
83 (defvar w3-display-frames nil
84 "*Fetch frames - not optimal.")
85
86 (defvar w3-frame-labels '("FRAME(" . ")")
87 "Strings surrounding a frame name")
88
89 (defvar w3-frame-regexp "FRAME(\\([^)]+\\))"
90 "Regexp for finding a frame hyperlink")
91
92 (defvar w3-frameset-structure nil
93 "Frameset structure")
94
95 (defvar w3-frameset-dimensions nil
96 "Frameset dimensions")
97
98 (defvar w3-frame-name nil
99 "Frame name")
100
101 (defvar w3-base-target nil
102 "Base target name")
103
104 (defvar w3-target-window-distances nil
105 "Target window distances")
106
107 (defvar w3-do-incremental-display nil
108 "*Whether to do incremental display of pages or not.")
109
110 (defvar w3-dump-to-disk nil 57 (defvar w3-dump-to-disk nil
111 "*If non-nil, all W3 pages loaded will be dumped to disk.") 58 "*If non-nil, all W3 pages loaded will be dumped to disk.")
112 59
113 (defvar w3-echo-link '(title url text name)
114 "*Whether to display the URL of a link when tabbing through links.
115 Value is a list of one or more of the following symbols:
116
117 url == url of the target
118 text == text of the link
119 title == title attribute of the link
120 name == name or id attribute of the link
121
122 If none of the information is available, nothing will be shown for the link
123 in menus, etc.")
124
125 (defvar w3-horizontal-rule-char ?-
126 "*The character to use to create a horizontal rule.
127 Must be the character's code, not a string. This character is
128 replicated across the screen to create a division.")
129
130 (defvar w3-fetch-with-default t 60 (defvar w3-fetch-with-default t
131 "*Whether `w3-fetch' should determine a good starting URL as a default.") 61 "*Whether `w3-fetch' should determine a good starting URL as a default.")
132
133 (defvar w3-hotlist-file nil
134 "*Hotlist filename.
135 This should be the name of a file that is stored in either
136 NCSA's Mosaic/X or Netscape/X format. It is used to keep a listing
137 of commonly accessed URL's without having to go through 20 levels of
138 menus to get to them.")
139
140 (defvar w3-icon-directory "http://cs.indiana.edu/elisp/w3/icons/"
141 "*Where to find standard icons. Must end in a /!")
142
143 (defvar w3-icon-format 'xbm
144 "*What file extension icons end in. This is a symbol, string, or nil.
145 If nil, then no file extension is used.")
146
147 (defvar w3-indent-level 4
148 "*Default # of spaces to indent instead of using TABs. This is
149 necessary to preserve tabs in PRE segments yet still get smaller
150 indentation for lists, etc.")
151
152 (defvar w3-keep-old-buffers t
153 "*Whether to keep old buffers around when following links.")
154
155 (defvar w3-latex-docstyle "{article}"
156 "*The documentstyle to use when printing/mailing converted HTML
157 files in LaTeX. Good defaults are:
158 {article}, [psfig,twocolumn]{article}, etc.")
159
160 (defvar w3-mail-command 'mail
161 "*This function will be called whenever w3 needs to send mail. It should
162 enter a mail-mode-like buffer in the current window.
163 The commands `mail-to' and `mail-subject' should still work in this
164 buffer, and it should use mail-header-separator if possible.")
165
166 (defvar w3-max-menu-length 35
167 "*The maximum length of a pulldown menu before it will be split into
168 smaller chunks, with the first part as a submenu, followed by the rest
169 of the menu.")
170
171 (defvar w3-max-menu-width 40 "*The maximum width of a pulldown menu choice.")
172
173 (defvar w3-modeline-format
174 '(" " ("W3"
175 (w3-netscape-emulation-minor-mode
176 " (NS)")
177 (w3-lynx-emulation-minor-mode
178 " (Lynx)")
179 ": "
180 (40 (-40 "%b"))
181 " "
182 (w3-current-isindex "[Searchable] ")
183 "%p" " " global-mode-string))
184 "*The modeline format string when in w3 mode")
185
186 (defvar w3-mule-attribute 'underline
187 "*How to highlight items in Mule (Multi-Linugual Emacs).")
188
189 (defvar w3-netscape-configuration-file nil
190 "*A Netscape-for-X style configuration file. This file will only be read if
191 and only if `w3-use-netscape-configuration-file' is non-nil.")
192
193 (defvar w3-netscape-compatible-comments t
194 "*Whether to honor netscape-style <! > comments.
195 Ye gods I wish I could turn this off by default.")
196
197 (defvar w3-notify 'semibully
198 "*Selects the behavior when w3 page is ready.
199 This variable may have one of the following values:
200
201 newframe -- put the w3 page in its own frame
202 bully -- make the w3 page the current buffer and only window
203 semibully -- make the w3 page the current buffer in the same window
204 aggressive -- make the w3 page the current buffer in the other window
205 friendly -- display w3page in other window but don't make current
206 polite -- don't display w3 page, but prints message when ready (beeps)
207 quiet -- like `polite', but don't beep
208 meek -- make no indication that page is ready
209
210 Any other value of `w3-notify' is equivalent to `meek'.")
211
212 (defvar w3-popup-menu-on-mouse-3 t
213 "*Non-nil value means W3 should provide context-sensitive menus on mouse-3.
214 A nil value means W3 should not change the binding of mouse-3.")
215
216 (defvar w3-print-command "lpr -h -d"
217 "*Print command for dvi files.
218 This is usually lpr -h -d to send it to a postscript printer, but you can set
219 it up so that it is any command that takes a dvi file as its last argument.")
220
221 (defvar w3-reuse-buffers 'reuse
222 "What to do when following a link will re-fetch a document that has
223 already been fetched into a W3 buffer. Possible values are: nil,
224 'yes, and 'no. Nil means ask the user if we should reuse the buffer.
225 A value of 'yes means assume the user wants us to reuse the buffer.
226 A value of 'no means assume the user wants us to re-fetch the document.
227
228 This will also accept:
229 'no 'never 'reload ==> always reload
230 'yes 'reuse 'always ==> always reuse
231 'ask nil ==> always ask")
232
233 (defvar w3-right-margin 2
234 "*Amount of space to leave on right margin of WWW buffers.
235 This amount is subtracted from (window-width) for each new WWW buffer
236 and used as the new fill-column.")
237
238 (defvar w3-maximum-line-length nil
239 "*Maximum length of a line. If nil, then lines can extend all the way to
240 the window margin.")
241
242 (defvar w3-temporary-directory "/tmp" "*Where temporary files go.")
243 62
244 (defvar w3-track-last-buffer nil 63 (defvar w3-track-last-buffer nil
245 "*Whether to track the last w3 buffer to automatically switch to with 64 "*Whether to track the last w3 buffer to automatically switch to with
246 M-x w3.") 65 M-x w3.")
247
248 (defvar w3-track-mouse t
249 "*Whether to track the mouse and message the url under the mouse.")
250
251 (defvar w3-use-netscape-configuration-file nil
252 "*Whether to use a netscape configuration file to determine things like
253 home pages, link colors, etc. If non-nil, then `w3-netscape-configuration-file'
254 is read in at startup.")
255
256 (defvar w3-honor-stylesheets t
257 "*Whether to let a document specify a CSS stylesheet.")
258
259 (defvar w3-user-colors-take-precedence nil
260 "*Whether to let a document define certain colors about itself.
261 Like foreground and background colors and pixmaps, color of links and
262 visited links, etc.")
263 66
264 (defvar w3-gc-cons-threshold-multiplier 1 67 (defvar w3-gc-cons-threshold-multiplier 1
265 "Amount to temporarily multiply gc-cons-threshold by when parsing HTML. 68 "Amount to temporarily multiply gc-cons-threshold by when parsing HTML.
266 Setting this to a number greater than 1 will result in less frequent 69 Setting this to a number greater than 1 will result in less frequent
267 garbage collections when parsing an HTML document, which may often speed 70 garbage collections when parsing an HTML document, which may often speed
268 up handling of a large document with many elements. The disadvantage is 71 up handling of a large document with many elements. The disadvantage is
269 that it allows Emacs's total memory usage to grow larger, which may result 72 that it allows Emacs's total memory usage to grow larger, which may result
270 in later garbage collections taking more time.") 73 in later garbage collections taking more time.")
271 74
272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
273 ;;; Hook Variables
274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
275 (defvar w3-load-hook nil "*Hooks to be run after loading w3.")
276 (defvar w3-mode-hook nil "*Hooks to be run after entering w3-mode.")
277 (defvar w3-source-file-hook nil
278 "*Hooks to be run after getting document source.")
279
280 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
281 ;;; Figure out what flavor of emacs we are running 76 ;;; Figure out what flavor of emacs we are running
282 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
283 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) 78 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
284 "*In XEmacs?.") 79 "*In XEmacs?.")
285 80
286 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version) 81 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version)
287 (not w3-running-xemacs)) 82 (not w3-running-xemacs))
288 "*In FSF v19 emacs?") 83 "*In FSF v19 emacs?")
289 84
290 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 85 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
291 ;;; Graphics parsing stuff
292 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
293 (defvar w3-graphics-list nil
294 "*List of graphics already read in.")
295
296 (defvar w3-delay-image-loads nil
297 "*Delay loading images for w3 or not?")
298
299 (defvar w3-delayed-images nil
300 "*A buffer-local variable holding positions and urls of images within
301 the buffer.")
302
303 (defvar w3-image-mappings
304 '(
305 ("image/x-xbitmap" . xbm)
306 ("image/xbitmap" . xbm)
307 ("image/xbm" . xbm)
308 ("image/jpeg" . jpeg)
309 ("image/gif" . gif)
310 ("image/png" . png)
311 ("image/x-fax" . g3fax)
312 ("image/x-raster" . rast)
313 ("image/windowdump" . xwd)
314 ("image/x-icon" . icon)
315 ("image/portable-graymap" . pgm)
316 ("image/portable-pixmap" . ppm)
317 ("image/x-pixmap" . xpm)
318 ("image/x-xpixmap" . xpm)
319 ("image/pict" . pict)
320 ("image/x-rgb" . sgi)
321 ("image/x-sgi" . sgi)
322 ("image/x-macpaint" . macpt)
323 ("image/x-targa" . tga)
324 ("image/tiff" . tiff)
325 ) "*How to map MIME types to image types for the `image' package.")
326
327 ;; Store the database of HTML general entities. 86 ;; Store the database of HTML general entities.
87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
328 (defvar w3-html-entities 88 (defvar w3-html-entities
329 '( 89 '(
330 (excl . 33) 90 (excl . 33)
331 (quot . 34) 91 (quot . 34)
332 (num . 35) 92 (num . 35)
560 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 320 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
561 (defvar w3-popup-menu 321 (defvar w3-popup-menu
562 '("Emacs-W3 Commands" 322 '("Emacs-W3 Commands"
563 ["Back" w3-history-backward (car (w3-history-find-url-internal (url-view-url t)))] 323 ["Back" w3-history-backward (car (w3-history-find-url-internal (url-view-url t)))]
564 ["Forward" w3-history-forward (cdr (w3-history-find-url-internal (url-view-url t)))] 324 ["Forward" w3-history-forward (cdr (w3-history-find-url-internal (url-view-url t)))]
325 "---"
326 ["Reload" (w3-reload-document) t]
327 ["Show Images" (w3-load-delayed-images) w3-delayed-images]
328 "---"
329 ["Add bookmark" (w3-hotlist-add-document nil) t]
565 ) 330 )
566 "The shorter popup menu.") 331 "The shorter popup menu.")
567 332
568 (defvar w3-graphlink-menu 333 (defvar w3-graphlink-menu
569 '(("Open this Image (%s)" . w3-fetch) 334 '(("Open this Image (%s)" . w3-fetch)
576 the link. Each label can have exactly one `%s' that will be replaced by 341 the link. Each label can have exactly one `%s' that will be replaced by
577 the URL of the link.") 342 the URL of the link.")
578 343
579 (defvar w3-hyperlink-menu 344 (defvar w3-hyperlink-menu
580 '(("Open this Link (%s)" . w3-fetch) 345 '(("Open this Link (%s)" . w3-fetch)
581 ("Add Bookmark for this Link" . w3-hotlist-add-document) 346 ("Add Bookmark for this Link" . w3-hotlist-add-document-at-point)
582 ("New Window with this Link" . w3-fetch-other-frame) 347 ("New Window with this Link" . w3-fetch-other-frame)
583 ("Save Link As..." . w3-download-url) 348 ("Save Link As..." . w3-download-url)
584 ("Copy this Link Location to Clipboard" . w3-save-url) 349 ("Copy this Link Location to Clipboard" . w3-save-url)
585 ("Information on this Link" . w3-popup-info)) 350 ("Information on this Link" . w3-popup-info))
586 "An assoc list of function names and labels. These will be displayed 351 "An assoc list of function names and labels. These will be displayed
587 in a popup menu when the mouse is pressed on a hyperlink. Format is 352 in a popup menu when the mouse is pressed on a hyperlink. Format is
588 ( (label . function)), function is called with one argument, the URL of 353 ( (label . function)), function is called with one argument, the URL of
589 the link. Each label can have exactly one `%s' that will be replaced by 354 the link. Each label can have exactly one `%s' that will be replaced by
590 the URL of the link.") 355 the URL of the link.")
591 356
592 (defvar w3-documentation-root "http://www.cs.indiana.edu/elisp/w3/docs/"
593 "*Where the w3 documentation lives. This MUST end in a slash.")
594
595 (defvar w3-defined-link-types
596 ;; This is the HTML3.0 list (downcased) plus "made".
597 '("previous" "next" "up" "down" "home" "toc" "index" "glossary"
598 "copyright" "bookmark" "help" "made")
599 "A list of the (lower-case) names which have special significance
600 as the values of REL or REV attributes of <link> elements. They will
601 be presented on the toolbar or the links menu, for instance.")
602
603 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 357 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
604 ;;; Variables internal to W3, you should not change any of these 358 ;;; Variables internal to W3, you should not change any of these
605 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
360 (defvar w3-graphics-list nil
361 "*List of graphics already read in.")
362
363 (defvar w3-delayed-images nil
364 "*A buffer-local variable holding positions and urls of images within
365 the buffer.")
366
367 (defvar w3-frame-labels '("FRAME(" . ")")
368 "Strings surrounding a frame name")
369
370 (defvar w3-frame-regexp "FRAME(\\([^)]+\\))"
371 "Regexp for finding a frame hyperlink")
372
373 (defvar w3-frameset-structure nil
374 "Frameset structure")
375
376 (defvar w3-frameset-dimensions nil
377 "Frameset dimensions")
378
379 (defvar w3-frame-name nil
380 "Frame name")
381
382 (defvar w3-base-target nil
383 "Base target name")
384
385 (defvar w3-target-window-distances nil
386 "Target window distances")
387
606 (defvar w3-form-radio-elements nil "Internal variable - do not touch!") 388 (defvar w3-form-radio-elements nil "Internal variable - do not touch!")
607 (defvar w3-form-elements nil "Internal variable - do not touch!") 389 (defvar w3-form-elements nil "Internal variable - do not touch!")
608 390
609 (defvar w3-user-stylesheet nil 391 (defvar w3-user-stylesheet nil
610 "The global stylesheet for this user.") 392 "The global stylesheet for this user.")
611 393
612 (defvar w3-current-stylesheet nil 394 (defvar w3-current-stylesheet nil
613 "The stylesheet for this document.") 395 "The stylesheet for this document.")
614
615 (defvar w3-base-alist nil
616 "An assoc list of named BASE tags in the current document.")
617 396
618 (defvar w3-blinking-buffs nil 397 (defvar w3-blinking-buffs nil
619 "A list of buffers with blinking text in them. 398 "A list of buffers with blinking text in them.
620 This is used to optimize when we change a face so the entire display 399 This is used to optimize when we change a face so the entire display
621 doesn't flash every second, whether we've run into a buffer that is 400 doesn't flash every second, whether we've run into a buffer that is
623 402
624 (defvar w3-last-fill-pos nil 403 (defvar w3-last-fill-pos nil
625 "An internal variable for the new display engine that specifies the 404 "An internal variable for the new display engine that specifies the
626 last character position that was correctly filled.") 405 last character position that was correctly filled.")
627 406
628 (defvar w3-last-tag nil
629 "An internal variable for the new display engine that specifies the
630 last tag processed.")
631
632 (defvar w3-active-faces nil "The list of active faces.") 407 (defvar w3-active-faces nil "The list of active faces.")
633 (defvar w3-active-voices nil "The list of active voices.") 408 (defvar w3-active-voices nil "The list of active voices.")
634
635 (defvar w3-netscape-variable-mappings
636 '(("PRINT_COLOR" . ps-print-color-p)
637 ("SOCKS_HOST" . url-socks-host)
638 ("ORGANIZATION" . url-user-organization)
639 ("EMAIL_ADDRESS" . url-personal-mail-address)
640 ("REAL_NAME" . url-user-real-name)
641 ("NEWSGROUP_DESCRIPTIONS" . url-show-newsgroup-descriptions)
642 ("NNTPSERVER" . url-news-server)
643 ("AUTOLOAD_IMAGES" . w3-delay-image-loads)
644 ("HOME_DOCUMENT" . w3-default-homepage)
645 ("UNDERLINE_LINKS" . w3-underline-links)
646 ("TMPDIR" . url-temporary-directory))
647 "A mapping from netscape configuration file options to w3 variables.")
648
649 (defvar w3-acceptable-protocols-alist
650 '(("Gopher" . "gopher")
651 ("TN3270 (IBM Mainframe emulation)" . "tn3270")
652 ("Interactive Telnet Session" . "telnet")
653 ("Local file or file over ftp" . "file")
654 ("File on an http server" . "http")
655 ("Usenet newsgroup/article" . "news")
656 ("Mail session" . "mailto"))
657 "An assoc list of descriptive labels and the corresponding URL stub.")
658 409
659 (defconst w3-bug-address "wmperry@cs.indiana.edu" 410 (defconst w3-bug-address "wmperry@cs.indiana.edu"
660 "Address of current maintainer, where to send bug reports.") 411 "Address of current maintainer, where to send bug reports.")
661 (defvar w3-continuation '(url-uncompress url-clean-text) 412 (defvar w3-continuation '(url-uncompress url-clean-text)
662 "List of functions to call to process a document completely.") 413 "List of functions to call to process a document completely.")
748 (mapcar (function 499 (mapcar (function
749 (lambda (var) 500 (lambda (var)
750 (if (boundp var) 501 (if (boundp var)
751 (make-variable-buffer-local var)))) w3-persistent-variables) 502 (make-variable-buffer-local var)))) w3-persistent-variables)
752 503
753 (make-variable-buffer-local 'w3-base-alist)
754 (make-variable-buffer-local 'w3-last-tag)
755 (make-variable-buffer-local 'w3-last-fill-pos) 504 (make-variable-buffer-local 'w3-last-fill-pos)
756 (make-variable-buffer-local 'w3-frame-name) 505 (make-variable-buffer-local 'w3-frame-name)
757 (make-variable-buffer-local 'w3-active-faces) 506 (make-variable-buffer-local 'w3-active-faces)
758 (make-variable-buffer-local 'w3-netscape-emulation-minor-mode) 507 (make-variable-buffer-local 'w3-netscape-emulation-minor-mode)
759 (make-variable-buffer-local 'w3-lynx-emulation-minor-mode) 508 (make-variable-buffer-local 'w3-lynx-emulation-minor-mode)