Mercurial > emacs
annotate lisp/progmodes/tcl.el @ 108319:c3a1d1b47790 EMACS_PRETEST_23_1_96
Bump version to 23.1.96.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 19 Apr 2010 21:29:37 -0400 |
parents | 1d1d5d9bd884 |
children | d7a517f1b312 d30a1f654ca5 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
35712
diff
changeset
|
1 ;;; tcl.el --- Tcl code editing commands for Emacs |
6709 | 2 |
100908 | 3 ;; Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
6709 | 5 |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
6 ;; Maintainer: FSF |
43437
55d255989f05
(tcl-do-fill-paragraph): Find and fill on more
Richard M. Stallman <rms@gnu.org>
parents:
39754
diff
changeset
|
7 ;; Author: Tom Tromey <tromey@redhat.com> |
6710
85f4c4971597
Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents:
6709
diff
changeset
|
8 ;; Chris Lindblad <cjl@lcs.mit.edu> |
85f4c4971597
Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents:
6709
diff
changeset
|
9 ;; Keywords: languages tcl modes |
6709 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79717
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6709 | 14 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79717
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79717
diff
changeset
|
16 ;; (at your option) any later version. |
6709 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79717
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
6709 | 25 |
25163 | 26 ;; BEFORE USE: |
6709 | 27 ;; |
28 ;; If you plan to use the interface to the TclX help files, you must | |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
29 ;; set the variable tcl-help-directory-list to point to the topmost |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
30 ;; directories containing the TclX help files. Eg: |
6709 | 31 ;; |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
32 ;; (setq tcl-help-directory-list '("/usr/local/lib/tclx/help")) |
6709 | 33 ;; |
34 ;;; Commentary: | |
35 | |
36 ;; CUSTOMIZATION NOTES: | |
37 ;; * tcl-proc-list can be used to customize a list of things that | |
38 ;; "define" other things. Eg in my project I put "defvar" in this | |
39 ;; list. | |
40 ;; * tcl-typeword-list is similar, but uses font-lock-type-face. | |
41 ;; * tcl-keyword-list is a list of keywords. I've generally used this | |
42 ;; for flow-control words. Eg I add "unwind_protect" to this list. | |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
43 ;; * tcl-builtin-list lists commands to be given font-lock-builtin-face. |
6709 | 44 ;; * tcl-type-alist can be used to minimally customize indentation |
45 ;; according to context. | |
46 | |
25176 | 47 ;; THANKS FOR CRITICISM AND SUGGESTIONS TO: |
6709 | 48 ;; Guido Bosch <Guido.Bosch@loria.fr> |
49 ;; pgs1002@esc.cam.ac.uk (Dr P.G. Sjoerdsma) | |
50 ;; Mike Scheidler <c23mts@kocrsv01.delcoelect.com> | |
51 ;; Matt Newman <men@charney.colorado.edu> | |
52 ;; rwhitby@research.canon.oz.au (Rod Whitby) | |
53 ;; h9118101@hkuxa.hku.hk (Yip Chi Lap [Beta]) | |
54 ;; Pertti Tapio Kasanen <ptk@delta.hut.fi> | |
55 ;; schmid@fb3-s7.math.TU-Berlin.DE (Gregor Schmid) | |
8339
b6e4f16c969a
Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents:
8252
diff
changeset
|
56 ;; warsaw@nlm.nih.gov (Barry A. Warsaw) |
b6e4f16c969a
Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents:
8252
diff
changeset
|
57 ;; Carl Witty <cwitty@ai.mit.edu> |
8580
648f78c8ecf5
Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents:
8575
diff
changeset
|
58 ;; T. V. Raman <raman@crl.dec.com> |
11303
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
59 ;; Jesper Pedersen <blackie@imada.ou.dk> |
11787
635f5fb5d82a
Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents:
11303
diff
changeset
|
60 ;; dfarmer@evolving.com (Doug Farmer) |
12924
8172973fd6e4
(tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents:
12795
diff
changeset
|
61 ;; "Chris Alfeld" <calfeld@math.utah.edu> |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
62 ;; Ben Wing <ben@xemacs.org> |
6709 | 63 |
64 ;; KNOWN BUGS: | |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
65 ;; * In Tcl "#" is not always a comment character. This can confuse tcl.el |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
66 ;; in certain circumstances. For now the only workaround is to use |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
67 ;; font-lock which will mark the # chars accordingly or enclose offending |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
68 ;; hash characters in quotes or precede them with a backslash. Note that |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
69 ;; using braces won't work -- quotes change the syntax class of characters |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
70 ;; between them, while braces do not. If you don't use font-lock, the |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
71 ;; electric-# mode helps alleviate this problem somewhat. |
6709 | 72 ;; * indent-tcl-exp is untested. |
73 | |
74 ;; TODO: | |
75 ;; * make add-log-tcl-defun smarter. should notice if we are in the | |
76 ;; middle of a defun, or between defuns. should notice if point is | |
77 ;; on first line of defun (or maybe even in comments before defun). | |
78 ;; * Allow continuation lines to be indented under the first argument | |
44227
a1c4f9151348
(tcl-imenu-create-index-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43437
diff
changeset
|
79 ;; of the preceding line, like this: |
6709 | 80 ;; [list something \ |
81 ;; something-else] | |
82 ;; * There is a request that indentation work like this: | |
83 ;; button .fred -label Fred \ | |
84 ;; -command {puts fred} | |
85 ;; * Should have tcl-complete-symbol that queries the inferior process. | |
86 ;; * Should have describe-symbol that works by sending the magic | |
87 ;; command to a tclX process. | |
88 ;; * Need C-x C-e binding (tcl-eval-last-exp). | |
89 ;; * Write indent-region function that is faster than indenting each | |
90 ;; line individually. | |
91 ;; * tcl-figure-type should stop at "beginning of line" (only ws | |
92 ;; before point, and no "\" on previous line). (see tcl-real-command-p). | |
93 ;; * overrides some comint keybindings; fix. | |
94 ;; * Trailing \ will eat blank lines. Should deal with this. | |
95 ;; (this would help catch some potential bugs). | |
96 ;; * Inferior should display in half the screen, not the whole screen. | |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
97 ;; * Indentation should deal with "switch". |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
98 ;; * Consider writing code to find help files automatically (for |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
99 ;; common cases). |
7628 | 100 ;; * `#' shouldn't insert `\#' when point is in string. |
6709 | 101 |
102 | |
103 | |
104 ;;; Code: | |
105 | |
35712
350ba5553ea3
(outline, dabbrev, add-log): Require when
Gerd Moellmann <gerd@gnu.org>
parents:
29408
diff
changeset
|
106 (eval-when-compile |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
107 (require 'imenu) |
35712
350ba5553ea3
(outline, dabbrev, add-log): Require when
Gerd Moellmann <gerd@gnu.org>
parents:
29408
diff
changeset
|
108 (require 'outline) |
350ba5553ea3
(outline, dabbrev, add-log): Require when
Gerd Moellmann <gerd@gnu.org>
parents:
29408
diff
changeset
|
109 (require 'dabbrev) |
350ba5553ea3
(outline, dabbrev, add-log): Require when
Gerd Moellmann <gerd@gnu.org>
parents:
29408
diff
changeset
|
110 (require 'add-log)) |
350ba5553ea3
(outline, dabbrev, add-log): Require when
Gerd Moellmann <gerd@gnu.org>
parents:
29408
diff
changeset
|
111 |
6709 | 112 (require 'comint) |
113 | |
114 ;; | |
115 ;; User variables. | |
116 ;; | |
117 | |
25176 | 118 (defgroup tcl nil |
64053
fd24f2ae0e10
(tcl): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62531
diff
changeset
|
119 "Major mode for editing Tcl source in Emacs." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
64085
diff
changeset
|
120 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
25176 | 121 :group 'languages) |
122 | |
123 (defcustom tcl-indent-level 4 | |
124 "*Indentation of Tcl statements with respect to containing block." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
125 :type 'integer |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
126 :group 'tcl) |
78458
ab02dcd8b2b4
(tcl-indent-level, tcl-continued-indent-level): Add safe-local-variable prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78234
diff
changeset
|
127 (put 'tcl-indent-level 'safe-local-variable 'integerp) |
6709 | 128 |
25176 | 129 (defcustom tcl-continued-indent-level 4 |
130 "*Indentation of continuation line relative to first line of command." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
131 :type 'integer |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
132 :group 'tcl) |
78458
ab02dcd8b2b4
(tcl-indent-level, tcl-continued-indent-level): Add safe-local-variable prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78234
diff
changeset
|
133 (put 'tcl-continued-indent-level 'safe-local-variable 'integerp) |
6709 | 134 |
25176 | 135 (defcustom tcl-auto-newline nil |
136 "*Non-nil means automatically newline before and after braces you insert." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
137 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
138 :group 'tcl) |
6709 | 139 |
51056
5dbeffb17d8e
(tcl-indent-exp): Remove dead code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50856
diff
changeset
|
140 (defcustom tcl-tab-always-indent tab-always-indent |
6709 | 141 "*Control effect of TAB key. |
142 If t (the default), always indent current line. | |
143 If nil and point is not in the indentation area at the beginning of | |
144 the line, a TAB is inserted. | |
145 Other values cause the first possible action from the following list | |
146 to take place: | |
147 | |
148 1. Move from beginning of line to correct indentation. | |
149 2. Delete an empty comment. | |
150 3. Move forward to start of comment, indenting if necessary. | |
151 4. Move forward to end of line, indenting if necessary. | |
152 5. Create an empty comment. | |
25176 | 153 6. Move backward to start of comment, indenting if necessary." |
154 :type '(choice (const :tag "Always" t) | |
155 (const :tag "Beginning only" nil) | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
156 (const :tag "Maybe move or make or delete comment" 'tcl)) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
157 :group 'tcl) |
25176 | 158 |
6709 | 159 |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
160 (defcustom tcl-electric-hash-style nil ;; 'smart |
6709 | 161 "*Style of electric hash insertion to use. |
25163 | 162 Possible values are `backslash', meaning that `\\' quoting should be |
163 done; `quote', meaning that `\"' quoting should be done; `smart', | |
164 meaning that the choice between `backslash' and `quote' should be | |
6709 | 165 made depending on the number of hashes inserted; or nil, meaning that |
166 no quoting should be done. Any other value for this variable is | |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
167 taken to mean `smart'. The default is nil." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
168 :type '(choice (const backslash) (const quote) (const smart) (const nil)) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
169 :group 'tcl) |
6709 | 170 |
25176 | 171 (defcustom tcl-help-directory-list nil |
172 "*List of topmost directories containing TclX help files." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
173 :type '(repeat directory) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
174 :group 'tcl) |
6709 | 175 |
25176 | 176 (defcustom tcl-use-smart-word-finder t |
177 "*If not nil, use smart way to find current word, for Tcl help feature." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
178 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
179 :group 'tcl) |
6709 | 180 |
25176 | 181 (defcustom tcl-application "wish" |
182 "*Name of Tcl program to run in inferior Tcl mode." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
183 :type 'string |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
184 :group 'tcl) |
6709 | 185 |
25176 | 186 (defcustom tcl-command-switches nil |
187 "*List of switches to supply to the `tcl-application' program." | |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
188 :type '(repeat string) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
189 :group 'tcl) |
25176 | 190 |
191 (defcustom tcl-prompt-regexp "^\\(% \\|\\)" | |
6709 | 192 "*If not nil, a regexp that will match the prompt in the inferior process. |
193 If nil, the prompt is the name of the application with \">\" appended. | |
194 | |
195 The default is \"^\\(% \\|\\)\", which will match the default primary | |
25176 | 196 and secondary prompts for tclsh and wish." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
197 :type 'regexp |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
198 :group 'tcl) |
6709 | 199 |
25176 | 200 (defcustom inferior-tcl-source-command "source %s\n" |
6709 | 201 "*Format-string for building a Tcl command to load a file. |
202 This format string should use `%s' to substitute a file name | |
203 and should result in a Tcl expression that will command the | |
204 inferior Tcl to load that file. The filename will be appropriately | |
25176 | 205 quoted for Tcl." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
206 :type 'string |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
61314
diff
changeset
|
207 :group 'tcl) |
6709 | 208 |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
209 (defface tcl-escaped-newline '((t :inherit font-lock-string-face)) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
210 "Face used for (non-escaped) backslash at end of a line in Tcl mode." |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
211 :group 'tcl |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
212 :version "22.1") |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
213 |
6709 | 214 ;; |
215 ;; Keymaps, abbrevs, syntax tables. | |
216 ;; | |
217 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
218 (defvar tcl-mode-map |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
219 (let ((map (make-sparse-keymap))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
220 (define-key map "{" 'tcl-electric-char) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
221 (define-key map "}" 'tcl-electric-brace) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
222 (define-key map "[" 'tcl-electric-char) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
223 (define-key map "]" 'tcl-electric-char) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
224 (define-key map ";" 'tcl-electric-char) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
225 (define-key map "#" 'tcl-electric-hash) ;Remove? -stef |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
226 (define-key map "\e\C-q" 'tcl-indent-exp) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
227 (define-key map "\177" 'backward-delete-char-untabify) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
228 (define-key map "\t" 'tcl-indent-command) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
229 (define-key map "\M-\C-x" 'tcl-eval-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
230 (define-key map "\C-c\C-i" 'tcl-help-on-word) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
231 (define-key map "\C-c\C-v" 'tcl-eval-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
232 (define-key map "\C-c\C-f" 'tcl-load-file) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
233 (define-key map "\C-c\C-t" 'inferior-tcl) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
234 (define-key map "\C-c\C-x" 'tcl-eval-region) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
235 (define-key map "\C-c\C-s" 'switch-to-tcl) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
236 map) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
237 "Keymap used in `tcl-mode'.") |
6709 | 238 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
239 (defvar tcl-mode-syntax-table |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
240 (let ((st (make-syntax-table))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
241 (modify-syntax-entry ?% "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
242 (modify-syntax-entry ?@ "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
243 (modify-syntax-entry ?& "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
244 (modify-syntax-entry ?* "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
245 (modify-syntax-entry ?+ "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
246 (modify-syntax-entry ?- "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
247 (modify-syntax-entry ?. "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
248 (modify-syntax-entry ?: "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
249 (modify-syntax-entry ?! "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
250 (modify-syntax-entry ?$ "_" st) ; FIXME use "'"? |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
251 (modify-syntax-entry ?/ "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
252 (modify-syntax-entry ?~ "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
253 (modify-syntax-entry ?< "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
254 (modify-syntax-entry ?= "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
255 (modify-syntax-entry ?> "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
256 (modify-syntax-entry ?| "_" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
257 (modify-syntax-entry ?\( "()" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
258 (modify-syntax-entry ?\) ")(" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
259 (modify-syntax-entry ?\; "." st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
260 (modify-syntax-entry ?\n ">" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
261 ;; (modify-syntax-entry ?\f ">" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
262 (modify-syntax-entry ?# "<" st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
263 st) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
264 "Syntax table in use in `tcl-mode' buffers.") |
6709 | 265 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
266 (defvar inferior-tcl-mode-map |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
267 ;; FIXME we override comint keybindings here. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
268 ;; Maybe someone has a better set? |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
269 (let ((map (make-sparse-keymap))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
270 ;; Will inherit from `comint-mode-map' thanks to define-derived-mode. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
271 (define-key map "\t" 'comint-dynamic-complete) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
272 (define-key map "\M-?" 'comint-dynamic-list-filename-completions) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
273 (define-key map "\177" 'backward-delete-char-untabify) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
274 (define-key map "\M-\C-x" 'tcl-eval-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
275 (define-key map "\C-c\C-i" 'tcl-help-on-word) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
276 (define-key map "\C-c\C-v" 'tcl-eval-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
277 (define-key map "\C-c\C-f" 'tcl-load-file) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
278 (define-key map "\C-c\C-t" 'inferior-tcl) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
279 (define-key map "\C-c\C-x" 'tcl-eval-region) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
280 (define-key map "\C-c\C-s" 'switch-to-tcl) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
281 map) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
282 "Keymap used in `inferior-tcl-mode'.") |
6709 | 283 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
284 (easy-menu-define tcl-mode-menu tcl-mode-map "Menu used in `tcl-mode'." |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
285 '("Tcl" |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
286 ["Beginning of function" beginning-of-defun t] |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
287 ["End of function" end-of-defun t] |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
288 ["Mark function" mark-defun t] |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
289 ["Indent region" indent-region (mark t)] |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
290 ["Comment region" comment-region (mark t)] |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
291 ["Uncomment region" uncomment-region (mark t)] |
6709 | 292 "----" |
293 ["Show Tcl process buffer" inferior-tcl t] | |
7687
6447f9b3c966
Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7635
diff
changeset
|
294 ["Send function to Tcl process" tcl-eval-defun |
7781 | 295 (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] |
7687
6447f9b3c966
Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7635
diff
changeset
|
296 ["Send region to Tcl process" tcl-eval-region |
7781 | 297 (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] |
7687
6447f9b3c966
Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7635
diff
changeset
|
298 ["Send file to Tcl process" tcl-load-file |
7781 | 299 (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] |
6709 | 300 ["Restart Tcl process with file" tcl-restart-with-file t] |
301 "----" | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
302 ["Tcl help" tcl-help-on-word tcl-help-directory-list])) |
6709 | 303 |
304 (defvar inferior-tcl-buffer nil | |
305 "*The current inferior-tcl process buffer. | |
306 | |
307 MULTIPLE PROCESS SUPPORT | |
308 =========================================================================== | |
309 To run multiple Tcl processes, you start the first up with | |
310 \\[inferior-tcl]. It will be in a buffer named `*inferior-tcl*'. | |
311 Rename this buffer with \\[rename-buffer]. You may now start up a new | |
312 process with another \\[inferior-tcl]. It will be in a new buffer, | |
313 named `*inferior-tcl*'. You can switch between the different process | |
314 buffers with \\[switch-to-buffer]. | |
315 | |
316 Commands that send text from source buffers to Tcl processes -- like | |
317 `tcl-eval-defun' or `tcl-load-file' -- have to choose a process to | |
318 send to, when you have more than one Tcl process around. This is | |
319 determined by the global variable `inferior-tcl-buffer'. Suppose you | |
320 have three inferior Lisps running: | |
321 Buffer Process | |
322 foo inferior-tcl | |
323 bar inferior-tcl<2> | |
324 *inferior-tcl* inferior-tcl<3> | |
325 If you do a \\[tcl-eval-defun] command on some Lisp source code, what | |
326 process do you send it to? | |
327 | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
328 - If you're in a process buffer (foo, bar, or *inferior-tcl*), |
6709 | 329 you send it to that process. |
330 - If you're in some other buffer (e.g., a source file), you | |
331 send it to the process attached to buffer `inferior-tcl-buffer'. | |
332 This process selection is performed by function `inferior-tcl-proc'. | |
333 | |
334 Whenever \\[inferior-tcl] fires up a new process, it resets | |
335 `inferior-tcl-buffer' to be the new process's buffer. If you only run | |
336 one process, this does the right thing. If you run multiple | |
337 processes, you can change `inferior-tcl-buffer' to another process | |
338 buffer with \\[set-variable].") | |
339 | |
340 ;; | |
341 ;; Hooks and other customization. | |
342 ;; | |
343 | |
344 (defvar tcl-mode-hook nil | |
345 "Hook run on entry to Tcl mode. | |
346 | |
347 Several functions exist which are useful to run from your | |
348 `tcl-mode-hook' (see each function's documentation for more | |
349 information): | |
350 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
351 `tcl-guess-application' |
6709 | 352 Guesses a default setting for `tcl-application' based on any |
353 \"#!\" line at the top of the file. | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
354 `tcl-hashify-buffer' |
6709 | 355 Quotes all \"#\" characters that don't correspond to actual |
356 Tcl comments. (Useful when editing code not originally created | |
357 with this mode). | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
358 `tcl-auto-fill-mode' |
6709 | 359 Auto-filling of Tcl comments. |
360 | |
25163 | 361 Add functions to the hook with `add-hook': |
6709 | 362 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
363 (add-hook 'tcl-mode-hook 'tcl-guess-application)") |
6709 | 364 |
365 | |
366 (defvar tcl-proc-list | |
24954
503bd9d97ac4
(tcl-proc-list): Reverted; already had `body'.
Tom Tromey <tromey@redhat.com>
parents:
24953
diff
changeset
|
367 '("proc" "method" "itcl_class" "body" "configbody" "class") |
6709 | 368 "List of commands whose first argument defines something. |
25163 | 369 This exists because some people (eg, me) use `defvar' et al. |
6709 | 370 Call `tcl-set-proc-regexp' and `tcl-set-font-lock-keywords' |
371 after changing this list.") | |
372 | |
373 (defvar tcl-proc-regexp nil | |
374 "Regexp to use when matching proc headers.") | |
375 | |
376 (defvar tcl-typeword-list | |
22662 | 377 '("global" "upvar" "inherit" "public" "protected" "private" |
24957
e26249ed0833
(tcl-typeword-list): Added `variable'.
Tom Tromey <tromey@redhat.com>
parents:
24956
diff
changeset
|
378 "common" "itk_option" "variable") |
7612 | 379 "List of Tcl keywords denoting \"type\". Used only for highlighting. |
6709 | 380 Call `tcl-set-font-lock-keywords' after changing this list.") |
381 | |
382 ;; Generally I've picked control operators to be keywords. | |
383 (defvar tcl-keyword-list | |
384 '("if" "then" "else" "elseif" "for" "foreach" "break" "continue" "while" | |
385 "eval" "case" "in" "switch" "default" "exit" "error" "proc" "return" | |
12403
f863ead116f0
(tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents:
11793
diff
changeset
|
386 "uplevel" "constructor" "destructor" "itcl_class" "loop" "for_array_keys" |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
387 "for_recursive_glob" "for_file" "method" "body" "configbody" "class" |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
388 "chain") |
6709 | 389 "List of Tcl keywords. Used only for highlighting. |
390 Default list includes some TclX keywords. | |
391 Call `tcl-set-font-lock-keywords' after changing this list.") | |
392 | |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
393 (defvar tcl-builtin-list |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
394 '("after" "append" "array" "bgerror" "binary" "catch" "cd" "clock" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
395 "close" "concat" "console" "dde" "encoding" "eof" "exec" "expr" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
396 "fblocked" "fconfigure" "fcopy" "file" "fileevent" "flush" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
397 "format" "gets" "glob" "history" "incr" "info" "interp" "join" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
398 "lappend" "lindex" "linsert" "list" "llength" "load" "lrange" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
399 "lreplace" "lsort" "namespace" "open" "package" "pid" "puts" "pwd" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
400 "read" "regexp" "registry" "regsub" "rename" "scan" "seek" "set" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
401 "socket" "source" "split" "string" "subst" "tell" "time" "trace" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
402 "unknown" "unset" "vwait") |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
403 "List of Tcl commands. Used only for highlighting. |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
404 Call `tcl-set-font-lock-keywords' after changing this list. |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
405 This list excludes those commands already found in `tcl-proc-list' and |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
406 `tcl-keyword-list'.") |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
407 |
6709 | 408 (defvar tcl-font-lock-keywords nil |
409 "Keywords to highlight for Tcl. See variable `font-lock-keywords'. | |
410 This variable is generally set from `tcl-proc-regexp', | |
411 `tcl-typeword-list', and `tcl-keyword-list' by the function | |
412 `tcl-set-font-lock-keywords'.") | |
413 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
414 (defvar tcl-font-lock-syntactic-keywords |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
415 ;; Mark the few `#' that are not comment-markers. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
416 '(("[^;[{ \t\n][ \t]*\\(#\\)" (1 "."))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
417 "Syntactic keywords for `tcl-mode'.") |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
418 |
6709 | 419 ;; FIXME need some way to recognize variables because array refs look |
420 ;; like 2 sexps. | |
421 (defvar tcl-type-alist | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
422 '(("proc" nil tcl-expr tcl-commands) |
12404 | 423 ("method" nil tcl-expr tcl-commands) |
12405
abcf4791a9b0
(tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents:
12404
diff
changeset
|
424 ("destructor" tcl-commands) |
abcf4791a9b0
(tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents:
12404
diff
changeset
|
425 ("constructor" tcl-commands) |
6709 | 426 ("expr" tcl-expr) |
427 ("catch" tcl-commands) | |
428 ("if" tcl-expr "then" tcl-commands) | |
429 ("elseif" tcl-expr "then" tcl-commands) | |
430 ("elseif" tcl-expr tcl-commands) | |
431 ("if" tcl-expr tcl-commands) | |
432 ("while" tcl-expr tcl-commands) | |
433 ("for" tcl-commands tcl-expr tcl-commands tcl-commands) | |
434 ("foreach" nil nil tcl-commands) | |
435 ("for_file" nil nil tcl-commands) | |
436 ("for_array_keys" nil nil tcl-commands) | |
437 ("for_recursive_glob" nil nil nil tcl-commands) | |
438 ;; Loop handling is not perfect, because the third argument can be | |
439 ;; either a command or an expr, and there is no real way to look | |
440 ;; forward. | |
441 ("loop" nil tcl-expr tcl-expr tcl-commands) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
442 ("loop" nil tcl-expr tcl-commands)) |
6709 | 443 "Alist that controls indentation. |
444 \(Actually, this really only controls what happens on continuation lines). | |
445 Each entry looks like `(KEYWORD TYPE ...)'. | |
446 Each type entry describes a sexp after the keyword, and can be one of: | |
447 * nil, meaning that this sexp has no particular type. | |
448 * tcl-expr, meaning that this sexp is an arithmetic expression. | |
449 * tcl-commands, meaning that this sexp holds Tcl commands. | |
450 * a string, which must exactly match the string at the corresponding | |
451 position for a match to be made. | |
452 | |
453 For example, the entry for the \"loop\" command is: | |
454 | |
455 (\"loop\" nil tcl-expr tcl-commands) | |
456 | |
457 This means that the \"loop\" command has three arguments. The first | |
458 argument is ignored (for indentation purposes). The second argument | |
459 is a Tcl expression, and the last argument is Tcl commands.") | |
460 | |
461 (defvar tcl-explain-indentation nil | |
50856
2aec3e4bf957
(tcl-explain-indentation): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
49730
diff
changeset
|
462 "If non-nil, debugging message will be printed during indentation.") |
6709 | 463 |
464 | |
465 | |
49730
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
466 ;; Here's another stab. I think this one actually works. |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
467 ;; We have to be careful that the open-brace following this regexp |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
468 ;; is indeed the one corresponding to the function's body so |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
469 ;; that end-of-defun works correctly. Tricky cases are: |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
470 ;; proc foo { {arg1 def} arg2 } { |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
471 ;; as well as |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
472 ;; proc foo { \n {arg1 def} \n arg2 } { |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
473 ;; The current setting handles the first case properly but not the second. |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
474 ;; It also fails if `proc' is not in column-0 (e.g. it's in a namespace). |
58563
72c3587cd01b
(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58562
diff
changeset
|
475 (defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"#]+[ \t]+") |
6709 | 476 |
477 | |
478 | |
479 ;; | |
480 ;; Some helper functions. | |
481 ;; | |
482 | |
483 (defun tcl-set-proc-regexp () | |
484 "Set `tcl-proc-regexp' from variable `tcl-proc-list'." | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
485 (setq tcl-proc-regexp |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
486 (concat "^\\s-*" (regexp-opt tcl-proc-list t) "[ \t]+"))) |
6709 | 487 |
488 (defun tcl-set-font-lock-keywords () | |
489 "Set `tcl-font-lock-keywords'. | |
490 Uses variables `tcl-proc-regexp' and `tcl-keyword-list'." | |
491 (setq tcl-font-lock-keywords | |
492 (list | |
493 ;; Names of functions (and other "defining things"). | |
494 (list (concat tcl-proc-regexp "\\([^ \t\n]+\\)") | |
495 2 'font-lock-function-name-face) | |
496 | |
497 ;; Names of type-defining things. | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
498 (list (concat "\\(\\s-\\|^\\)" |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
499 (regexp-opt tcl-typeword-list t) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
500 "\\(\\s-\\|$\\)") |
6709 | 501 2 'font-lock-type-face) |
502 | |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
503 (list (concat "\\_<" (regexp-opt tcl-builtin-list t) "\\_>") |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
504 1 'font-lock-builtin-face) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
505 |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
506 ;; When variable names are enclosed in {} braces, any |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
507 ;; character can be used. Otherwise just letters, digits, |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
508 ;; underscores. Variable names can be prefixed with any |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
509 ;; number of "namespace::" qualifiers. A leading "::" refers |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
510 ;; to the global namespace. |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
511 '("\\${\\([^}]+\\)}" 1 font-lock-variable-name-face) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
512 '("\\$\\(\\(?:::\\)?\\(?:[[:alnum:]_]+::\\)*[[:alnum:]_]+\\)" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
513 1 font-lock-variable-name-face) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
514 '("\\(?:\\s-\\|^\\|\\[\\)set\\s-+{\\([^}]+\\)}" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
515 1 font-lock-variable-name-face keep) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
516 '("\\(?:\\s-\\|^\\|\\[\\)set\\s-+\\(\\(?:::\\)?\ |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
517 \\(?:[[:alnum:]_]+::\\)*[[:alnum:]_]+\\)" |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
518 1 font-lock-variable-name-face keep) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
519 |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
520 '("\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\)$" 3 'tcl-escaped-newline) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
521 |
6709 | 522 ;; Keywords. Only recognized if surrounded by whitespace. |
523 ;; FIXME consider using "not word or symbol", not | |
524 ;; "whitespace". | |
61246
ee782d6579a8
(tcl-set-font-lock-keywords): Use new \_< ops.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58563
diff
changeset
|
525 (cons (concat "\\_<" (regexp-opt tcl-keyword-list t) "\\_>") |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
526 1)))) |
6709 | 527 |
528 (if tcl-proc-regexp | |
529 () | |
530 (tcl-set-proc-regexp)) | |
531 | |
532 (if tcl-font-lock-keywords | |
533 () | |
534 (tcl-set-font-lock-keywords)) | |
535 | |
44316
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
536 |
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
537 (defvar tcl-imenu-generic-expression |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
538 `((nil ,(concat tcl-proc-regexp "\\([-A-Za-z0-9_:+*]+\\)") 2)) |
44316
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
539 "Imenu generic expression for `tcl-mode'. See `imenu-generic-expression'.") |
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
540 |
6709 | 541 |
542 | |
543 ;; | |
544 ;; The mode itself. | |
545 ;; | |
546 | |
8252
7d4674a34de3
Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7799
diff
changeset
|
547 ;;;###autoload |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
548 (define-derived-mode tcl-mode nil "Tcl" |
6709 | 549 "Major mode for editing Tcl code. |
550 Expression and list commands understand all Tcl brackets. | |
551 Tab indents for Tcl code. | |
552 Paragraphs are separated by blank lines only. | |
553 Delete converts tabs to spaces as it moves back. | |
554 | |
555 Variables controlling indentation style: | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
556 `tcl-indent-level' |
6709 | 557 Indentation of Tcl statements within surrounding block. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
558 `tcl-continued-indent-level' |
6709 | 559 Indentation of continuation line relative to first line of command. |
560 | |
561 Variables controlling user interaction with mode (see variable | |
562 documentation for details): | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
563 `tcl-tab-always-indent' |
6709 | 564 Controls action of TAB key. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
565 `tcl-auto-newline' |
6709 | 566 Non-nil means automatically newline before and after braces, brackets, |
567 and semicolons inserted in Tcl code. | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
568 `tcl-use-smart-word-finder' |
12644 | 569 If not nil, use a smarter, Tcl-specific way to find the current |
570 word when looking up help on a Tcl command. | |
6709 | 571 |
49730
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
572 Turning on Tcl mode runs `tcl-mode-hook'. Read the documentation for |
6709 | 573 `tcl-mode-hook' to see what kinds of interesting hook functions |
574 already exist. | |
575 | |
576 Commands: | |
577 \\{tcl-mode-map}" | |
44316
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
578 (unless (and (boundp 'filladapt-mode) filladapt-mode) |
48192
1acfacdf062a
(tcl-mode): Don't set paragraph-start,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44320
diff
changeset
|
579 (set (make-local-variable 'paragraph-ignore-fill-prefix) t)) |
7612 | 580 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
581 (set (make-local-variable 'indent-line-function) 'tcl-indent-line) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
582 (set (make-local-variable 'comment-indent-function) 'tcl-comment-indent) |
6709 | 583 ;; Tcl doesn't require a final newline. |
584 ;; (make-local-variable 'require-final-newline) | |
585 ;; (setq require-final-newline t) | |
7612 | 586 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
587 (set (make-local-variable 'comment-start) "# ") |
49730
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
588 (set (make-local-variable 'comment-start-skip) |
ce81e48eab6e
(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49598
diff
changeset
|
589 "\\(\\(^\\|[;{[]\\)\\s-*\\)#+ *") |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
590 (set (make-local-variable 'comment-end) "") |
11303
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
591 |
48192
1acfacdf062a
(tcl-mode): Don't set paragraph-start,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44320
diff
changeset
|
592 (set (make-local-variable 'outline-regexp) ".") |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
593 (set (make-local-variable 'outline-level) 'tcl-outline-level) |
7612 | 594 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
595 (set (make-local-variable 'font-lock-defaults) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
596 '(tcl-font-lock-keywords nil nil nil beginning-of-defun |
61314
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
597 (font-lock-syntactic-keywords . tcl-font-lock-syntactic-keywords) |
19126e0f7481
(tcl-escaped-newline): New face.
Glenn Morris <rgm@gnu.org>
parents:
61246
diff
changeset
|
598 (parse-sexp-lookup-properties . t))) |
12517
2f90abd1c659
(tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents:
12515
diff
changeset
|
599 |
44316
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
600 (set (make-local-variable 'imenu-generic-expression) |
51492
168bf1dc1b53
(tcl-mode): Set imenu-generic-expression to the value of
Juanma Barranquero <lekktu@gmail.com>
parents:
51056
diff
changeset
|
601 tcl-imenu-generic-expression) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
602 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
603 ;; Settings for new dabbrev code. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
604 (set (make-local-variable 'dabbrev-case-fold-search) nil) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
605 (set (make-local-variable 'dabbrev-case-replace) nil) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
606 (set (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) "[$!]") |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
607 (set (make-local-variable 'dabbrev-abbrev-char-regexp) "\\sw\\|\\s_") |
7612 | 608 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
609 ;; This can only be set to t in Emacs 19 and XEmacs. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
610 ;; Emacs 18 and Epoch lose. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
611 (set (make-local-variable 'parse-sexp-ignore-comments) t) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
612 ;; XEmacs has defun-prompt-regexp, but I don't believe |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
613 ;; that it works for end-of-defun -- only for |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
614 ;; beginning-of-defun. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
615 (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
616 ;; The following doesn't work in Lucid Emacs 19.6, but maybe |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
617 ;; it will appear in later versions. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
618 (set (make-local-variable 'add-log-current-defun-function) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
619 'tcl-add-log-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
620 |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
621 (easy-menu-add tcl-mode-menu) |
11787
635f5fb5d82a
Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents:
11303
diff
changeset
|
622 ;; Append Tcl menu to popup menu for XEmacs. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
623 (if (boundp 'mode-popup-menu) |
12520
ad24dd8cec5c
Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents:
12517
diff
changeset
|
624 (setq mode-popup-menu |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
625 (cons (concat mode-name " Mode Commands") tcl-mode-menu)))) |
6709 | 626 |
627 | |
628 | |
629 ;; This is used for braces, brackets, and semi (except for closing | |
630 ;; braces, which are handled specially). | |
631 (defun tcl-electric-char (arg) | |
632 "Insert character and correct line's indentation." | |
633 (interactive "p") | |
634 ;; Indent line first; this looks better if parens blink. | |
635 (tcl-indent-line) | |
636 (self-insert-command arg) | |
101002
3b3c7e10cd97
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
637 (if (and tcl-auto-newline (= last-command-event ?\;)) |
6709 | 638 (progn |
639 (newline) | |
640 (tcl-indent-line)))) | |
641 | |
642 ;; This is used for closing braces. If tcl-auto-newline is set, can | |
643 ;; insert a newline both before and after the brace, depending on | |
644 ;; context. FIXME should this be configurable? Does anyone use this? | |
645 (defun tcl-electric-brace (arg) | |
646 "Insert character and correct line's indentation." | |
647 (interactive "p") | |
648 ;; If auto-newlining and there is stuff on the same line, insert a | |
649 ;; newline first. | |
650 (if tcl-auto-newline | |
651 (progn | |
652 (if (save-excursion | |
653 (skip-chars-backward " \t") | |
654 (bolp)) | |
655 () | |
656 (tcl-indent-line) | |
657 (newline)) | |
658 ;; In auto-newline case, must insert a newline after each | |
659 ;; brace. So an explicit loop is needed. | |
660 (while (> arg 0) | |
101002
3b3c7e10cd97
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
661 (insert last-command-event) |
6709 | 662 (tcl-indent-line) |
663 (newline) | |
664 (setq arg (1- arg)))) | |
665 (self-insert-command arg)) | |
666 (tcl-indent-line)) | |
667 | |
668 | |
669 | |
670 (defun tcl-indent-command (&optional arg) | |
671 "Indent current line as Tcl code, or in some cases insert a tab character. | |
25163 | 672 If `tcl-tab-always-indent' is t (the default), always indent current line. |
673 If `tcl-tab-always-indent' is nil and point is not in the indentation | |
6709 | 674 area at the beginning of the line, a TAB is inserted. |
25163 | 675 Other values of `tcl-tab-always-indent' cause the first possible action |
6709 | 676 from the following list to take place: |
677 | |
678 1. Move from beginning of line to correct indentation. | |
679 2. Delete an empty comment. | |
680 3. Move forward to start of comment, indenting if necessary. | |
681 4. Move forward to end of line, indenting if necessary. | |
682 5. Create an empty comment. | |
683 6. Move backward to start of comment, indenting if necessary." | |
684 (interactive "p") | |
68124
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
685 (if (memq tcl-tab-always-indent '(nil t)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
686 (let ((tab-always-indent tcl-tab-always-indent)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
687 (call-interactively 'indent-for-tab-command)) |
6709 | 688 ;; "Perl-mode" style TAB command. |
689 (let* ((ipoint (point)) | |
690 (eolpoint (progn | |
691 (end-of-line) | |
692 (point))) | |
693 (comment-p (tcl-in-comment))) | |
694 (cond | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
695 ((= ipoint (line-beginning-position)) |
6709 | 696 (beginning-of-line) |
697 (tcl-indent-line) | |
698 ;; If indenting didn't leave us in column 0, go to the | |
699 ;; indentation. Otherwise leave point at end of line. This | |
700 ;; is a hack. | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
701 (if (= (point) (line-beginning-position)) |
6709 | 702 (end-of-line) |
703 (back-to-indentation))) | |
704 ((and comment-p (looking-at "[ \t]*$")) | |
705 ;; Empty comment, so delete it. We also delete any ";" | |
706 ;; characters at the end of the line. I think this is | |
707 ;; friendlier, but I don't know how other people will feel. | |
708 (backward-char) | |
709 (skip-chars-backward " \t;") | |
710 (delete-region (point) eolpoint)) | |
711 ((and comment-p (< ipoint (point))) | |
712 ;; Before comment, so skip to it. | |
713 (tcl-indent-line) | |
714 (indent-for-comment)) | |
715 ((/= ipoint eolpoint) | |
716 ;; Go to end of line (since we're not there yet). | |
717 (goto-char eolpoint) | |
718 (tcl-indent-line)) | |
719 ((not comment-p) | |
720 (tcl-indent-line) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
721 (comment-indent)) |
6709 | 722 (t |
723 ;; Go to start of comment. We don't leave point where it is | |
724 ;; because we want to skip comment-start-skip. | |
725 (tcl-indent-line) | |
68124
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
726 (indent-for-comment)))))) |
6709 | 727 |
728 (defun tcl-indent-line () | |
729 "Indent current line as Tcl code. | |
730 Return the amount the indentation changed by." | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
731 (let ((indent (tcl-calculate-indent nil)) |
6709 | 732 beg shift-amt |
733 (case-fold-search nil) | |
734 (pos (- (point-max) (point)))) | |
68124
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
735 (if (null indent) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
736 'noindent |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
737 (beginning-of-line) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
738 (setq beg (point)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
739 (skip-chars-forward " \t") |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
740 (if (listp indent) (setq indent (car indent))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
741 (cond ((= (following-char) ?}) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
742 (setq indent (- indent tcl-indent-level))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
743 ((= (following-char) ?\]) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
744 (setq indent (- indent 1)))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
745 (skip-chars-forward " \t") |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
746 (setq shift-amt (- indent (current-column))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
747 (if (zerop shift-amt) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
748 (if (> (- (point-max) pos) (point)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
749 (goto-char (- (point-max) pos))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
750 (delete-region beg (point)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
751 (indent-to indent) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
752 ;; If initial point was within line's indentation, |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
753 ;; position after the indentation. Else stay at same point in text. |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
754 (if (> (- (point-max) pos) (point)) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
755 (goto-char (- (point-max) pos)))) |
32fc565ba875
(tcl-indent-command): Use indent-for-tab-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
756 shift-amt))) |
6709 | 757 |
758 (defun tcl-figure-type () | |
759 "Determine type of sexp at point. | |
25163 | 760 This is either `tcl-expr', `tcl-commands', or nil. Puts point at start |
6709 | 761 of sexp that indicates types. |
762 | |
763 See documentation for variable `tcl-type-alist' for more information." | |
764 (let ((count 0) | |
765 result | |
766 word-stack) | |
767 (while (and (< count 5) | |
768 (not result)) | |
769 (condition-case nil | |
770 (progn | |
771 ;; FIXME should use "tcl-backward-sexp", which would skip | |
772 ;; over entire variables, etc. | |
773 (backward-sexp) | |
774 (if (looking-at "[a-zA-Z_]+") | |
775 (let ((list tcl-type-alist) | |
776 entry) | |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
777 (setq word-stack (cons (tcl-word-no-props) word-stack)) |
6709 | 778 (while (and list (not result)) |
779 (setq entry (car list)) | |
780 (setq list (cdr list)) | |
781 (let ((index 0)) | |
782 (while (and entry (<= index count)) | |
783 ;; Abort loop if string does not match word on | |
784 ;; stack. | |
785 (and (stringp (car entry)) | |
786 (not (string= (car entry) | |
787 (nth index word-stack))) | |
788 (setq entry nil)) | |
789 (setq entry (cdr entry)) | |
790 (setq index (1+ index))) | |
791 (and (> index count) | |
792 (not (stringp (car entry))) | |
793 (setq result (car entry))) | |
794 ))) | |
795 (setq word-stack (cons nil word-stack)))) | |
796 (error nil)) | |
797 (setq count (1+ count))) | |
798 (and tcl-explain-indentation | |
799 (message "Indentation type %s" result)) | |
800 result)) | |
801 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
802 (defun tcl-calculate-indent (&optional parse-start) |
6709 | 803 "Return appropriate indentation for current line as Tcl code. |
804 In usual case returns an integer: the column to indent to. | |
805 Returns nil if line starts inside a string, t if in a comment." | |
806 (save-excursion | |
807 (beginning-of-line) | |
808 (let* ((indent-point (point)) | |
809 (case-fold-search nil) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
810 (continued-line |
6709 | 811 (save-excursion |
812 (if (bobp) | |
813 nil | |
814 (backward-char) | |
815 (= ?\\ (preceding-char))))) | |
816 (continued-indent-value (if continued-line | |
817 tcl-continued-indent-level | |
818 0)) | |
819 state | |
820 containing-sexp | |
821 found-next-line) | |
822 (if parse-start | |
823 (goto-char parse-start) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
824 (beginning-of-defun)) |
6709 | 825 (while (< (point) indent-point) |
826 (setq parse-start (point)) | |
827 (setq state (parse-partial-sexp (point) indent-point 0)) | |
828 (setq containing-sexp (car (cdr state)))) | |
829 (cond ((or (nth 3 state) (nth 4 state)) | |
830 ;; Inside comment or string. Return nil or t if should | |
831 ;; not change this line | |
832 (nth 4 state)) | |
833 ((null containing-sexp) | |
834 ;; Line is at top level. | |
835 continued-indent-value) | |
836 (t | |
837 ;; Set expr-p if we are looking at the expression part of | |
838 ;; an "if", "expr", etc statement. Set commands-p if we | |
839 ;; are looking at the body part of an if, while, etc | |
840 ;; statement. FIXME Should check for "for" loops here. | |
841 (goto-char containing-sexp) | |
842 (let* ((sexpr-type (tcl-figure-type)) | |
843 (expr-p (eq sexpr-type 'tcl-expr)) | |
844 (commands-p (eq sexpr-type 'tcl-commands)) | |
845 (expr-start (point))) | |
846 ;; Find the first statement in the block and indent | |
847 ;; like it. The first statement in the block might be | |
848 ;; on the same line, so what we do is skip all | |
849 ;; "virtually blank" lines, looking for a non-blank | |
850 ;; one. A line is virtually blank if it only contains | |
851 ;; a comment and whitespace. FIXME continued comments | |
852 ;; aren't supported. They are a wart on Tcl anyway. | |
853 ;; We do it this funky way because we want to know if | |
854 ;; we've found a statement on some line _after_ the | |
855 ;; line holding the sexp opener. | |
856 (goto-char containing-sexp) | |
857 (forward-char) | |
858 (if (and (< (point) indent-point) | |
859 (looking-at "[ \t]*\\(#.*\\)?$")) | |
860 (progn | |
861 (forward-line) | |
862 (while (and (< (point) indent-point) | |
863 (looking-at "[ \t]*\\(#.*\\)?$")) | |
864 (setq found-next-line t) | |
865 (forward-line)))) | |
866 (if (or continued-line | |
867 (/= (char-after containing-sexp) ?{) | |
868 expr-p) | |
869 (progn | |
870 ;; Line is continuation line, or the sexp opener | |
871 ;; is not a curly brace, or we are are looking at | |
872 ;; an `expr' expression (which must be split | |
873 ;; specially). So indentation is column of first | |
874 ;; good spot after sexp opener (with some added | |
875 ;; in the continued-line case). If there is no | |
876 ;; nonempty line before the indentation point, we | |
877 ;; use the column of the character after the sexp | |
878 ;; opener. | |
879 (if (>= (point) indent-point) | |
880 (progn | |
881 (goto-char containing-sexp) | |
882 (forward-char)) | |
883 (skip-chars-forward " \t")) | |
884 (+ (current-column) continued-indent-value)) | |
885 ;; After a curly brace, and not a continuation line. | |
886 ;; So take indentation from first good line after | |
887 ;; start of block, unless that line is on the same | |
888 ;; line as the opening brace. In this case use the | |
889 ;; indentation of the opening brace's line, plus | |
890 ;; another indent step. If we are in the body part | |
891 ;; of an "if" or "while" then the indentation is | |
892 ;; taken from the line holding the start of the | |
893 ;; statement. | |
894 (if (and (< (point) indent-point) | |
895 found-next-line) | |
896 (current-indentation) | |
897 (if commands-p | |
898 (goto-char expr-start) | |
899 (goto-char containing-sexp)) | |
900 (+ (current-indentation) tcl-indent-level))))))))) | |
901 | |
902 | |
903 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
904 (defun tcl-indent-exp () |
6709 | 905 "Indent each line of the Tcl grouping following point." |
906 (interactive) | |
907 (let ((indent-stack (list nil)) | |
908 (contain-stack (list (point))) | |
909 (case-fold-search nil) | |
910 outer-loop-done inner-loop-done state ostate | |
51056
5dbeffb17d8e
(tcl-indent-exp): Remove dead code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50856
diff
changeset
|
911 this-indent continued-line |
6709 | 912 (next-depth 0) |
913 last-depth) | |
914 (save-excursion | |
915 (forward-sexp 1)) | |
916 (save-excursion | |
917 (setq outer-loop-done nil) | |
918 (while (and (not (eobp)) (not outer-loop-done)) | |
919 (setq last-depth next-depth) | |
920 ;; Compute how depth changes over this line | |
921 ;; plus enough other lines to get to one that | |
922 ;; does not end inside a comment or string. | |
923 ;; Meanwhile, do appropriate indentation on comment lines. | |
924 (setq inner-loop-done nil) | |
925 (while (and (not inner-loop-done) | |
926 (not (and (eobp) (setq outer-loop-done t)))) | |
927 (setq ostate state) | |
928 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point)) | |
929 nil nil state)) | |
930 (setq next-depth (car state)) | |
931 (if (or (nth 4 ostate)) | |
932 (tcl-indent-line)) | |
933 (if (or (nth 3 state)) | |
934 (forward-line 1) | |
935 (setq inner-loop-done t))) | |
936 (if (<= next-depth 0) | |
937 (setq outer-loop-done t)) | |
938 (if outer-loop-done | |
939 nil | |
940 ;; If this line had ..))) (((.. in it, pop out of the levels | |
941 ;; that ended anywhere in this line, even if the final depth | |
942 ;; doesn't indicate that they ended. | |
943 (while (> last-depth (nth 6 state)) | |
944 (setq indent-stack (cdr indent-stack) | |
945 contain-stack (cdr contain-stack) | |
946 last-depth (1- last-depth))) | |
947 ;; Add levels for any parens that were started in this line. | |
948 (while (< last-depth next-depth) | |
949 (setq indent-stack (cons nil indent-stack) | |
950 contain-stack (cons nil contain-stack) | |
951 last-depth (1+ last-depth))) | |
952 (if (null (car contain-stack)) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
953 (setcar contain-stack |
6709 | 954 (or (car (cdr state)) |
955 (save-excursion | |
956 (forward-sexp -1) | |
957 (point))))) | |
958 (forward-line 1) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
959 (setq continued-line |
6709 | 960 (save-excursion |
961 (backward-char) | |
962 (= (preceding-char) ?\\))) | |
963 (skip-chars-forward " \t") | |
964 (if (eolp) | |
965 nil | |
966 (if (and (car indent-stack) | |
967 (>= (car indent-stack) 0)) | |
968 ;; Line is on an existing nesting level. | |
969 (setq this-indent (car indent-stack)) | |
970 ;; Just started a new nesting level. | |
971 ;; Compute the standard indent for this level. | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
972 (let ((val (tcl-calculate-indent |
6709 | 973 (if (car indent-stack) |
974 (- (car indent-stack)))))) | |
975 (setcar indent-stack | |
976 (setq this-indent val)) | |
977 (setq continued-line nil))) | |
978 (cond ((not (numberp this-indent))) | |
979 ((= (following-char) ?}) | |
980 (setq this-indent (- this-indent tcl-indent-level))) | |
981 ((= (following-char) ?\]) | |
982 (setq this-indent (- this-indent 1)))) | |
983 ;; Put chosen indentation into effect. | |
984 (or (null this-indent) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
985 (= (current-column) |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
986 (if continued-line |
6709 | 987 (+ this-indent tcl-indent-level) |
988 this-indent)) | |
989 (progn | |
990 (delete-region (point) (progn (beginning-of-line) (point))) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
991 (indent-to |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48192
diff
changeset
|
992 (if continued-line |
6709 | 993 (+ this-indent tcl-indent-level) |
994 this-indent))))))))) | |
995 ) | |
996 | |
997 | |
998 | |
999 ;; | |
1000 ;; Interfaces to other packages. | |
1001 ;; | |
1002 | |
1003 ;; FIXME Definition of function is very ad-hoc. Should use | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1004 ;; beginning-of-defun. Also has incestuous knowledge about the |
6709 | 1005 ;; format of tcl-proc-regexp. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1006 (defun tcl-add-log-defun () |
6709 | 1007 "Return name of Tcl function point is in, or nil." |
1008 (save-excursion | |
13698
a5b05f960c30
(add-log-tcl-defun): Don't use tcl-beginning-of-defun; just go to end
Tom Tromey <tromey@redhat.com>
parents:
13697
diff
changeset
|
1009 (end-of-line) |
a5b05f960c30
(add-log-tcl-defun): Don't use tcl-beginning-of-defun; just go to end
Tom Tromey <tromey@redhat.com>
parents:
13697
diff
changeset
|
1010 (if (re-search-backward (concat tcl-proc-regexp "\\([^ \t\n{]+\\)") nil t) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1011 (match-string 2)))) |
6709 | 1012 |
11303
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
1013 (defun tcl-outline-level () |
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
1014 (save-excursion |
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
1015 (skip-chars-forward " \t") |
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
1016 (current-column))) |
7823947372f9
(tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents:
9428
diff
changeset
|
1017 |
6709 | 1018 |
1019 | |
1020 ;; | |
1021 ;; Helper functions for inferior Tcl mode. | |
1022 ;; | |
1023 | |
1024 ;; This exists to let us delete the prompt when commands are sent | |
1025 ;; directly to the inferior Tcl. See gud.el for an explanation of how | |
1026 ;; it all works (I took it from there). This stuff doesn't really | |
1027 ;; work as well as I'd like it to. But I don't believe there is | |
1028 ;; anything useful that can be done. | |
1029 (defvar inferior-tcl-delete-prompt-marker nil) | |
1030 | |
1031 (defun tcl-filter (proc string) | |
99776
46cd7381c2ff
(tcl-filter): Don't forcibly move point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94673
diff
changeset
|
1032 (let ((inhibit-quit t)) ;FIXME: Isn't that redundant? |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1033 (with-current-buffer (process-buffer proc) |
6709 | 1034 ;; Delete prompt if requested. |
99776
46cd7381c2ff
(tcl-filter): Don't forcibly move point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94673
diff
changeset
|
1035 (when (marker-buffer inferior-tcl-delete-prompt-marker) |
46cd7381c2ff
(tcl-filter): Don't forcibly move point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94673
diff
changeset
|
1036 (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker) |
46cd7381c2ff
(tcl-filter): Don't forcibly move point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94673
diff
changeset
|
1037 (set-marker inferior-tcl-delete-prompt-marker nil)))) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1038 (comint-output-filter proc string)) |
6709 | 1039 |
1040 (defun tcl-send-string (proc string) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1041 (with-current-buffer (process-buffer proc) |
6709 | 1042 (goto-char (process-mark proc)) |
70093
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1043 (forward-line 0) ;Not (beginning-of-line) because of fields. |
6709 | 1044 (if (looking-at comint-prompt-regexp) |
1045 (set-marker inferior-tcl-delete-prompt-marker (point)))) | |
1046 (comint-send-string proc string)) | |
1047 | |
1048 (defun tcl-send-region (proc start end) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1049 (with-current-buffer (process-buffer proc) |
6709 | 1050 (goto-char (process-mark proc)) |
70093
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1051 (forward-line 0) ;Not (beginning-of-line) because of fields. |
6709 | 1052 (if (looking-at comint-prompt-regexp) |
1053 (set-marker inferior-tcl-delete-prompt-marker (point)))) | |
1054 (comint-send-region proc start end)) | |
1055 | |
1056 (defun switch-to-tcl (eob-p) | |
1057 "Switch to inferior Tcl process buffer. | |
1058 With argument, positions cursor at end of buffer." | |
1059 (interactive "P") | |
1060 (if (get-buffer inferior-tcl-buffer) | |
1061 (pop-to-buffer inferior-tcl-buffer) | |
1062 (error "No current inferior Tcl buffer")) | |
1063 (cond (eob-p | |
1064 (push-mark) | |
1065 (goto-char (point-max))))) | |
1066 | |
1067 (defun inferior-tcl-proc () | |
1068 "Return current inferior Tcl process. | |
1069 See variable `inferior-tcl-buffer'." | |
1070 (let ((proc (get-buffer-process (if (eq major-mode 'inferior-tcl-mode) | |
1071 (current-buffer) | |
1072 inferior-tcl-buffer)))) | |
1073 (or proc | |
1074 (error "No Tcl process; see variable `inferior-tcl-buffer'")))) | |
1075 | |
1076 (defun tcl-eval-region (start end &optional and-go) | |
1077 "Send the current region to the inferior Tcl process. | |
1078 Prefix argument means switch to the Tcl buffer afterwards." | |
1079 (interactive "r\nP") | |
1080 (let ((proc (inferior-tcl-proc))) | |
70093
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1081 (tcl-send-region |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1082 proc |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1083 ;; Strip leading and trailing whitespace. |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1084 (save-excursion (goto-char start) (skip-chars-forward " \t\n") (point)) |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1085 (save-excursion (goto-char end) (skip-chars-backward " \t\n") (point))) |
6709 | 1086 (tcl-send-string proc "\n") |
1087 (if and-go (switch-to-tcl t)))) | |
1088 | |
1089 (defun tcl-eval-defun (&optional and-go) | |
1090 "Send the current defun to the inferior Tcl process. | |
1091 Prefix argument means switch to the Tcl buffer afterwards." | |
1092 (interactive "P") | |
1093 (save-excursion | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1094 (end-of-defun) |
6709 | 1095 (let ((end (point))) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1096 (beginning-of-defun) |
6709 | 1097 (tcl-eval-region (point) end))) |
1098 (if and-go (switch-to-tcl t))) | |
1099 | |
1100 | |
1101 | |
1102 ;; | |
1103 ;; Inferior Tcl mode itself. | |
1104 ;; | |
1105 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1106 (define-derived-mode inferior-tcl-mode comint-mode "Inferior Tcl" |
6709 | 1107 "Major mode for interacting with Tcl interpreter. |
1108 | |
44316
443cf26a410a
(tcl-imenu-generic-expression): New value.
Richard M. Stallman <rms@gnu.org>
parents:
44227
diff
changeset
|
1109 You can start a Tcl process with \\[inferior-tcl]. |
6709 | 1110 |
25163 | 1111 Entry to this mode runs the normal hooks `comint-mode-hook' and |
1112 `inferior-tcl-mode-hook', in that order. | |
6709 | 1113 |
1114 You can send text to the inferior Tcl process from other buffers | |
1115 containing Tcl source. | |
1116 | |
1117 Variables controlling Inferior Tcl mode: | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1118 `tcl-application' |
6709 | 1119 Name of program to run. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1120 `tcl-command-switches' |
6709 | 1121 Command line arguments to `tcl-application'. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1122 `tcl-prompt-regexp' |
6709 | 1123 Matches prompt. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1124 `inferior-tcl-source-command' |
6709 | 1125 Command to use to read Tcl file in running application. |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1126 `inferior-tcl-buffer' |
6709 | 1127 The current inferior Tcl process buffer. See variable |
1128 documentation for details on multiple-process support. | |
1129 | |
1130 The following commands are available: | |
1131 \\{inferior-tcl-mode-map}" | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1132 (set (make-local-variable 'comint-prompt-regexp) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1133 (or tcl-prompt-regexp |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1134 (concat "^" (regexp-quote tcl-application) ">"))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1135 (setq mode-line-process '(": %s")) |
6709 | 1136 (setq local-abbrev-table tcl-mode-abbrev-table) |
1137 (set-syntax-table tcl-mode-syntax-table) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1138 (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1139 (set (make-local-variable 'inferior-tcl-delete-prompt-marker) (make-marker)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1140 (set-process-filter (get-buffer-process (current-buffer)) 'tcl-filter)) |
6709 | 1141 |
8252
7d4674a34de3
Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7799
diff
changeset
|
1142 ;;;###autoload |
6709 | 1143 (defun inferior-tcl (cmd) |
1144 "Run inferior Tcl process. | |
1145 Prefix arg means enter program name interactively. | |
1146 See documentation for function `inferior-tcl-mode' for more information." | |
1147 (interactive | |
1148 (list (if current-prefix-arg | |
1149 (read-string "Run Tcl: " tcl-application) | |
1150 tcl-application))) | |
57188
03a731220a33
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
Jesper Harder <harder@ifa.au.dk>
parents:
54770
diff
changeset
|
1151 (unless (comint-check-proc "*inferior-tcl*") |
03a731220a33
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
Jesper Harder <harder@ifa.au.dk>
parents:
54770
diff
changeset
|
1152 (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil |
03a731220a33
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
Jesper Harder <harder@ifa.au.dk>
parents:
54770
diff
changeset
|
1153 tcl-command-switches)) |
70093
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1154 (inferior-tcl-mode) |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1155 ;; Make tclsh display a prompt on ms-windows (or under Unix, when a tty |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1156 ;; wasn't used). Doesn't affect wish, unfortunately. |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1157 (unless (process-tty-name (inferior-tcl-proc)) |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1158 (tcl-send-string (inferior-tcl-proc) |
da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68124
diff
changeset
|
1159 "set ::tcl_interactive 1; concat\n"))) |
57188
03a731220a33
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
Jesper Harder <harder@ifa.au.dk>
parents:
54770
diff
changeset
|
1160 (set (make-local-variable 'tcl-application) cmd) |
6709 | 1161 (setq inferior-tcl-buffer "*inferior-tcl*") |
57188
03a731220a33
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
Jesper Harder <harder@ifa.au.dk>
parents:
54770
diff
changeset
|
1162 (pop-to-buffer "*inferior-tcl*")) |
6709 | 1163 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1164 (defalias 'run-tcl 'inferior-tcl) |
6709 | 1165 |
1166 | |
1167 | |
1168 ;; | |
1169 ;; Auto-fill support. | |
1170 ;; | |
1171 | |
1172 (defun tcl-real-command-p () | |
1173 "Return nil if point is not at the beginning of a command. | |
1174 A command is the first word on an otherwise empty line, or the | |
1175 first word following a semicolon, opening brace, or opening bracket." | |
1176 (save-excursion | |
1177 (skip-chars-backward " \t") | |
1178 (cond | |
1179 ((bobp) t) | |
1180 ((bolp) | |
1181 (backward-char) | |
1182 ;; Note -- continued comments are not supported here. I | |
1183 ;; consider those to be a wart on the language. | |
1184 (not (eq ?\\ (preceding-char)))) | |
1185 (t | |
1186 (memq (preceding-char) '(?\; ?{ ?\[)))))) | |
1187 | |
1188 ;; FIXME doesn't actually return t. See last case. | |
1189 (defun tcl-real-comment-p () | |
1190 "Return t if point is just after the `#' beginning a real comment. | |
1191 Does not check to see if previous char is actually `#'. | |
1192 A real comment is either at the beginning of the buffer, | |
44227
a1c4f9151348
(tcl-imenu-create-index-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43437
diff
changeset
|
1193 preceded only by whitespace on the line, or has a preceding |
6709 | 1194 semicolon, opening brace, or opening bracket on the same line." |
1195 (save-excursion | |
1196 (backward-char) | |
1197 (tcl-real-command-p))) | |
1198 | |
1199 (defun tcl-hairy-scan-for-comment (state end always-stop) | |
1200 "Determine if point is in a comment. | |
1201 Returns a list of the form `(FLAG . STATE)'. STATE can be used | |
1202 as input to future invocations. FLAG is nil if not in comment, | |
1203 t otherwise. If in comment, leaves point at beginning of comment. | |
25163 | 1204 |
1205 This function does not work in Emacs 18. | |
1206 See also `tcl-simple-scan-for-comment', a | |
6709 | 1207 simpler version that is often right, and works in Emacs 18." |
1208 (let ((bol (save-excursion | |
1209 (goto-char end) | |
1210 (beginning-of-line) | |
1211 (point))) | |
1212 real-comment | |
1213 last-cstart) | |
1214 (while (and (not last-cstart) (< (point) end)) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1215 (setq real-comment nil) ;In case we've looped around and it is set. |
6709 | 1216 (setq state (parse-partial-sexp (point) end nil nil state t)) |
1217 (if (nth 4 state) | |
1218 (progn | |
1219 ;; If ALWAYS-STOP is set, stop even if we don't have a | |
1220 ;; real comment, or if the comment isn't on the same line | |
1221 ;; as the end. | |
1222 (if always-stop (setq last-cstart (point))) | |
1223 ;; If we have a real comment, then set the comment | |
1224 ;; starting point if we are on the same line as the ending | |
1225 ;; location. | |
1226 (setq real-comment (tcl-real-comment-p)) | |
1227 (if real-comment | |
1228 (progn | |
1229 (and (> (point) bol) (setq last-cstart (point))) | |
1230 ;; NOTE Emacs 19 has a misfeature whereby calling | |
1231 ;; parse-partial-sexp with COMMENTSTOP set and with | |
1232 ;; an initial list that says point is in a comment | |
1233 ;; will cause an immediate return. So we must skip | |
1234 ;; over the comment ourselves. | |
1235 (beginning-of-line 2))) | |
1236 ;; Frob the state to make it look like we aren't in a | |
1237 ;; comment. | |
1238 (setcar (nthcdr 4 state) nil)))) | |
1239 (and last-cstart | |
1240 (goto-char last-cstart)) | |
1241 (cons real-comment state))) | |
1242 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1243 (defun tcl-in-comment () |
25163 | 1244 "Return t if point is in a comment, and leave point at beginning of comment." |
6709 | 1245 (let ((save (point))) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1246 (beginning-of-defun) |
6709 | 1247 (car (tcl-hairy-scan-for-comment nil save nil)))) |
7628 | 1248 |
6709 | 1249 |
1250 | |
1251 ;; | |
1252 ;; Help-related code. | |
1253 ;; | |
1254 | |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1255 (defvar tcl-help-saved-dirs nil |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1256 "Saved help directories. |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1257 If `tcl-help-directory-list' changes, this allows `tcl-help-on-word' |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1258 to update the alist.") |
6709 | 1259 |
1260 (defvar tcl-help-alist nil | |
1261 "Alist with command names as keys and filenames as values.") | |
1262 | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1263 (defun tcl-files-alist (dir &optional alist) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1264 "Recursively add all pairs (FILE . PATH) under DIR to ALIST." |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1265 (dolist (file (directory-files dir t) alist) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1266 (cond |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1267 ((not (file-directory-p file)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1268 (push (cons (file-name-nondirectory file) file) alist)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1269 ((member (file-name-nondirectory file) '("." ".."))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1270 (t (setq alist (tcl-files-alist file alist)))))) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1271 |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1272 (defun tcl-help-snarf-commands (dirlist) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1273 "Return alist of commands and filenames." |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1274 (let ((alist nil)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1275 (dolist (dir dirlist alist) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1276 (when (file-directory-p dir) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1277 (setq alist (tcl-files-alist dir alist)))))) |
6709 | 1278 |
1279 (defun tcl-reread-help-files () | |
1280 "Set up to re-read files, and then do it." | |
1281 (interactive) | |
1282 (message "Building Tcl help file index...") | |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1283 (setq tcl-help-saved-dirs tcl-help-directory-list) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1284 (setq tcl-help-alist (tcl-help-snarf-commands tcl-help-directory-list)) |
6709 | 1285 (message "Building Tcl help file index...done")) |
1286 | |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1287 (defun tcl-word-no-props () |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1288 "Like `current-word', but strips properties." |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1289 (let ((word (current-word))) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1290 (set-text-properties 0 (length word) nil word) |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1291 word)) |
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1292 |
6709 | 1293 (defun tcl-current-word (flag) |
1294 "Return current command word, or nil. | |
1295 If FLAG is nil, just uses `current-word'. | |
1296 Otherwise scans backward for most likely Tcl command word." | |
7799
1eb0d0f0f71b
tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents:
7781
diff
changeset
|
1297 (if (and flag |
1eb0d0f0f71b
tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents:
7781
diff
changeset
|
1298 (memq major-mode '(tcl-mode inferior-tcl-mode))) |
6709 | 1299 (condition-case nil |
1300 (save-excursion | |
1301 ;; Look backward for first word actually in alist. | |
1302 (if (bobp) | |
1303 () | |
1304 (while (and (not (bobp)) | |
1305 (not (tcl-real-command-p))) | |
1306 (backward-sexp))) | |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1307 (if (assoc (tcl-word-no-props) tcl-help-alist) |
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1308 (tcl-word-no-props))) |
6709 | 1309 (error nil)) |
12645
3ce3ca90e4a3
(tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents:
12644
diff
changeset
|
1310 (tcl-word-no-props))) |
6709 | 1311 |
8252
7d4674a34de3
Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents:
7799
diff
changeset
|
1312 ;;;###autoload |
6709 | 1313 (defun tcl-help-on-word (command &optional arg) |
1314 "Get help on Tcl command. Default is word at point. | |
1315 Prefix argument means invert sense of `tcl-use-smart-word-finder'." | |
1316 (interactive | |
1317 (list | |
1318 (progn | |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1319 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs)) |
6709 | 1320 (tcl-reread-help-files)) |
1321 (let ((word (tcl-current-word | |
1322 (if current-prefix-arg | |
1323 (not tcl-use-smart-word-finder) | |
1324 tcl-use-smart-word-finder)))) | |
1325 (completing-read | |
1326 (if (or (null word) (string= word "")) | |
1327 "Help on Tcl command: " | |
1328 (format "Help on Tcl command (default %s): " word)) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1329 tcl-help-alist nil t nil nil word))) |
6709 | 1330 current-prefix-arg)) |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1331 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs)) |
6709 | 1332 (tcl-reread-help-files)) |
1333 (if (string= command "") | |
1334 (setq command (tcl-current-word | |
1335 (if arg | |
1336 (not tcl-use-smart-word-finder) | |
1337 tcl-use-smart-word-finder)))) | |
1338 (let* ((help (get-buffer-create "*Tcl help*")) | |
1339 (cell (assoc command tcl-help-alist)) | |
1340 (file (and cell (cdr cell)))) | |
1341 (set-buffer help) | |
1342 (delete-region (point-min) (point-max)) | |
1343 (if file | |
1344 (progn | |
1345 (insert "*** " command "\n\n") | |
1346 (insert-file-contents file)) | |
1347 (if (string= command "") | |
1348 (insert "Magical Pig!") | |
1349 (insert "Tcl command " command " not in help\n"))) | |
1350 (set-buffer-modified-p nil) | |
1351 (goto-char (point-min)) | |
1352 (display-buffer help))) | |
1353 | |
1354 | |
1355 | |
1356 ;; | |
1357 ;; Other interactive stuff. | |
1358 ;; | |
1359 | |
1360 (defvar tcl-previous-dir/file nil | |
1361 "Record last directory and file used in loading. | |
1362 This holds a cons cell of the form `(DIRECTORY . FILE)' | |
1363 describing the last `tcl-load-file' command.") | |
1364 | |
1365 (defun tcl-load-file (file &optional and-go) | |
1366 "Load a Tcl file into the inferior Tcl process. | |
1367 Prefix argument means switch to the Tcl buffer afterwards." | |
1368 (interactive | |
1369 (list | |
1370 ;; car because comint-get-source returns a list holding the | |
1371 ;; filename. | |
8581
e7daed44da21
tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents:
8580
diff
changeset
|
1372 (car (comint-get-source "Load Tcl file: " |
e7daed44da21
tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents:
8580
diff
changeset
|
1373 (or (and |
e7daed44da21
tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents:
8580
diff
changeset
|
1374 (eq major-mode 'tcl-mode) |
e7daed44da21
tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents:
8580
diff
changeset
|
1375 (buffer-file-name)) |
e7daed44da21
tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents:
8580
diff
changeset
|
1376 tcl-previous-dir/file) |
6709 | 1377 '(tcl-mode) t)) |
1378 current-prefix-arg)) | |
1379 (comint-check-source file) | |
1380 (setq tcl-previous-dir/file (cons (file-name-directory file) | |
1381 (file-name-nondirectory file))) | |
1382 (tcl-send-string (inferior-tcl-proc) | |
1383 (format inferior-tcl-source-command (tcl-quote file))) | |
1384 (if and-go (switch-to-tcl t))) | |
1385 | |
1386 (defun tcl-restart-with-file (file &optional and-go) | |
1387 "Restart inferior Tcl with file. | |
1388 If an inferior Tcl process exists, it is killed first. | |
1389 Prefix argument means switch to the Tcl buffer afterwards." | |
1390 (interactive | |
1391 (list | |
1392 (car (comint-get-source "Restart with Tcl file: " | |
1393 (or (and | |
1394 (eq major-mode 'tcl-mode) | |
1395 (buffer-file-name)) | |
1396 tcl-previous-dir/file) | |
1397 '(tcl-mode) t)) | |
1398 current-prefix-arg)) | |
1399 (let* ((buf (if (eq major-mode 'inferior-tcl-mode) | |
1400 (current-buffer) | |
1401 inferior-tcl-buffer)) | |
1402 (proc (and buf (get-process buf)))) | |
1403 (cond | |
1404 ((not (and buf (get-buffer buf))) | |
1405 ;; I think this will be ok. | |
1406 (inferior-tcl tcl-application) | |
1407 (tcl-load-file file and-go)) | |
1408 ((or | |
1409 (not (comint-check-proc buf)) | |
1410 (yes-or-no-p | |
1411 "A Tcl process is running, are you sure you want to reset it? ")) | |
1412 (save-excursion | |
1413 (comint-check-source file) | |
1414 (setq tcl-previous-dir/file (cons (file-name-directory file) | |
1415 (file-name-nondirectory file))) | |
1416 (comint-exec (get-buffer-create buf) | |
1417 (if proc | |
1418 (process-name proc) | |
1419 "inferior-tcl") | |
1420 tcl-application file tcl-command-switches) | |
1421 (if and-go (switch-to-tcl t))))))) | |
1422 | |
1423 (defun tcl-auto-fill-mode (&optional arg) | |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
1424 "Like `auto-fill-mode', but sets `comment-auto-fill-only-comments'." |
6709 | 1425 (interactive "P") |
44320
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
1426 (auto-fill-mode arg) |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
1427 (if auto-fill-function |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
1428 (set (make-local-variable 'comment-auto-fill-only-comments) t) |
40a69f39b79f
Change maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44316
diff
changeset
|
1429 (kill-local-variable 'comment-auto-fill-only-comments))) |
6709 | 1430 |
1431 (defun tcl-electric-hash (&optional count) | |
1432 "Insert a `#' and quote if it does not start a real comment. | |
1433 Prefix arg is number of `#'s to insert. | |
1434 See variable `tcl-electric-hash-style' for description of quoting | |
1435 styles." | |
1436 (interactive "p") | |
1437 (or count (setq count 1)) | |
1438 (if (> count 0) | |
1439 (let ((type | |
1440 (if (eq tcl-electric-hash-style 'smart) | |
1441 (if (> count 3) ; FIXME what is "smart"? | |
1442 'quote | |
1443 'backslash) | |
1444 tcl-electric-hash-style)) | |
1445 comment) | |
1446 (if type | |
1447 (progn | |
1448 (save-excursion | |
1449 (insert "#") | |
1450 (setq comment (tcl-in-comment))) | |
1451 (delete-char 1) | |
1452 (and tcl-explain-indentation (message "comment: %s" comment)) | |
1453 (cond | |
1454 ((eq type 'quote) | |
1455 (if (not comment) | |
1456 (insert "\""))) | |
1457 ((eq type 'backslash) | |
1458 ;; The following will set count to 0, so the | |
1459 ;; insert-char can still be run. | |
1460 (if (not comment) | |
1461 (while (> count 0) | |
1462 (insert "\\#") | |
1463 (setq count (1- count))))) | |
1464 (t nil)))) | |
1465 (insert-char ?# count)))) | |
1466 | |
1467 (defun tcl-hashify-buffer () | |
1468 "Quote all `#'s in current buffer that aren't Tcl comments." | |
1469 (interactive) | |
1470 (save-excursion | |
1471 (goto-char (point-min)) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1472 (let (state |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1473 result) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1474 (while (< (point) (point-max)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1475 (setq result (tcl-hairy-scan-for-comment state (point-max) t)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1476 (if (car result) |
6709 | 1477 (beginning-of-line 2) |
1478 (backward-char) | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1479 (if (eq ?# (following-char)) |
6709 | 1480 (insert "\\")) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1481 (forward-char)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1482 (setq state (cdr result)))))) |
6709 | 1483 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1484 (defun tcl-comment-indent () |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1485 "Return the desired indentation, but be careful to add a `;' if needed." |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1486 (save-excursion |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1487 ;; If line is not blank, make sure we insert a ";" first. |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1488 (skip-chars-backward " \t") |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1489 (unless (or (bolp) (tcl-real-command-p)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1490 (insert ";") |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1491 ;; Try and erase a non-significant char to keep charpos identical. |
64053
fd24f2ae0e10
(tcl): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62531
diff
changeset
|
1492 (if (memq (char-after) '(?\t ?\s)) (delete-char 1)))) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1493 (funcall (default-value 'comment-indent-function))) |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1494 |
6709 | 1495 ;; The following was inspired by the Tcl editing mode written by |
1496 ;; Gregor Schmid <schmid@fb3-s7.math.TU-Berlin.DE>. His version also | |
1497 ;; attempts to snarf the command line options from the command line, | |
1498 ;; but I didn't think that would really be that helpful (doesn't seem | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1499 ;; like it would be right enough. His version also looks for the |
6709 | 1500 ;; "#!/bin/csh ... exec" hack, but that seemed even less useful. |
7052
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1501 ;; FIXME should make sure that the application mentioned actually |
5dfd509b6396
Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents:
6730
diff
changeset
|
1502 ;; exists. |
6709 | 1503 (defun tcl-guess-application () |
1504 "Attempt to guess Tcl application by looking at first line. | |
1505 The first line is assumed to look like \"#!.../program ...\"." | |
1506 (save-excursion | |
1507 (goto-char (point-min)) | |
8580
648f78c8ecf5
Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents:
8575
diff
changeset
|
1508 (if (looking-at "#![^ \t]*/\\([^ \t\n/]+\\)\\([ \t]\\|$\\)") |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1509 (set (make-local-variable 'tcl-application) (match-string 1))))) |
6709 | 1510 |
1511 | |
1512 | |
1513 ;; | |
11787
635f5fb5d82a
Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents:
11303
diff
changeset
|
1514 ;; XEmacs menu support. |
6709 | 1515 ;; Taken from schmid@fb3-s7.math.TU-Berlin.DE (Gregor Schmid), |
1516 ;; who wrote a different Tcl mode. | |
25163 | 1517 ;; We also have support for menus in Emacs. We do this by |
11787
635f5fb5d82a
Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents:
11303
diff
changeset
|
1518 ;; loading the XEmacs menu emulation code. |
6709 | 1519 ;; |
1520 | |
1521 (defun tcl-popup-menu (e) | |
7612 | 1522 (interactive "@e") |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1523 (popup-menu tcl-mode-menu)) |
6709 | 1524 |
1525 | |
1526 | |
1527 ;; | |
1528 ;; Quoting and unquoting functions. | |
1529 ;; | |
1530 | |
1531 ;; This quoting is sufficient to protect eg a filename from any sort | |
1532 ;; of expansion or splitting. Tcl quoting sure sucks. | |
1533 (defun tcl-quote (string) | |
1534 "Quote STRING according to Tcl rules." | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1535 (mapconcat (lambda (char) |
64053
fd24f2ae0e10
(tcl): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62531
diff
changeset
|
1536 (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?\s ?\;)) |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1537 (concat "\\" (char-to-string char)) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1538 (char-to-string char))) |
6709 | 1539 string "")) |
1540 | |
7628 | 1541 ;; |
1542 ;; Bug reporting. | |
1543 ;; | |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1544 |
7628 | 1545 |
39754
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1546 ;; These are relics kept "just in case". |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1547 (defalias 'tcl-uncomment-region 'uncomment-region) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1548 (defalias 'tcl-indent-for-comment 'comment-indent) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1549 (defalias 'add-log-tcl-defun 'tcl-add-log-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1550 (defalias 'indent-tcl-exp 'tcl-indent-exp) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1551 (defalias 'calculate-tcl-indent 'tcl-calculate-indent) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1552 (defalias 'tcl-beginning-of-defun 'beginning-of-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1553 (defalias 'tcl-end-of-defun 'end-of-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1554 (defalias 'tcl-mark-defun 'mark-defun) |
6a46751c85df
Change maintainer to FSF and remove loads of compatibility cruft.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38476
diff
changeset
|
1555 (defun tcl-mark () (mark t)) |
7628 | 1556 |
6709 | 1557 (provide 'tcl) |
1558 | |
61246
ee782d6579a8
(tcl-set-font-lock-keywords): Use new \_< ops.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58563
diff
changeset
|
1559 ;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d |
6709 | 1560 ;;; tcl.el ends here |