Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 90182:f042e7c0fe20
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 302-319)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 69)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 20 May 2005 04:22:05 +0000 |
parents | 02f1dbc4a199 c905fcf5e3d9 |
children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
90181:0c828e2b0b6f | 90182:f042e7c0fe20 |
---|---|
121 "Major mode for editing Tcl source in Emacs" | 121 "Major mode for editing Tcl source in Emacs" |
122 :group 'languages) | 122 :group 'languages) |
123 | 123 |
124 (defcustom tcl-indent-level 4 | 124 (defcustom tcl-indent-level 4 |
125 "*Indentation of Tcl statements with respect to containing block." | 125 "*Indentation of Tcl statements with respect to containing block." |
126 :type 'integer) | 126 :type 'integer |
127 :group 'tcl) | |
127 | 128 |
128 (defcustom tcl-continued-indent-level 4 | 129 (defcustom tcl-continued-indent-level 4 |
129 "*Indentation of continuation line relative to first line of command." | 130 "*Indentation of continuation line relative to first line of command." |
130 :type 'integer) | 131 :type 'integer |
132 :group 'tcl) | |
131 | 133 |
132 (defcustom tcl-auto-newline nil | 134 (defcustom tcl-auto-newline nil |
133 "*Non-nil means automatically newline before and after braces you insert." | 135 "*Non-nil means automatically newline before and after braces you insert." |
134 :type 'boolean) | 136 :type 'boolean |
137 :group 'tcl) | |
135 | 138 |
136 (defcustom tcl-tab-always-indent tab-always-indent | 139 (defcustom tcl-tab-always-indent tab-always-indent |
137 "*Control effect of TAB key. | 140 "*Control effect of TAB key. |
138 If t (the default), always indent current line. | 141 If t (the default), always indent current line. |
139 If nil and point is not in the indentation area at the beginning of | 142 If nil and point is not in the indentation area at the beginning of |
147 4. Move forward to end of line, indenting if necessary. | 150 4. Move forward to end of line, indenting if necessary. |
148 5. Create an empty comment. | 151 5. Create an empty comment. |
149 6. Move backward to start of comment, indenting if necessary." | 152 6. Move backward to start of comment, indenting if necessary." |
150 :type '(choice (const :tag "Always" t) | 153 :type '(choice (const :tag "Always" t) |
151 (const :tag "Beginning only" nil) | 154 (const :tag "Beginning only" nil) |
152 (const :tag "Maybe move or make or delete comment" 'tcl))) | 155 (const :tag "Maybe move or make or delete comment" 'tcl)) |
156 :group 'tcl) | |
153 | 157 |
154 | 158 |
155 (defcustom tcl-electric-hash-style nil ;; 'smart | 159 (defcustom tcl-electric-hash-style nil ;; 'smart |
156 "*Style of electric hash insertion to use. | 160 "*Style of electric hash insertion to use. |
157 Possible values are `backslash', meaning that `\\' quoting should be | 161 Possible values are `backslash', meaning that `\\' quoting should be |
158 done; `quote', meaning that `\"' quoting should be done; `smart', | 162 done; `quote', meaning that `\"' quoting should be done; `smart', |
159 meaning that the choice between `backslash' and `quote' should be | 163 meaning that the choice between `backslash' and `quote' should be |
160 made depending on the number of hashes inserted; or nil, meaning that | 164 made depending on the number of hashes inserted; or nil, meaning that |
161 no quoting should be done. Any other value for this variable is | 165 no quoting should be done. Any other value for this variable is |
162 taken to mean `smart'. The default is nil." | 166 taken to mean `smart'. The default is nil." |
163 :type '(choice (const backslash) (const quote) (const smart) (const nil))) | 167 :type '(choice (const backslash) (const quote) (const smart) (const nil)) |
168 :group 'tcl) | |
164 | 169 |
165 (defcustom tcl-help-directory-list nil | 170 (defcustom tcl-help-directory-list nil |
166 "*List of topmost directories containing TclX help files." | 171 "*List of topmost directories containing TclX help files." |
167 :type '(repeat directory)) | 172 :type '(repeat directory) |
173 :group 'tcl) | |
168 | 174 |
169 (defcustom tcl-use-smart-word-finder t | 175 (defcustom tcl-use-smart-word-finder t |
170 "*If not nil, use smart way to find current word, for Tcl help feature." | 176 "*If not nil, use smart way to find current word, for Tcl help feature." |
171 :type 'boolean) | 177 :type 'boolean |
178 :group 'tcl) | |
172 | 179 |
173 (defcustom tcl-application "wish" | 180 (defcustom tcl-application "wish" |
174 "*Name of Tcl program to run in inferior Tcl mode." | 181 "*Name of Tcl program to run in inferior Tcl mode." |
175 :type 'string) | 182 :type 'string |
183 :group 'tcl) | |
176 | 184 |
177 (defcustom tcl-command-switches nil | 185 (defcustom tcl-command-switches nil |
178 "*List of switches to supply to the `tcl-application' program." | 186 "*List of switches to supply to the `tcl-application' program." |
179 :type '(repeat string)) | 187 :type '(repeat string) |
188 :group 'tcl) | |
180 | 189 |
181 (defcustom tcl-prompt-regexp "^\\(% \\|\\)" | 190 (defcustom tcl-prompt-regexp "^\\(% \\|\\)" |
182 "*If not nil, a regexp that will match the prompt in the inferior process. | 191 "*If not nil, a regexp that will match the prompt in the inferior process. |
183 If nil, the prompt is the name of the application with \">\" appended. | 192 If nil, the prompt is the name of the application with \">\" appended. |
184 | 193 |
185 The default is \"^\\(% \\|\\)\", which will match the default primary | 194 The default is \"^\\(% \\|\\)\", which will match the default primary |
186 and secondary prompts for tclsh and wish." | 195 and secondary prompts for tclsh and wish." |
187 :type 'regexp) | 196 :type 'regexp |
197 :group 'tcl) | |
188 | 198 |
189 (defcustom inferior-tcl-source-command "source %s\n" | 199 (defcustom inferior-tcl-source-command "source %s\n" |
190 "*Format-string for building a Tcl command to load a file. | 200 "*Format-string for building a Tcl command to load a file. |
191 This format string should use `%s' to substitute a file name | 201 This format string should use `%s' to substitute a file name |
192 and should result in a Tcl expression that will command the | 202 and should result in a Tcl expression that will command the |
193 inferior Tcl to load that file. The filename will be appropriately | 203 inferior Tcl to load that file. The filename will be appropriately |
194 quoted for Tcl." | 204 quoted for Tcl." |
195 :type 'string) | 205 :type 'string |
206 :group 'tcl) | |
196 | 207 |
197 (defface tcl-escaped-newline '((t :inherit font-lock-string-face)) | 208 (defface tcl-escaped-newline '((t :inherit font-lock-string-face)) |
198 "Face used for (non-escaped) backslash at end of a line in Tcl mode." | 209 "Face used for (non-escaped) backslash at end of a line in Tcl mode." |
199 :group 'tcl | 210 :group 'tcl |
200 :version "22.1") | 211 :version "22.1") |