Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-cus.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 1a767b41a199
children
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
1 ;;; w3-cus.el --- Customization support for Emacs-W3 1 ;;; w3-cus.el --- Customization support for Emacs-W3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/18 20:30:34 3 ;; Created: 1997/03/24 06:35:57
4 ;; Version: 1.5 4 ;; Version: 1.7
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.
100 of commonly accessed URL's without having to go through 20 levels of 100 of commonly accessed URL's without having to go through 20 levels of
101 menus to get to them." 101 menus to get to them."
102 :group 'w3-files 102 :group 'w3-files
103 :type 'file) 103 :type 'file)
104 104
105 (defcustom w3-documentation-root "http://www.cs.indiana.edu/elisp/w3/docs/" 105 (defcustom w3-documentation-root "http://www.cs.indiana.edu/elisp/w3/"
106 "*Where the w3 documentation lives. This MUST end in a slash." 106 "*Where the w3 documentation lives. This MUST end in a slash."
107 :group 'w3-files 107 :group 'w3-files
108 :type 'string) 108 :type 'string)
109 109
110 (defcustom w3-temporary-directory (or (getenv "TMPDIR") "/tmp") 110 (defcustom w3-temporary-directory (or (getenv "TMPDIR") "/tmp")
123 :type '(choice (const :tag "Do not display frames" :value nil) 123 :type '(choice (const :tag "Do not display frames" :value nil)
124 (const :tag "Show hyperlinks" :value as-links) 124 (const :tag "Show hyperlinks" :value as-links)
125 (const :tag "Show hyperlinks, ask whether to retrieve them" :value ask) 125 (const :tag "Show hyperlinks, ask whether to retrieve them" :value ask)
126 (const :tag "Automatically retrieve frames" :value t))) 126 (const :tag "Automatically retrieve frames" :value t)))
127 127
128 (defcustom w3-do-incremental-display nil 128 (defcustom w3-bullets
129 "*Whether to do incremental display of pages or not." 129 '((disc . ?*)
130 :group 'w3-display 130 (circle . ?o)
131 :type 'boolean) 131 (square . ?#)
132 (none . ? )
133 )
134 "*An assoc list of unordered list types mapping to characters to use
135 as the bullet character."
136 :group 'w3-display
137 :type 'list)
132 138
133 (defcustom w3-echo-link '(title url text name) 139 (defcustom w3-echo-link '(title url text name)
134 "*Whether to display the URL of a link when tabbing through links. 140 "*Whether to display the URL of a link when tabbing through links.
135 Value is a list of one or more of the following symbols: 141 Value is a list of one or more of the following symbols:
136 142
147 (const :tag "Title of the link as defined in the HTML tag" 153 (const :tag "Title of the link as defined in the HTML tag"
148 :value title) 154 :value title)
149 (const :tag "Name of the link as defined in the HTML tag" 155 (const :tag "Name of the link as defined in the HTML tag"
150 :value name))) 156 :value name)))
151 157
152 (defcustom w3-horizontal-rule-char ?- 158 (defcustom w3-horizontal-rule-char nil
153 "*The character to use to create a horizontal rule. 159 "*The character to use to create a horizontal rule.
154 Must be the character's code, not a string. This character is 160 Must be the character's code, not a string. This character is
155 replicated across the screen to create a division." 161 replicated across the screen to create a division.
156 :group 'w3-display 162 If nil W3 will use a terminal graphic character if possible."
157 :type 'character) 163 :group 'w3-display
164 :type '(choice (const :tag "Best possible" :value nil)
165 (character)))
166
167 ;;; these three variables control how w3-setup-terminal-chars works
168 (defcustom w3-use-terminal-characters t
169 "*Use terminal graphics characters for drawing tables and rules if available"
170 :group 'w3-display
171 :type 'boolean)
172
173 (defcustom w3-use-terminal-characters-on-tty nil
174 "*Use terminal graphics characters for tables and rules even on a tty.
175 This triggers display bugs on both FSF Emacs and XEmacs.
176 (Though it's usually tolerable at least on FSF Emacs.)"
177 :group 'w3-display
178 :type 'boolean)
179
180 (defcustom w3-use-terminal-glyphs t
181 "*Use glyphs if possible rather than properties for terminal graphics characters
182
183 Glyphs are probably more efficient but don't work with the most recent versions
184 of XEmacs and there are some cute tricks we can play with text-properties that
185 glyphs won't let us do. It may be possible someday to make XEmacs automagically
186 translate the characters back to ascii characters when pasted into another
187 buffer. (On the other hand, right now w3-excise-terminal-characters doesn't
188 work at all if we're using text-properties)."
189 :group 'w3-display
190 :type '(choice (const :tag "Use Glyphs" :value t)
191 (const :tag "Use Text Properties" :value nil)))
192
193 (defcustom w3-do-incremental-display nil
194 "*Whether to do incremental display of pages or not."
195 :group 'w3-display
196 :type 'boolean)
158 197
159 (defcustom w3-defined-link-types 198 (defcustom w3-defined-link-types
160 ;; This is the HTML3.0 list (downcased) plus "made". 199 ;; This is the HTML3.0 list (downcased) plus "made".
161 '("previous" "next" "up" "down" "home" "toc" "index" "glossary" 200 '("previous" "next" "up" "down" "home" "toc" "index" "glossary"
162 "copyright" "bookmark" "help" "made") 201 "copyright" "bookmark" "help" "made")