Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents ac2d302a0011
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
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: 1996/08/29 04:09:40 3 ;; Created: 1997/01/03 16:47:06
4 ;; Version: 1.18 4 ;; Version: 1.64
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 ;;; 10 ;;;
10 ;;; This file is not part of GNU Emacs, but the same permissions apply. 11 ;;; This file is part of GNU Emacs.
11 ;;; 12 ;;;
12 ;;; 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
13 ;;; 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
14 ;;; the Free Software Foundation; either version 2, or (at your option) 15 ;;; the Free Software Foundation; either version 2, or (at your option)
15 ;;; any later version. 16 ;;; any later version.
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;;; GNU General Public License for more details. 21 ;;; GNU General Public License for more details.
21 ;;; 22 ;;;
22 ;;; You should have received a copy of the GNU General Public License 23 ;;; You should have received a copy of the GNU General Public License
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA.
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26 28
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 ;;; Variable definitions for w3 30 ;;; Variable definitions for w3
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 (defconst w3-version-number 32 (defconst w3-version-number
31 (let ((x "p3.0.12")) 33 (let ((x "p3.0.43"))
32 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
33 (setq x (substring x (match-beginning 1) (match-end 1))) 35 (setq x (substring x (match-beginning 1) (match-end 1)))
34 (setq x (substring x 1))) 36 (setq x (substring x 1)))
35 (mapconcat 37 (mapconcat
36 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
37 "Version # of w3-mode.") 39 "Version # of w3-mode.")
38 40
39 (defconst w3-version-date (let ((x "1996/08/29 04:09:40")) 41 (defconst w3-version-date (let ((x "1997/01/03 16:47:06"))
40 (if (string-match "Date: \\([^ \t\n]+\\)" x) 42 (if (string-match "Date: \\([^ \t\n]+\\)" x)
41 (substring x (match-beginning 1) (match-end 1)) 43 (substring x (match-beginning 1) (match-end 1))
42 x)) 44 x))
43 "Date this version of w3-mode was released.") 45 "Date this version of w3-mode was released.")
44 46
121 "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.
122 Possible values are: 124 Possible values are:
123 125
124 url == show the url of the target in the minibuffer 126 url == show the url of the target in the minibuffer
125 text == show the text of the link in the minibuffer 127 text == show the text of the link in the minibuffer
128 title == show the title attribute of the link in the minibuffer,
129 or the url if there is no title
126 nil == show nothing") 130 nil == show nothing")
127 131
128 (defvar w3-horizontal-rule-char ?- 132 (defvar w3-horizontal-rule-char ?-
129 "*The character to use to create a horizontal rule. 133 "*The character to use to create a horizontal rule.
130 Must be the character's code, not a string. This character is 134 Must be the character's code, not a string. This character is
134 "*Hotlist filename. 138 "*Hotlist filename.
135 This should be the name of a file that is stored in either 139 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 140 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 141 of commonly accessed URL's without having to go through 20 levels of
138 menus to get to them.") 142 menus to get to them.")
139
140 (defvar w3-html2latex-args "-s -"
141 "*Args to pass `w3-html2latex-prog'. This should send the LaTeX source
142 to standard output.")
143
144 (defvar w3-html2latex-prog "html2latex"
145 "*Program to convert html to latex.")
146 143
147 (defvar w3-icon-directory "http://cs.indiana.edu/elisp/w3/icons/" 144 (defvar w3-icon-directory "http://cs.indiana.edu/elisp/w3/icons/"
148 "*Where to find standard icons. Must end in a /!") 145 "*Where to find standard icons. Must end in a /!")
149 146
150 (defvar w3-icon-format 'xbm 147 (defvar w3-icon-format 'xbm
271 This will also accept: 268 This will also accept:
272 'no 'never 'reload ==> always reload 269 'no 'never 'reload ==> always reload
273 'yes 'reuse 'always ==> always reuse 270 'yes 'reuse 'always ==> always reuse
274 'ask nil ==> always ask") 271 'ask nil ==> always ask")
275 272
276 (defvar w3-right-border 2 273 (defvar w3-right-margin 2
277 "*Amount of space to leave on right margin of WWW buffers. 274 "*Amount of space to leave on right margin of WWW buffers.
278 This amount is subtracted from (window-width) for each new WWW buffer 275 This amount is subtracted from (window-width) for each new WWW buffer
279 and used as the new fill-column.") 276 and used as the new fill-column.")
280 277
281 (defvar w3-maximum-line-length nil 278 (defvar w3-maximum-line-length nil
282 "*Maximum length of a line. If nil, then lines can extend all the way to 279 "*Maximum length of a line. If nil, then lines can extend all the way to
283 the window margin. If a number, the smaller of this and 280 the window margin. If a number, the smaller of this and
284 (- (window-width) w3-right-border) is used.") 281 (- (window-width) w3-right-margin) is used.")
285 282
286 (defvar w3-right-justify-address t 283 (defvar w3-right-justify-address t
287 "*Whether to make address fields right justified, like Arena.") 284 "*Whether to make address fields right justified, like Arena.")
288 285
289 (defvar w3-show-headers nil 286 (defvar w3-show-headers nil
315 312
316 (defvar w3-use-forms-index t 313 (defvar w3-use-forms-index t
317 "*Non-nil means translate <ISINDEX> tags into a hypertext form. 314 "*Non-nil means translate <ISINDEX> tags into a hypertext form.
318 A single text entry box will be drawn where the ISINDEX tag appears. 315 A single text entry box will be drawn where the ISINDEX tag appears.
319 If t, the isindex handling will be the same as Mosaic for X.") 316 If t, the isindex handling will be the same as Mosaic for X.")
320
321 (defvar w3-use-html2latex nil
322 "*This controls how HTML is converted into LaTeX for printing or mailing.
323 If nil, the w3-convert-html-to-latex function is used instead of the
324 html2latex in a subprocess. The lisp function gives slightly better
325 formatting in my biased opinion.")
326 317
327 (defvar w3-use-netscape-configuration-file nil 318 (defvar w3-use-netscape-configuration-file nil
328 "*Whether to use a netscape configuration file to determine things like 319 "*Whether to use a netscape configuration file to determine things like
329 home pages, link colors, etc. If non-nil, then `w3-netscape-configuration-file' 320 home pages, link colors, etc. If non-nil, then `w3-netscape-configuration-file'
330 is read in at startup.") 321 is read in at startup.")
466 You can test your ppmdither by doing 457 You can test your ppmdither by doing
467 ppmmake white 100 100 | pnmdepth 1 | ppmdither | pnmdepth 255 | ppmhist 458 ppmmake white 100 100 | pnmdepth 1 | ppmdither | pnmdepth 255 | ppmhist
468 If the output has a single line like this: 459 If the output has a single line like this:
469 255 255 255 255 10000 460 255 255 255 255 10000
470 then it's safe to set this variable to nil.") 461 then it's safe to set this variable to nil.")
471
472 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
473 ;;; How to look up styles
474 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
475 (defvar w3-style-tags-assoc
476 '(
477 (b . ("*" . "*"))
478 (address . ("*" . "*"))
479 (byline . ("_" . "_"))
480 (cite . ("_" . "_"))
481 (cmd . ("*" . "*"))
482 (dfn . ("*" . "*"))
483 (em . ("~" . "~"))
484 (i . ("~" . "~"))
485 (q . ("\"" . "\""))
486 (removed . ("" . ""))
487 (s . ("" . ""))
488 (strong . ("*" . "*"))
489 (sub . ("" . ""))
490 (sup . ("" . ""))
491 (u . ("_" . "_"))
492 )
493 "*An assoc list of emphasis tags and their corresponding
494 begin and end characters.")
495
496 (defvar w3-header-chars-assoc
497 '(
498 (h1 . (?* ?* w3-upcase-region))
499 (h2 . (?* ?* w3-upcase-region))
500 (h3 . (?- ?- w3-upcase-region))
501 (h4 . (nil ?= nil))
502 (h5 . (nil ?= nil))
503 (h6 . (nil ?: nil)))
504 "*An assoc list of header tags and a list of formatting instructions.
505 This list consists of 3 items - the first item is no longer used. The
506 second item is the character to insert after the header. A <BR> is
507 inserted before and after this string. And the third is a function to
508 call on the region between the start and end of the header. This will
509 be called with 2 arguments, the buffer positions of the start and end
510 of the headers.")
511 462
512 ;; Store the database of HTML general entities. 463 ;; Store the database of HTML general entities.
513 (defvar w3-html-entities 464 (defvar w3-html-entities
514 '( 465 '(
515 (excl . 33) 466 (excl . 33)
738 ) 689 )
739 "List of graphical entity names and the tail end of a URL for them. 690 "List of graphical entity names and the tail end of a URL for them.
740 If there is a 3rd item in the list, it is the alternative text to use 691 If there is a 3rd item in the list, it is the alternative text to use
741 for the image.") 692 for the image.")
742 693
743 (defvar w3-list-chars-assoc
744 '(
745 (ul . ("o" "*" "+" ">"))
746 (ol . ("." ")" "]" ":"))
747 (dl . ("o" "*" "+" ">")))
748 "An assoc list of characters to put at the front of list items. It is
749 keyed on the type of list, followed by a list of items. Each item should
750 be placed in the nth position of the list, where n is the nesting level it
751 should be used for. n starts at 1.")
752
753 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 694 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
754 ;;; Menu definitions 695 ;;; Menu definitions
755 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 696 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
756 (defvar w3-navigate-menu nil) 697 (defvar w3-navigate-menu nil)
757 (defvar w3-popup-menu 698 (defvar w3-popup-menu
787 "An assoc list of function names and labels. These will be displayed 728 "An assoc list of function names and labels. These will be displayed
788 in a popup menu when the mouse is pressed on a hyperlink. Format is 729 in a popup menu when the mouse is pressed on a hyperlink. Format is
789 ( (label . function)), function is called with one argument, the URL of 730 ( (label . function)), function is called with one argument, the URL of
790 the link. Each label can have exactly one `%s' that will be replaced by 731 the link. Each label can have exactly one `%s' that will be replaced by
791 the URL of the link.") 732 the URL of the link.")
733
734 (defvar w3-defined-link-types
735 ;; This is the HTML3.0 list (downcased) plus "made".
736 '("previous" "next" "up" "down" "home" "toc" "index" "glossary"
737 "copyright" "bookmark" "help" "made")
738 "A list of the (lower-case) names which have special significance
739 as the values of REL or REV attributes of <link> elements. They will
740 be presented on the toolbar or the links menu, for instance.")
792 741
793 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 742 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
794 ;;; Variables internal to W3, you should not change any of these 743 ;;; Variables internal to W3, you should not change any of these
795 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 744 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
796 (defvar w3-form-radio-elements nil "Internal variable - do not touch!") 745 (defvar w3-form-radio-elements nil "Internal variable - do not touch!")
911 (defvar w3-continuation '(url-uncompress url-clean-text) 860 (defvar w3-continuation '(url-uncompress url-clean-text)
912 "List of functions to call to process a document completely.") 861 "List of functions to call to process a document completely.")
913 (defvar w3-current-annotation nil "URL of document we are annotating...") 862 (defvar w3-current-annotation nil "URL of document we are annotating...")
914 (defvar w3-current-isindex nil "Is the current document a searchable index?") 863 (defvar w3-current-isindex nil "Is the current document a searchable index?")
915 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.") 864 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.")
916 (defvar w3-current-links nil "An assoc list of <LINK> tags for this doc.") 865 (defvar w3-current-links nil "An assoc list of <link> tags for this doc.")
866 (defvar w3-current-metainfo nil "An assoc list of <meta> tags for this doc.")
917 (defvar w3-current-source nil "Source of current document.") 867 (defvar w3-current-source nil "Source of current document.")
918 (defvar w3-current-parse nil "Parsed version of current document.") 868 (defvar w3-current-parse nil "Parsed version of current document.")
919 (defconst w3-default-continuation '(url-uncompress url-clean-text) 869 (defconst w3-default-continuation '(url-uncompress url-clean-text)
920 "Default action to start with - cleans text and uncompresses if necessary.") 870 "Default action to start with - cleans text and uncompresses if necessary.")
921 (defvar w3-editing-annotation nil "Are we editing an annotation or not?") 871 (defvar w3-editing-annotation nil "Are we editing an annotation or not?")
940 "A widget object specifying what button was pressed to submit a form.") 890 "A widget object specifying what button was pressed to submit a form.")
941 891
942 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 892 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
943 ;;; buffer-local variables to keep around when going into w3-mode 893 ;;; buffer-local variables to keep around when going into w3-mode
944 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 894 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
945 (defvar w3-e19-hotlist-menu nil
946 "A menu for hotlists.")
947
948 (defvar w3-e19-links-menu nil
949 "A buffer-local menu for links.")
950
951 (defvar w3-id-positions nil "Internal use only.") 895 (defvar w3-id-positions nil "Internal use only.")
952 (defvar w3-imagemaps nil "Internal use only.") 896 (defvar w3-imagemaps nil "Internal use only.")
953 897
954 (defvar w3-persistent-variables 898 (defvar w3-persistent-variables
955 '( 899 '(
969 url-current-port 913 url-current-port
970 url-current-referer 914 url-current-referer
971 url-current-server 915 url-current-server
972 url-current-type 916 url-current-type
973 url-current-user 917 url-current-user
974 w3-e19-links-menu
975 w3-current-parse 918 w3-current-parse
976 w3-current-annotation 919 w3-current-annotation
977 w3-current-isindex 920 w3-current-isindex
978 w3-current-last-buffer 921 w3-current-last-buffer
979 w3-current-links 922 w3-current-links
923 w3-current-metainfo
980 w3-current-source 924 w3-current-source
981 w3-delayed-images 925 w3-delayed-images
982 w3-hidden-forms 926 w3-hidden-forms
983 w3-invisible-href-list 927 w3-invisible-href-list
984 w3-state-vector 928 w3-state-vector
1086 (define-key w3-mode-map "\C-?" 'scroll-down) 1030 (define-key w3-mode-map "\C-?" 'scroll-down)
1087 (define-key w3-mode-map "\C-c\C-b" 'w3-show-history-list) 1031 (define-key w3-mode-map "\C-c\C-b" 'w3-show-history-list)
1088 (define-key w3-mode-map "\C-c\C-v" 'w3-version) 1032 (define-key w3-mode-map "\C-c\C-v" 'w3-version)
1089 (define-key w3-mode-map "\C-o" 'w3-fetch) 1033 (define-key w3-mode-map "\C-o" 'w3-fetch)
1090 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point) 1034 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point)
1091 (define-key w3-mode-map "\M-\C-i" 'w3-insert-this-url)
1092 (define-key w3-mode-map "\M-m" 'w3-mail-current-document) 1035 (define-key w3-mode-map "\M-m" 'w3-mail-current-document)
1093 (define-key w3-mode-map "\M-s" 'w3-search) 1036 (define-key w3-mode-map "\M-s" 'w3-search)
1094 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 1037 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
1095 (define-key w3-mode-map "\r" 'w3-widget-button-press) 1038 (define-key w3-mode-map "\r" 'w3-widget-button-press)
1096 (define-key w3-mode-map "b" 'widget-backward) 1039 (define-key w3-mode-map "b" 'w3-widget-backward)
1097 (define-key w3-mode-map "c" 'w3-mail-document-author) 1040 (define-key w3-mode-map "c" 'w3-mail-document-author)
1098 (define-key w3-mode-map "f" 'widget-forward) 1041 (define-key w3-mode-map "f" 'w3-widget-forward)
1099 (define-key w3-mode-map "g" 'w3-reload-document) 1042 (define-key w3-mode-map "g" 'w3-reload-document)
1100 (define-key w3-mode-map "i" 'w3-document-information) 1043 (define-key w3-mode-map "i" 'w3-document-information)
1101 (define-key w3-mode-map "k" 'w3-save-url) 1044 (define-key w3-mode-map "k" 'w3-save-url)
1102 (define-key w3-mode-map "l" 'w3-goto-last-buffer) 1045 (define-key w3-mode-map "l" 'w3-goto-last-buffer)
1103 (define-key w3-mode-map "m" 'w3-complete-link) 1046 (define-key w3-mode-map "m" 'w3-complete-link)
1104 (define-key w3-mode-map "n" 'widget-forward) 1047 (define-key w3-mode-map "n" 'w3-widget-forward)
1105 (define-key w3-mode-map "o" 'w3-open-local) 1048 (define-key w3-mode-map "o" 'w3-open-local)
1106 (define-key w3-mode-map "p" 'w3-print-this-url) 1049 (define-key w3-mode-map "p" 'w3-print-this-url)
1107 (define-key w3-mode-map "q" 'w3-quit) 1050 (define-key w3-mode-map "q" 'w3-quit)
1108 (define-key w3-mode-map "r" 'w3-reload-document) 1051 (define-key w3-mode-map "r" 'w3-reload-document)
1109 (define-key w3-mode-map "s" 'w3-source-document) 1052 (define-key w3-mode-map "s" 'w3-source-document)
1114 ;; Emulate some netscape stuff by default 1057 ;; Emulate some netscape stuff by default
1115 (define-key w3-mode-map [(control alt t)] 'url-list-processes) 1058 (define-key w3-mode-map [(control alt t)] 'url-list-processes)
1116 (define-key w3-mode-map [(control meta t)] 'url-list-processes) 1059 (define-key w3-mode-map [(control meta t)] 'url-list-processes)
1117 1060
1118 ;; Widget navigation 1061 ;; Widget navigation
1119 (define-key w3-mode-map "\t" 'widget-forward) 1062 (define-key w3-mode-map "\t" 'w3-widget-forward)
1120 (define-key w3-mode-map [(shift tab)] 'widget-backward) 1063 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward)
1121 1064
1122 (define-key w3-annotation-minor-mode-map "\C-c\C-c" 1065 (define-key w3-annotation-minor-mode-map "\C-c\C-c"
1123 'w3-personal-annotation-finish) 1066 'w3-personal-annotation-finish)
1124 1067
1125 ;;; This is so we can use a consistent method of checking for mule support 1068 ;;; This is so we can use a consistent method of checking for mule support