annotate lisp/progmodes/tcl.el @ 16842:72276b334084 before-thomas-posix1996 glibc-2_0_2 libc-970108 libc-970109 libc-970110 libc-970111 libc-970112 libc-970113 libc-970114 libc-970115 libc-970116 libc-970117 libc-970118 libc-970119 libc-970120 libc-970121 libc-970122 libc-970123 libc-970124 libc-970125 libc-970126 libc-970127 libc-970128 libc-970129 libc-970130 libc-970131 libc-970201 libc-970202 libc-970203 libc-970204 libc-970205 libc-970206 libc-970207 libc-970208 libc-970209 libc-970210 libc-970211 libc-970212 libc-970213 libc-970214 libc-970215 libc-970216 libc-970217 libc-970218 libc-970219 libc-970220 libc-970221 libc-970222 libc-970223 libc-970224 libc-970225 libc-970226 libc-970227 libc-970228 libc-970301 libc-970302 libc-970303 libc-970304 libc-970305 libc-970306 libc-970307 libc-970308 libc-970309 libc-970310 libc-970311 libc-970312 libc-970313 libc-970314 libc-970315 libc-970316 libc-970317 libc-970318 libc-970319 libc-970320 libc-970321 libc-970322 libc-970323 libc-970324 libc20x-970306 libc20x-97031 libc20x-970316 libc20x-970318 libc20x-970319 libc20x-970404 root-libc-2_0_x-branch

Add hppa1.1-hitachi-hiuxmpp support, passed along by rms.
author David J. MacKenzie <djm@gnu.org>
date Tue, 07 Jan 1997 19:29:28 +0000
parents 2e26cb0991de
children f0078b7750b7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6710
85f4c4971597 Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents: 6709
diff changeset
1 ;; tcl.el --- Tcl code editing commands for Emacs
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
3 ;; Copyright (C) 1994 Free Software Foundation, Inc.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
4
6710
85f4c4971597 Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents: 6709
diff changeset
5 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov>
85f4c4971597 Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents: 6709
diff changeset
6 ;; Author: Tom Tromey <tromey@busco.lanl.gov>
85f4c4971597 Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents: 6709
diff changeset
7 ;; Chris Lindblad <cjl@lcs.mit.edu>
85f4c4971597 Fixed up headers for release.
Tom Tromey <tromey@redhat.com>
parents: 6709
diff changeset
8 ;; Keywords: languages tcl modes
16170
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
9 ;; Version: $Revision: 1.50 $
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
10
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
12
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
15 ;; the Free Software Foundation; either version 1, or (at your option)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
16 ;; any later version.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
17
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
22
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
25 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
26
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
27 ;; HOW TO INSTALL:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
28 ;; Put the following forms in your .emacs to enable autoloading of Tcl
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
29 ;; mode, and auto-recognition of ".tcl" files.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
30 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
31 ;; (autoload 'tcl-mode "tcl" "Tcl mode." t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
32 ;; (autoload 'inferior-tcl "tcl" "Run inferior Tcl process." t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
33 ;; (setq auto-mode-alist (append '(("\\.tcl$" . tcl-mode)) auto-mode-alist))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
34 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
35 ;; 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
36 ;; 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
37 ;; directories containing the TclX help files. Eg:
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
38 ;;
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
39 ;; (setq tcl-help-directory-list '("/usr/local/lib/tclx/help"))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
40 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
41 ;; Also you will want to add the following to your .emacs:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
42 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
43 ;; (autoload 'tcl-help-on-word "tcl" "Help on Tcl commands" t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
44 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
45 ;; FYI a *very* useful thing to do is nroff all the Tk man pages and
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
46 ;; put them in a subdir of the help system.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
47 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
48
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
49 ;;; Commentary:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
50
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
51 ;; LCD Archive Entry:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
52 ;; tcl|Tom Tromey|tromey@busco.lanl.gov|
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
53 ;; Major mode for editing Tcl|
16170
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
54 ;; $Date: 1996/03/23 05:14:50 $|$Revision: 1.50 $|~/modes/tcl.el.Z|
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
55
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
56 ;; CUSTOMIZATION NOTES:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
57 ;; * tcl-proc-list can be used to customize a list of things that
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
58 ;; "define" other things. Eg in my project I put "defvar" in this
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
59 ;; list.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
60 ;; * tcl-typeword-list is similar, but uses font-lock-type-face.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
61 ;; * tcl-keyword-list is a list of keywords. I've generally used this
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
62 ;; for flow-control words. Eg I add "unwind_protect" to this list.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
63 ;; * tcl-type-alist can be used to minimally customize indentation
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
64 ;; according to context.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
65
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
66 ;; Change log:
7288
a53bf0d79146 *** empty log message ***
Tom Tromey <tromey@redhat.com>
parents: 7052
diff changeset
67 ;; $Log: tcl.el,v $
16170
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
68 ;; Revision 1.50 1996/03/23 05:14:50 tromey
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
69 ;; (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
70 ;;
14865
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
71 ;; Revision 1.49 1995/12/07 18:27:47 tromey
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
72 ;; (add-log-tcl-defun): Don't use tcl-beginning-of-defun; just go to end
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
73 ;; of line before searching.
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
74 ;;
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
75 ;; Revision 1.48 1995/12/07 18:18:21 tromey
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
76 ;; (add-log-tcl-defun): Now uses tcl-beginning-of-defun.
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
77 ;;
13697
5a8356dc9ffc (add-log-tcl-defun): Now uses tcl-beginning-of-defun.
Tom Tromey <tromey@redhat.com>
parents: 12924
diff changeset
78 ;; Revision 1.47 1995/08/22 17:49:45 tromey
5a8356dc9ffc (add-log-tcl-defun): Now uses tcl-beginning-of-defun.
Tom Tromey <tromey@redhat.com>
parents: 12924
diff changeset
79 ;; (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
5a8356dc9ffc (add-log-tcl-defun): Now uses tcl-beginning-of-defun.
Tom Tromey <tromey@redhat.com>
parents: 12924
diff changeset
80 ;; (tcl-mode): Call it
5a8356dc9ffc (add-log-tcl-defun): Now uses tcl-beginning-of-defun.
Tom Tromey <tromey@redhat.com>
parents: 12924
diff changeset
81 ;;
12924
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
82 ;; Revision 1.46 1995/08/07 16:02:01 tromey
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
83 ;; (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
84 ;; (tcl-auto-fill-mode): Use force-mode-line-update.
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
85 ;;
12795
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
86 ;; Revision 1.45 1995/07/23 23:51:25 tromey
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
87 ;; (tcl-word-no-props): New function.
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
88 ;; (tcl-figure-type): Use it.
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
89 ;; (tcl-current-word): Ditto.
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
90 ;;
12645
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
91 ;; Revision 1.44 1995/07/23 20:26:47 tromey
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
92 ;; Doc fixes.
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
93 ;;
12644
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
94 ;; Revision 1.43 1995/07/17 19:59:49 tromey
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
95 ;; (inferior-tcl-mode): Use modeline-process if it exists.
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
96 ;;
12524
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
97 ;; Revision 1.42 1995/07/17 19:55:25 tromey
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
98 ;; XEmacs currently must use tcl-internal-end-of-defun
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
99 ;;
12523
a42c105f8337 XEmacs currently must use tcl-internal-end-of-defun
Tom Tromey <tromey@redhat.com>
parents: 12520
diff changeset
100 ;; Revision 1.41 1995/07/14 21:54:56 tromey
a42c105f8337 XEmacs currently must use tcl-internal-end-of-defun
Tom Tromey <tromey@redhat.com>
parents: 12520
diff changeset
101 ;; Changes to make menus work in XEmacs.
a42c105f8337 XEmacs currently must use tcl-internal-end-of-defun
Tom Tromey <tromey@redhat.com>
parents: 12520
diff changeset
102 ;; From Mike Scheidler <c23mts@kocrsv01.delcoelect.com>
a42c105f8337 XEmacs currently must use tcl-internal-end-of-defun
Tom Tromey <tromey@redhat.com>
parents: 12520
diff changeset
103 ;;
12520
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
104 ;; Revision 1.40 1995/07/11 03:13:15 tromey
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
105 ;; (tcl-mode): Customize for new dabbrev.
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
106 ;;
12517
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
107 ;; Revision 1.39 1995/07/09 21:58:03 tromey
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
108 ;; (tcl-do-fill-paragraph): New function.
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
109 ;; (tcl-mode): Set up for paragraph filling.
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
110 ;;
12515
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
111 ;; Revision 1.38 1995/07/09 21:30:32 tromey
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
112 ;; (tcl-mode): Fixes to 19.29 paragraph variables.
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
113 ;;
12514
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
114 ;; Revision 1.37 1995/07/09 18:52:16 tromey
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
115 ;; (tcl-do-auto-fill): Set fill-prefix.
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
116 ;;
12513
7dd018689647 (tcl-do-auto-fill): Set fill-prefix.
Tom Tromey <tromey@redhat.com>
parents: 12510
diff changeset
117 ;; Revision 1.36 1995/07/09 01:07:57 tromey
7dd018689647 (tcl-do-auto-fill): Set fill-prefix.
Tom Tromey <tromey@redhat.com>
parents: 12510
diff changeset
118 ;; (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
7dd018689647 (tcl-do-auto-fill): Set fill-prefix.
Tom Tromey <tromey@redhat.com>
parents: 12510
diff changeset
119 ;;
12510
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
120 ;; Revision 1.35 1995/06/27 20:12:00 tromey
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
121 ;; (tcl-type-alist): More itcl changes.
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
122 ;;
12405
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
123 ;; Revision 1.34 1995/06/27 20:06:05 tromey
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
124 ;; More changes for itcl.
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
125 ;; Bug fixes for Emacs 19.29.
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
126 ;;
12404
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
127 ;; Revision 1.33 1995/06/27 20:01:29 tromey
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
128 ;; (tcl-set-proc-regexp): Allow leading spaces.
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
129 ;; (tcl-proc-list): Changes for itcl.
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
130 ;; (tcl-typeword-list): Ditto.
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
131 ;; (tcl-keyword-list): Ditto.
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
132 ;;
12403
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
133 ;; Revision 1.32 1995/05/11 22:12:49 tromey
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
134 ;; (tcl-type-alist): Include entry for "proc".
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
135 ;;
11793
6060e368ff05 (tcl-type-alist): Include entry for "proc".
Tom Tromey <tromey@redhat.com>
parents: 11790
diff changeset
136 ;; Revision 1.31 1995/05/10 23:38:12 tromey
6060e368ff05 (tcl-type-alist): Include entry for "proc".
Tom Tromey <tromey@redhat.com>
parents: 11790
diff changeset
137 ;; (tcl-add-fsf-menu): Use make-lucid-menu-keymap, not
6060e368ff05 (tcl-type-alist): Include entry for "proc".
Tom Tromey <tromey@redhat.com>
parents: 11790
diff changeset
138 ;; "make-xemacs-menu-keymap".
6060e368ff05 (tcl-type-alist): Include entry for "proc".
Tom Tromey <tromey@redhat.com>
parents: 11790
diff changeset
139 ;;
11790
7a24391fc955 (tcl-add-fsf-menu): Use make-lucid-menu-keymap, not
Tom Tromey <tromey@redhat.com>
parents: 11789
diff changeset
140 ;; Revision 1.30 1995/05/10 18:22:21 tromey
7a24391fc955 (tcl-add-fsf-menu): Use make-lucid-menu-keymap, not
Tom Tromey <tromey@redhat.com>
parents: 11789
diff changeset
141 ;; Bug fix in menu code for XEmacs.
7a24391fc955 (tcl-add-fsf-menu): Use make-lucid-menu-keymap, not
Tom Tromey <tromey@redhat.com>
parents: 11789
diff changeset
142 ;;
11789
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
143 ;; Revision 1.29 1995/05/09 21:36:53 tromey
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
144 ;; Changed "Lucid Emacs" to "XEmacs".
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
145 ;; Tcl's popup menu now added to existing one, courtesy
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
146 ;; dfarmer@evolving.com (Doug Farmer)
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
147 ;;
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
148 ;; Revision 1.28 1995/04/08 19:52:50 tromey
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
149 ;; (tcl-outline-level): New function
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
150 ;; (tcl-mode): Added outline-handling stuff.
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
151 ;; From Jesper Pedersen <blackie@imada.ou.dk>
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
152 ;;
11303
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
153 ;; Revision 1.27 1994/10/11 02:01:27 tromey
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
154 ;; (tcl-mode): imenu-create-index-function made buffer local.
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
155 ;;
9428
3d5070024b68 (tcl-mode): imenu-create-index-function made buffer local.
Tom Tromey <tromey@redhat.com>
parents: 8681
diff changeset
156 ;; Revision 1.26 1994/09/01 18:06:24 tromey
3d5070024b68 (tcl-mode): imenu-create-index-function made buffer local.
Tom Tromey <tromey@redhat.com>
parents: 8681
diff changeset
157 ;; Added filename completion in inferior tcl mode
3d5070024b68 (tcl-mode): imenu-create-index-function made buffer local.
Tom Tromey <tromey@redhat.com>
parents: 8681
diff changeset
158 ;;
8681
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
159 ;; Revision 1.25 1994/08/22 15:56:24 tromey
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
160 ;; tcl-load-file default to current buffer.
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
161 ;;
8581
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
162 ;; Revision 1.24 1994/08/21 20:33:05 tromey
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
163 ;; Fixed bug in tcl-guess-application.
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
164 ;;
8580
648f78c8ecf5 Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents: 8575
diff changeset
165 ;; Revision 1.23 1994/08/21 03:54:45 tromey
648f78c8ecf5 Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents: 8575
diff changeset
166 ;; Keybindings don't overshadown comint bindings.
648f78c8ecf5 Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents: 8575
diff changeset
167 ;;
8575
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
168 ;; Revision 1.22 1994/07/26 00:46:07 tromey
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
169 ;; Emacs 18 changes from Carl Witty.
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
170 ;;
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
171 ;; Revision 1.21 1994/07/14 22:49:21 tromey
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
172 ;; Added ";;;###autoload" comments where appropriate.
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
173 ;;
8252
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
174 ; Revision 1.20 1994/06/05 16:57:22 tromey
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
175 ; tcl-current-word does the right thing in inferior-tcl-mode.
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
176 ;
7799
1eb0d0f0f71b tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents: 7781
diff changeset
177 ; Revision 1.19 1994/06/03 21:09:19 tromey
1eb0d0f0f71b tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents: 7781
diff changeset
178 ; Another menu fix.
1eb0d0f0f71b tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents: 7781
diff changeset
179 ;
7781
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
180 ; Revision 1.18 1994/06/03 20:39:14 tromey
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
181 ; Fixed menu bug.
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
182 ;
7780
98874151109a Fixed menu bug.
Tom Tromey <tromey@redhat.com>
parents: 7771
diff changeset
183 ; Revision 1.17 1994/06/03 00:47:15 tromey
98874151109a Fixed menu bug.
Tom Tromey <tromey@redhat.com>
parents: 7771
diff changeset
184 ; Fixed bug in bug-reporting code.
98874151109a Fixed menu bug.
Tom Tromey <tromey@redhat.com>
parents: 7771
diff changeset
185 ;
7771
f23eaf6babac Fixed bug in bug-reporting code.
Tom Tromey <tromey@redhat.com>
parents: 7687
diff changeset
186 ; Revision 1.16 1994/05/26 05:06:14 tromey
f23eaf6babac Fixed bug in bug-reporting code.
Tom Tromey <tromey@redhat.com>
parents: 7687
diff changeset
187 ; Menu items now sensitive as appropriate.
f23eaf6babac Fixed bug in bug-reporting code.
Tom Tromey <tromey@redhat.com>
parents: 7687
diff changeset
188 ;
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
189 ; Revision 1.15 1994/05/22 20:38:11 tromey
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
190 ; Added bug-report keybindings and menu entries.
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
191 ;
7635
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
192 ; Revision 1.14 1994/05/22 20:18:28 tromey
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
193 ; Even more compile stuff.
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
194 ;
7633
ba9345d99767 Even more compile stuff.
Tom Tromey <tromey@redhat.com>
parents: 7631
diff changeset
195 ; Revision 1.13 1994/05/22 20:17:15 tromey
ba9345d99767 Even more compile stuff.
Tom Tromey <tromey@redhat.com>
parents: 7631
diff changeset
196 ; Moved emacs version checking code to very beginning.
ba9345d99767 Even more compile stuff.
Tom Tromey <tromey@redhat.com>
parents: 7631
diff changeset
197 ;
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
198 ; Revision 1.12 1994/05/22 20:14:59 tromey
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
199 ; Compile fixes.
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
200 ;
7630
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
201 ; Revision 1.11 1994/05/22 20:12:44 tromey
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
202 ; Fixed mark-defun for 19.23.
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
203 ; More menu fixes.
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
204 ;
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
205 ; Revision 1.10 1994/05/22 20:02:03 tromey
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
206 ; Fixed bug with M-;.
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
207 ; Wrote bug-reporting code.
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
208 ;
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
209 ; Revision 1.9 1994/05/22 05:26:51 tromey
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
210 ; Fixes for imenu.
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
211 ;
7613
0dc4969a8038 Fixes for imenu.
Tom Tromey <tromey@redhat.com>
parents: 7612
diff changeset
212 ; Revision 1.8 1994/05/22 03:38:07 tromey
0dc4969a8038 Fixes for imenu.
Tom Tromey <tromey@redhat.com>
parents: 7612
diff changeset
213 ; Fixed menu support.
0dc4969a8038 Fixes for imenu.
Tom Tromey <tromey@redhat.com>
parents: 7612
diff changeset
214 ;
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
215 ; Revision 1.7 1994/05/03 01:23:42 tromey
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
216 ; *** empty log message ***
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
217 ;
7288
a53bf0d79146 *** empty log message ***
Tom Tromey <tromey@redhat.com>
parents: 7052
diff changeset
218 ; Revision 1.6 1994/04/23 16:23:36 tromey
a53bf0d79146 *** empty log message ***
Tom Tromey <tromey@redhat.com>
parents: 7052
diff changeset
219 ; Wrote tcl-indent-for-comment
a53bf0d79146 *** empty log message ***
Tom Tromey <tromey@redhat.com>
parents: 7052
diff changeset
220 ;
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
221 ;;
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
222 ;; 18-Mar-1994 Tom Tromey Fourth beta release.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
223 ;; Added {un,}comment-region to menu. Idea from
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
224 ;; Mike Scheidler <c23mts@kocrsv01.delcoelect.com>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
225 ;; 17-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
226 ;; Fixed tcl-restart-with-file. Bug fix attempt in
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
227 ;; tcl-internal-end-of-defun.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
228 ;; 16-Mar-1994 Tom Tromey Third beta release
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
229 ;; Added support code for menu (from Tcl mode written by
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
230 ;; schmid@fb3-s7.math.TU-Berlin.DE (Gregor Schmid)).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
231 ;; 12-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
232 ;; Better documentation for inferior-tcl-buffer. Wrote
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
233 ;; tcl-restart-with-file. Wrote Lucid Emacs menu (but no
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
234 ;; code to install it).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
235 ;; 12-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
236 ;; Wrote tcl-guess-application. Another stab at making
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
237 ;; tcl-omit-ws-regexp work.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
238 ;; 10-Mar-1994 Tom Tromey Second beta release
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
239 ;; Last Modified: Thu Mar 10 01:24:25 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
240 ;; Wrote perl-mode style line indentation command.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
241 ;; Wrote more documentation. Added tcl-continued-indent-level.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
242 ;; Integrated help code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
243 ;; 8-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
244 ;; Last Modified: Tue Mar 8 11:58:44 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
245 ;; Bug fixes.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
246 ;; 6-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
247 ;; Last Modified: Sun Mar 6 18:55:41 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
248 ;; Updated auto-newline support.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
249 ;; 6-Mar-1994 Tom Tromey Beta release
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
250 ;; Last Modified: Sat Mar 5 17:24:32 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
251 ;; Wrote tcl-hashify-buffer. Other minor bug fixes.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
252 ;; 5-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
253 ;; Last Modified: Sat Mar 5 16:11:20 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
254 ;; Wrote electric-hash code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
255 ;; 3-Mar-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
256 ;; Last Modified: Thu Mar 3 02:53:40 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
257 ;; Added code to handle auto-fill in comments.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
258 ;; Added imenu support code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
259 ;; Cleaned up code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
260 ;; Better font-lock support.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
261 ;; 28-Feb-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
262 ;; Last Modified: Mon Feb 28 14:08:05 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
263 ;; Made tcl-figure-type more easily configurable.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
264 ;; 28-Feb-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
265 ;; Last Modified: Mon Feb 28 01:02:58 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
266 ;; Wrote inferior-tcl mode.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
267 ;; 16-Feb-1994 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
268 ;; Last Modified: Wed Feb 16 17:05:19 1994 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
269 ;; Added support for font-lock-mode.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
270 ;; 29-Oct-1993 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
271 ;; Last Modified: Sun Oct 24 17:39:14 1993 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
272 ;; Patches from Guido Bosch to make things work with Lucid Emacs.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
273 ;; 22-Oct-1993 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
274 ;; Last Modified: Fri Oct 22 15:26:46 1993 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
275 ;; Made many characters have "_" syntax class; suggested by Guido
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
276 ;; Bosch <Guido.Bosch@loria.fr>. Note that this includes the "$"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
277 ;; character, which might be a change you'd notice.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
278 ;; 21-Oct-1993 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
279 ;; Last Modified: Thu Oct 21 20:28:40 1993 (Tom Tromey)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
280 ;; More fixes for tcl-omit-ws-regexp.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
281 ;; 20-Oct-1993 Tom Tromey
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
282 ;; Started keeping history. Fixed tcl-{beginning,end}-of-defun.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
283 ;; Added some code to make things work with Emacs 18.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
284
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
285 ;; THANKS TO:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
286 ;; Guido Bosch <Guido.Bosch@loria.fr>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
287 ;; pgs1002@esc.cam.ac.uk (Dr P.G. Sjoerdsma)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
288 ;; Mike Scheidler <c23mts@kocrsv01.delcoelect.com>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
289 ;; Matt Newman <men@charney.colorado.edu>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
290 ;; rwhitby@research.canon.oz.au (Rod Whitby)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
291 ;; h9118101@hkuxa.hku.hk (Yip Chi Lap [Beta])
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
292 ;; Pertti Tapio Kasanen <ptk@delta.hut.fi>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
293 ;; 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
294 ;; warsaw@nlm.nih.gov (Barry A. Warsaw)
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
295 ;; Carl Witty <cwitty@ai.mit.edu>
8580
648f78c8ecf5 Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents: 8575
diff changeset
296 ;; T. V. Raman <raman@crl.dec.com>
11303
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
297 ;; Jesper Pedersen <blackie@imada.ou.dk>
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
298 ;; 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
299 ;; "Chris Alfeld" <calfeld@math.utah.edu>
14865
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
300 ;; Ben Wing <wing@666.com>
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
301
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
302 ;; KNOWN BUGS:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
303 ;; * indent-region should skip blank lines. (It does in v19, so I'm
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
304 ;; not motivated to fix it here).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
305 ;; * In Tcl "#" is not always a comment character. This can confuse
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
306 ;; tcl.el in certain circumstances. For now the only workaround is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
307 ;; to enclose offending hash characters in quotes or precede it with
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
308 ;; a backslash. Note that using braces won't work -- quotes change
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
309 ;; the syntax class of characters between them, while braces do not.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
310 ;; The electric-# mode helps alleviate this problem somewhat.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
311 ;; * indent-tcl-exp is untested.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
312 ;; * Doesn't work under Emacs 18 yet.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
313 ;; * There's been a report that font-lock does strange things under
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
314 ;; Lucid Emacs 19.6. For instance in "proc foobar", the space
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
315 ;; before "foobar" is highlighted.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
316
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
317 ;; TODO:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
318 ;; * make add-log-tcl-defun smarter. should notice if we are in the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
319 ;; middle of a defun, or between defuns. should notice if point is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
320 ;; on first line of defun (or maybe even in comments before defun).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
321 ;; * Allow continuation lines to be indented under the first argument
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
322 ;; of the preceeding line, like this:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
323 ;; [list something \
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
324 ;; something-else]
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
325 ;; * There is a request that indentation work like this:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
326 ;; button .fred -label Fred \
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
327 ;; -command {puts fred}
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
328 ;; * Should have tcl-complete-symbol that queries the inferior process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
329 ;; * Should have describe-symbol that works by sending the magic
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
330 ;; command to a tclX process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
331 ;; * Need C-x C-e binding (tcl-eval-last-exp).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
332 ;; * Write indent-region function that is faster than indenting each
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
333 ;; line individually.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
334 ;; * tcl-figure-type should stop at "beginning of line" (only ws
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
335 ;; before point, and no "\" on previous line). (see tcl-real-command-p).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
336 ;; * overrides some comint keybindings; fix.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
337 ;; * Trailing \ will eat blank lines. Should deal with this.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
338 ;; (this would help catch some potential bugs).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
339 ;; * 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
340 ;; * Indentation should deal with "switch".
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
341 ;; * Consider writing code to find help files automatically (for
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
342 ;; common cases).
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
343 ;; * `#' shouldn't insert `\#' when point is in string.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
344
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
345
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
346
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
347 ;;; Code:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
348
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
349 ;; I sure wish Emacs had a package that made it easy to extract this
14865
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
350 ;; sort of information. Strange definition works with XEmacs 20.0.
070f7cf3c1a6 (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing.
Tom Tromey <tromey@redhat.com>
parents: 13698
diff changeset
351 (defconst tcl-using-emacs-19 (not (string-match "18\\." emacs-version))
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
352 "Nil unless using Emacs 19 (XEmacs or FSF).")
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
353
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
354 ;; FIXME this will break on Emacs 19.100.
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
355 (defconst tcl-using-emacs-19-23
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
356 (string-match "19\\.\\(2[3-9]\\|[3-9][0-9]\\)" emacs-version)
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
357 "Nil unless using Emacs 19-23 or later.")
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
358
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
359 (defconst tcl-using-xemacs-19 (string-match "XEmacs" emacs-version)
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
360 "Nil unless using XEmacs).")
7631
89a1e55c615d Moved emacs version checking code to very beginning.
Tom Tromey <tromey@redhat.com>
parents: 7630
diff changeset
361
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
362 (require 'comint)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
363
7630
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
364 ;; When compiling under GNU Emacs, load imenu during compilation. If
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
365 ;; you have 19.22 or earlier, comment this out, or get imenu.
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
366 (and (fboundp 'eval-when-compile)
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
367 (eval-when-compile
7633
ba9345d99767 Even more compile stuff.
Tom Tromey <tromey@redhat.com>
parents: 7631
diff changeset
368 (if (and (string-match "19\\." emacs-version)
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
369 (not (string-match "XEmacs" emacs-version)))
7630
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
370 (require 'imenu))
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
371 ()))
9a0846bcbb31 Compile fixes.
Tom Tromey <tromey@redhat.com>
parents: 7629
diff changeset
372
16170
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
373 (defconst tcl-version "$Revision: 1.50 $")
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
374 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
375
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
376 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
377 ;; User variables.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
378 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
379
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
380 (defvar tcl-indent-level 4
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
381 "*Indentation of Tcl statements with respect to containing block.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
382
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
383 (defvar tcl-continued-indent-level 4
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
384 "*Indentation of continuation line relative to first line of command.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
385
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
386 (defvar tcl-auto-newline nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
387 "*Non-nil means automatically newline before and after braces
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
388 inserted in Tcl code.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
389
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
390 (defvar tcl-tab-always-indent t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
391 "*Control effect of TAB key.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
392 If t (the default), always indent current line.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
393 If nil and point is not in the indentation area at the beginning of
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
394 the line, a TAB is inserted.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
395 Other values cause the first possible action from the following list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
396 to take place:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
397
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
398 1. Move from beginning of line to correct indentation.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
399 2. Delete an empty comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
400 3. Move forward to start of comment, indenting if necessary.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
401 4. Move forward to end of line, indenting if necessary.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
402 5. Create an empty comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
403 6. Move backward to start of comment, indenting if necessary.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
404
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
405 (defvar tcl-use-hairy-comment-detector t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
406 "*If not `nil', the the more complicated, but slower, comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
407 detecting function is used. This variable is only used in GNU Emacs
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
408 19 (the fast function is always used elsewhere).")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
409
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
410 (defvar tcl-electric-hash-style 'smart
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
411 "*Style of electric hash insertion to use.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
412 Possible values are 'backslash, meaning that `\\' quoting should be
12644
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
413 done; 'quote, meaning that `\"' quoting should be done; 'smart,
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
414 meaning that the choice between 'backslash and 'quote should be
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
415 made depending on the number of hashes inserted; or nil, meaning that
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
416 no quoting should be done. Any other value for this variable is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
417 taken to mean 'smart. The default is 'smart.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
418
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
419 (defvar tcl-help-directory-list nil
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
420 "*List of topmost directories containing TclX help files")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
421
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
422 (defvar tcl-use-smart-word-finder t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
423 "*If not nil, use a better way of finding the current word when
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
424 looking up help on a Tcl command.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
425
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
426 (defvar tcl-application "wish"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
427 "*Name of Tcl application to run in inferior Tcl mode.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
428
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
429 (defvar tcl-command-switches nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
430 "*Switches to supply to `tcl-application'.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
431
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
432 (defvar tcl-prompt-regexp "^\\(% \\|\\)"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
433 "*If not nil, a regexp that will match the prompt in the inferior process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
434 If nil, the prompt is the name of the application with \">\" appended.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
435
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
436 The default is \"^\\(% \\|\\)\", which will match the default primary
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
437 and secondary prompts for tclsh and wish.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
438
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
439 (defvar inferior-tcl-source-command "source %s\n"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
440 "*Format-string for building a Tcl command to load a file.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
441 This format string should use `%s' to substitute a file name
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
442 and should result in a Tcl expression that will command the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
443 inferior Tcl to load that file. The filename will be appropriately
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
444 quoted for Tcl.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
445
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
446 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
447 ;; Keymaps, abbrevs, syntax tables.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
448 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
449
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
450 (defvar tcl-mode-abbrev-table nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
451 "Abbrev table in use in Tcl-mode buffers.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
452 (if tcl-mode-abbrev-table
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
453 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
454 (define-abbrev-table 'tcl-mode-abbrev-table ()))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
455
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
456 (defvar tcl-mode-map ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
457 "Keymap used in Tcl mode.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
458
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
459 (defvar tcl-mode-syntax-table nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
460 "Syntax table in use in Tcl-mode buffers.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
461 (if tcl-mode-syntax-table
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
462 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
463 (setq tcl-mode-syntax-table (make-syntax-table))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
464 (modify-syntax-entry ?% "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
465 (modify-syntax-entry ?@ "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
466 (modify-syntax-entry ?& "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
467 (modify-syntax-entry ?* "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
468 (modify-syntax-entry ?+ "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
469 (modify-syntax-entry ?- "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
470 (modify-syntax-entry ?. "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
471 (modify-syntax-entry ?: "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
472 (modify-syntax-entry ?! "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
473 (modify-syntax-entry ?$ "_" tcl-mode-syntax-table) ; FIXME use "'"?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
474 (modify-syntax-entry ?/ "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
475 (modify-syntax-entry ?~ "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
476 (modify-syntax-entry ?< "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
477 (modify-syntax-entry ?= "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
478 (modify-syntax-entry ?> "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
479 (modify-syntax-entry ?| "_" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
480 (modify-syntax-entry ?\( "()" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
481 (modify-syntax-entry ?\) ")(" tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
482 (modify-syntax-entry ?\; "." tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
483 (modify-syntax-entry ?\n "> " tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
484 (modify-syntax-entry ?\f "> " tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
485 (modify-syntax-entry ?# "< " tcl-mode-syntax-table))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
486
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
487 (defvar inferior-tcl-mode-map nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
488 "Keymap used in Inferior Tcl mode.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
489
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
490 ;; XEmacs menu.
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
491 (defvar tcl-xemacs-menu
12520
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
492 '(["Beginning of function" tcl-beginning-of-defun t]
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
493 ["End of function" tcl-end-of-defun t]
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
494 ["Mark function" tcl-mark-defun t]
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
495 ["Indent region" indent-region (tcl-mark)]
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
496 ["Comment region" comment-region (tcl-mark)]
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
497 ["Uncomment region" tcl-uncomment-region (tcl-mark)]
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
498 "----"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
499 ["Show Tcl process buffer" inferior-tcl t]
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
500 ["Send function to Tcl process" tcl-eval-defun
7781
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
501 (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
502 ["Send region to Tcl process" tcl-eval-region
7781
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
503 (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
504 ["Send file to Tcl process" tcl-load-file
7781
22449aa6d5ae Another menu fix.
Tom Tromey <tromey@redhat.com>
parents: 7780
diff changeset
505 (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))]
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
506 ["Restart Tcl process with file" tcl-restart-with-file t]
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
507 "----"
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
508 ["Tcl help" tcl-help-on-word tcl-help-directory-list]
7635
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
509 ["Send bug report" tcl-submit-bug-report t])
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
510 "XEmacs menu for Tcl mode.")
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
511
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
512 ;; GNU Emacs does menus via keymaps. Do it in a function in case we
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
513 ;; later decide to add it to inferior Tcl mode as well.
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
514 (defun tcl-add-fsf-menu (map)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
515 (define-key map [menu-bar] (make-sparse-keymap))
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
516 ;; This fails in Emacs 19.22 and earlier.
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
517 (require 'lmenu)
12520
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
518 (let ((menu (make-lucid-menu-keymap "Tcl" tcl-xemacs-menu)))
7635
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
519 (define-key map [menu-bar tcl] (cons "Tcl" menu))
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
520 ;; The following is intended to compute the key sequence
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
521 ;; information for the menu. It doesn't work.
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
522 (x-popup-menu nil menu)))
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
523
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
524 (defun tcl-fill-mode-map ()
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
525 (define-key tcl-mode-map "{" 'tcl-electric-char)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
526 (define-key tcl-mode-map "}" 'tcl-electric-brace)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
527 (define-key tcl-mode-map "[" 'tcl-electric-char)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
528 (define-key tcl-mode-map "]" 'tcl-electric-char)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
529 (define-key tcl-mode-map ";" 'tcl-electric-char)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
530 (define-key tcl-mode-map "#" 'tcl-electric-hash)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
531 ;; FIXME.
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
532 (define-key tcl-mode-map "\e\C-a" 'tcl-beginning-of-defun)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
533 ;; FIXME.
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
534 (define-key tcl-mode-map "\e\C-e" 'tcl-end-of-defun)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
535 ;; FIXME.
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
536 (define-key tcl-mode-map "\e\C-h" 'tcl-mark-defun)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
537 (define-key tcl-mode-map "\e\C-q" 'indent-tcl-exp)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
538 (define-key tcl-mode-map "\177" 'backward-delete-char-untabify)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
539 (define-key tcl-mode-map "\t" 'tcl-indent-command)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
540 (define-key tcl-mode-map "\M-;" 'tcl-indent-for-comment)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
541 (define-key tcl-mode-map "\M-\C-x" 'tcl-eval-defun)
7635
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
542 (define-key tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
543 (and (fboundp 'comment-region)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
544 (define-key tcl-mode-map "\C-c\C-c" 'comment-region))
8575
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
545 (define-key tcl-mode-map "\C-c\C-i" 'tcl-help-on-word)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
546 (define-key tcl-mode-map "\C-c\C-v" 'tcl-eval-defun)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
547 (define-key tcl-mode-map "\C-c\C-f" 'tcl-load-file)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
548 (define-key tcl-mode-map "\C-c\C-t" 'inferior-tcl)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
549 (define-key tcl-mode-map "\C-c\C-x" 'tcl-eval-region)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
550 (define-key tcl-mode-map "\C-c\C-s" 'switch-to-tcl)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
551
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
552 ;; Make menus.
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
553 (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19))
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
554 (progn
12404
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
555 (tcl-add-fsf-menu tcl-mode-map))))
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
556
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
557 (defun tcl-fill-inferior-map ()
8681
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
558 (define-key inferior-tcl-mode-map "\t" 'comint-dynamic-complete)
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
559 (define-key inferior-tcl-mode-map "\M-?"
2fa333e36b60 Added filename completion in inferior tcl mode
Tom Tromey <tromey@redhat.com>
parents: 8581
diff changeset
560 'comint-dynamic-list-filename-completions)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
561 (define-key inferior-tcl-mode-map "\e\C-a" 'tcl-beginning-of-defun)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
562 (define-key inferior-tcl-mode-map "\e\C-e" 'tcl-end-of-defun)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
563 (define-key inferior-tcl-mode-map "\177" 'backward-delete-char-untabify)
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
564 (define-key inferior-tcl-mode-map "\M-\C-x" 'tcl-eval-defun)
7635
b5acd78a49e3 Added bug-report keybindings and menu entries.
Tom Tromey <tromey@redhat.com>
parents: 7633
diff changeset
565 (define-key inferior-tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report)
8575
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
566 (define-key inferior-tcl-mode-map "\C-c\C-i" 'tcl-help-on-word)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
567 (define-key inferior-tcl-mode-map "\C-c\C-v" 'tcl-eval-defun)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
568 (define-key inferior-tcl-mode-map "\C-c\C-f" 'tcl-load-file)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
569 (define-key inferior-tcl-mode-map "\C-c\C-t" 'inferior-tcl)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
570 (define-key inferior-tcl-mode-map "\C-c\C-x" 'tcl-eval-region)
2d50d249caf4 Keybindings don't overshadown comint bindings.
Tom Tromey <tromey@redhat.com>
parents: 8339
diff changeset
571 (define-key inferior-tcl-mode-map "\C-c\C-s" 'switch-to-tcl))
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
572
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
573 (if tcl-mode-map
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
574 ()
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
575 (setq tcl-mode-map (make-sparse-keymap))
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
576 (tcl-fill-mode-map))
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
577
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
578 (if inferior-tcl-mode-map
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
579 ()
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
580 ;; FIXME Use keymap inheritance here? FIXME we override comint
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
581 ;; keybindings here. Maybe someone has a better set?
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
582 (setq inferior-tcl-mode-map (copy-keymap comint-mode-map))
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
583 (tcl-fill-inferior-map))
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
584
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
585
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
586 (defvar inferior-tcl-buffer nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
587 "*The current inferior-tcl process buffer.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
588
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
589 MULTIPLE PROCESS SUPPORT
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
590 ===========================================================================
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
591 To run multiple Tcl processes, you start the first up with
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
592 \\[inferior-tcl]. It will be in a buffer named `*inferior-tcl*'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
593 Rename this buffer with \\[rename-buffer]. You may now start up a new
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
594 process with another \\[inferior-tcl]. It will be in a new buffer,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
595 named `*inferior-tcl*'. You can switch between the different process
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
596 buffers with \\[switch-to-buffer].
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
597
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
598 Commands that send text from source buffers to Tcl processes -- like
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
599 `tcl-eval-defun' or `tcl-load-file' -- have to choose a process to
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
600 send to, when you have more than one Tcl process around. This is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
601 determined by the global variable `inferior-tcl-buffer'. Suppose you
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
602 have three inferior Lisps running:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
603 Buffer Process
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
604 foo inferior-tcl
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
605 bar inferior-tcl<2>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
606 *inferior-tcl* inferior-tcl<3>
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
607 If you do a \\[tcl-eval-defun] command on some Lisp source code, what
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
608 process do you send it to?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
609
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
610 - If you're in a process buffer (foo, bar, or *inferior-tcl*),
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
611 you send it to that process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
612 - If you're in some other buffer (e.g., a source file), you
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
613 send it to the process attached to buffer `inferior-tcl-buffer'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
614 This process selection is performed by function `inferior-tcl-proc'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
615
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
616 Whenever \\[inferior-tcl] fires up a new process, it resets
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
617 `inferior-tcl-buffer' to be the new process's buffer. If you only run
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
618 one process, this does the right thing. If you run multiple
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
619 processes, you can change `inferior-tcl-buffer' to another process
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
620 buffer with \\[set-variable].")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
621
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
622 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
623 ;; Hooks and other customization.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
624 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
625
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
626 (defvar tcl-mode-hook nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
627 "Hook run on entry to Tcl mode.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
628
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
629 Several functions exist which are useful to run from your
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
630 `tcl-mode-hook' (see each function's documentation for more
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
631 information):
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
632
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
633 tcl-guess-application
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
634 Guesses a default setting for `tcl-application' based on any
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
635 \"#!\" line at the top of the file.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
636 tcl-hashify-buffer
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
637 Quotes all \"#\" characters that don't correspond to actual
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
638 Tcl comments. (Useful when editing code not originally created
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
639 with this mode).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
640 tcl-auto-fill-mode
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
641 Auto-filling of Tcl comments.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
642
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
643 Emacs 19 users can add functions to the hook with `add-hook':
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
644
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
645 (add-hook 'tcl-mode-hook 'tcl-guess-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
646
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
647 Emacs 18 users must use `setq':
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
648
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
649 (setq tcl-mode-hook (cons 'tcl-guess-application tcl-mode-hook))")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
650
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
651
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
652 (defvar inferior-tcl-mode-hook nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
653 "Hook for customizing Inferior Tcl mode.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
654
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
655 (defvar tcl-proc-list
12403
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
656 '("proc" "method" "itcl_class")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
657 "List of commands whose first argument defines something.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
658 This exists because some people (eg, me) use \"defvar\" et al.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
659 Call `tcl-set-proc-regexp' and `tcl-set-font-lock-keywords'
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
660 after changing this list.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
661
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
662 (defvar tcl-proc-regexp nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
663 "Regexp to use when matching proc headers.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
664
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
665 (defvar tcl-typeword-list
12403
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
666 '("global" "upvar" "inherit" "public" "protected" "common")
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
667 "List of Tcl keywords denoting \"type\". Used only for highlighting.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
668 Call `tcl-set-font-lock-keywords' after changing this list.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
669
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
670 ;; Generally I've picked control operators to be keywords.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
671 (defvar tcl-keyword-list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
672 '("if" "then" "else" "elseif" "for" "foreach" "break" "continue" "while"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
673 "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
674 "uplevel" "constructor" "destructor" "itcl_class" "loop" "for_array_keys"
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
675 "for_recursive_glob" "for_file")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
676 "List of Tcl keywords. Used only for highlighting.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
677 Default list includes some TclX keywords.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
678 Call `tcl-set-font-lock-keywords' after changing this list.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
679
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
680 (defvar tcl-font-lock-keywords nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
681 "Keywords to highlight for Tcl. See variable `font-lock-keywords'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
682 This variable is generally set from `tcl-proc-regexp',
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
683 `tcl-typeword-list', and `tcl-keyword-list' by the function
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
684 `tcl-set-font-lock-keywords'.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
685
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
686 ;; FIXME need some way to recognize variables because array refs look
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
687 ;; like 2 sexps.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
688 (defvar tcl-type-alist
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
689 '(
11793
6060e368ff05 (tcl-type-alist): Include entry for "proc".
Tom Tromey <tromey@redhat.com>
parents: 11790
diff changeset
690 ("proc" nil tcl-expr tcl-commands)
12404
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
691 ("method" nil tcl-expr tcl-commands)
12405
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
692 ("destructor" tcl-commands)
abcf4791a9b0 (tcl-type-alist): More itcl changes.
Tom Tromey <tromey@redhat.com>
parents: 12404
diff changeset
693 ("constructor" tcl-commands)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
694 ("expr" tcl-expr)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
695 ("catch" tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
696 ("if" tcl-expr "then" tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
697 ("elseif" tcl-expr "then" tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
698 ("elseif" tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
699 ("if" tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
700 ("while" tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
701 ("for" tcl-commands tcl-expr tcl-commands tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
702 ("foreach" nil nil tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
703 ("for_file" nil nil tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
704 ("for_array_keys" nil nil tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
705 ("for_recursive_glob" nil nil nil tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
706 ;; Loop handling is not perfect, because the third argument can be
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
707 ;; either a command or an expr, and there is no real way to look
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
708 ;; forward.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
709 ("loop" nil tcl-expr tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
710 ("loop" nil tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
711 )
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
712 "Alist that controls indentation.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
713 \(Actually, this really only controls what happens on continuation lines).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
714 Each entry looks like `(KEYWORD TYPE ...)'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
715 Each type entry describes a sexp after the keyword, and can be one of:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
716 * nil, meaning that this sexp has no particular type.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
717 * tcl-expr, meaning that this sexp is an arithmetic expression.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
718 * tcl-commands, meaning that this sexp holds Tcl commands.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
719 * a string, which must exactly match the string at the corresponding
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
720 position for a match to be made.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
721
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
722 For example, the entry for the \"loop\" command is:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
723
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
724 (\"loop\" nil tcl-expr tcl-commands)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
725
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
726 This means that the \"loop\" command has three arguments. The first
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
727 argument is ignored (for indentation purposes). The second argument
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
728 is a Tcl expression, and the last argument is Tcl commands.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
729
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
730 (defvar tcl-explain-indentation nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
731 "If not `nil', debugging message will be printed during indentation.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
732
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
733
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
734
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
735 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
736 ;; Work around differences between various versions of Emacs.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
737 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
738
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
739 ;; We use this because Lemacs 19.9 has what we need.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
740 (defconst tcl-pps-has-arg-6
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
741 (or tcl-using-emacs-19
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
742 (and tcl-using-xemacs-19
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
743 (condition-case nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
744 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
745 (parse-partial-sexp (point) (point) nil nil nil t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
746 t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
747 (error nil))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
748 "t if using an emacs which supports sixth (\"commentstop\") argument
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
749 to parse-partial-sexp.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
750
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
751 ;; Its pretty bogus to have to do this, but there is no easier way to
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
752 ;; say "match not syntax-1 and not syntax-2". Too bad you can't put
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
753 ;; \s in [...]. This sickness is used in Emacs 19 to match a defun
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
754 ;; starter. (It is used for this in v18 as well).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
755 ;;(defconst tcl-omit-ws-regexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
756 ;; (concat "^\\(\\s"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
757 ;; (mapconcat 'char-to-string "w_.()\"\\$'/" "\\|\\s")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
758 ;; "\\)\\S(*")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
759 ;; "Regular expression that matches everything except space, comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
760 ;;starter, and comment ender syntax codes.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
761
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
762 ;; FIXME? Instead of using the hairy regexp above, we just use a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
763 ;; simple one.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
764 ;;(defconst tcl-omit-ws-regexp "^[^] \t\n#}]\\S(*"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
765 ;; "Regular expression used in locating function definitions.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
766
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
767 ;; Here's another stab. I think this one actually works. Now the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
768 ;; problem seems to be that there is a bug in Emacs 19.22 where
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
769 ;; end-of-defun doesn't really use the brace matching the one that
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
770 ;; trails defun-prompt-regexp.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
771 (defconst tcl-omit-ws-regexp "^[^ \t\n#}][^\n}]+}*[ \t]+")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
772
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
773 (defun tcl-internal-beginning-of-defun (&optional arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
774 "Move backward to next beginning-of-defun.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
775 With argument, do this that many times.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
776 Returns t unless search stops due to end of buffer."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
777 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
778 (if (or (null arg) (= arg 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
779 (setq arg 1))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
780 (let (success)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
781 (while (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
782 (setq arg (1- arg))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
783 (and (>= arg 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
784 (setq success
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
785 (re-search-backward tcl-omit-ws-regexp nil 'move 1))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
786 (while (and (looking-at "[]#}]")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
787 (setq success
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
788 (re-search-backward tcl-omit-ws-regexp nil 'move 1)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
789 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
790 (not (null success))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
791
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
792 (defun tcl-internal-end-of-defun (&optional arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
793 "Move forward to next end of defun.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
794 An end of a defun is found by moving forward from the beginning of one."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
795 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
796 (if (or (null arg) (= arg 0)) (setq arg 1))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
797 (let ((start (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
798 ;; Was forward-char. I think this works a little better.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
799 (forward-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
800 (tcl-beginning-of-defun)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
801 (while (> arg 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
802 (while (and (re-search-forward tcl-omit-ws-regexp nil 'move 1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
803 (progn (beginning-of-line) t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
804 (looking-at "[]#}]")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
805 (progn (forward-line) t)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
806 (let ((next-line (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
807 (forward-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
808 (point))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
809 (while (< (point) next-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
810 (forward-sexp)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
811 (forward-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
812 (if (> (point) start) (setq arg (1- arg))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
813
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
814 ;; In Emacs 19, we can use begining-of-defun as long as we set up a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
815 ;; certain regexp. In Emacs 18, we need our own function.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
816 (fset 'tcl-beginning-of-defun
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
817 (if tcl-using-emacs-19
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
818 'beginning-of-defun
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
819 'tcl-internal-beginning-of-defun))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
820
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
821 ;; Ditto end-of-defun.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
822 (fset 'tcl-end-of-defun
12523
a42c105f8337 XEmacs currently must use tcl-internal-end-of-defun
Tom Tromey <tromey@redhat.com>
parents: 12520
diff changeset
823 (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
824 'end-of-defun
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
825 'tcl-internal-end-of-defun))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
826
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
827 ;; Internal mark-defun that is used for losing Emacsen.
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
828 (defun tcl-internal-mark-defun ()
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
829 "Put mark at end of Tcl function, point at beginning."
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
830 (interactive)
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
831 (push-mark (point))
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
832 (tcl-end-of-defun)
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
833 (if tcl-using-emacs-19
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
834 (push-mark (point) nil t)
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
835 (push-mark (point)))
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
836 (tcl-beginning-of-defun)
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
837 (backward-paragraph))
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
838
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
839 ;; In GNU Emacs 19-23 and later, mark-defun works as advertised. I
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
840 ;; don't know about XEmacs, so for now it and Emacs 18 just lose.
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
841 (fset 'tcl-mark-defun
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
842 (if tcl-using-emacs-19-23
7629
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
843 'mark-defun
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
844 'tcl-internal-mark-defun))
5f634da854fd Fixed mark-defun for 19.23.
Tom Tromey <tromey@redhat.com>
parents: 7628
diff changeset
845
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
846 ;; In GNU Emacs 19, mark takes an additional "force" argument. I
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
847 ;; don't know about XEmacs, so I'm just assuming it is the same.
7687
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
848 ;; Emacs 18 doesn't have this argument.
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
849 (defun tcl-mark ()
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
850 "Return mark, or nil if none."
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
851 (if tcl-using-emacs-19
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
852 (mark t)
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
853 (mark)))
6447f9b3c966 Menu items now sensitive as appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7635
diff changeset
854
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
855
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
856
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
857 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
858 ;; Some helper functions.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
859 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
860
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
861 (defun tcl-set-proc-regexp ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
862 "Set `tcl-proc-regexp' from variable `tcl-proc-list'."
12403
f863ead116f0 (tcl-set-proc-regexp): Allow leading spaces.
Tom Tromey <tromey@redhat.com>
parents: 11793
diff changeset
863 (setq tcl-proc-regexp (concat "^\\s-*\\("
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
864 (mapconcat 'identity tcl-proc-list "\\|")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
865 "\\)[ \t]+")))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
866
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
867 (defun tcl-set-font-lock-keywords ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
868 "Set `tcl-font-lock-keywords'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
869 Uses variables `tcl-proc-regexp' and `tcl-keyword-list'."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
870 (setq tcl-font-lock-keywords
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
871 (list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
872 ;; Names of functions (and other "defining things").
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
873 (list (concat tcl-proc-regexp "\\([^ \t\n]+\\)")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
874 2 'font-lock-function-name-face)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
875
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
876 ;; Names of type-defining things.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
877 (list (concat "\\(\\s-\\|^\\)\\("
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
878 ;; FIXME Use 'regexp-quote?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
879 (mapconcat 'identity tcl-typeword-list "\\|")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
880 "\\)\\(\\s-\\|$\\)")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
881 2 'font-lock-type-face)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
882
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
883 ;; Keywords. Only recognized if surrounded by whitespace.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
884 ;; FIXME consider using "not word or symbol", not
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
885 ;; "whitespace".
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
886 (cons (concat "\\(\\s-\\|^\\)\\("
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
887 ;; FIXME Use regexp-quote?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
888 (mapconcat 'identity tcl-keyword-list "\\|")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
889 "\\)\\(\\s-\\|$\\)")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
890 2)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
891 )))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
892
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
893 (if tcl-proc-regexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
894 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
895 (tcl-set-proc-regexp))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
896
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
897 (if tcl-font-lock-keywords
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
898 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
899 (tcl-set-font-lock-keywords))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
900
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
901
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
902
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
903 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
904 ;; The mode itself.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
905 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
906
8252
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
907 ;;;###autoload
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
908 (defun tcl-mode ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
909 "Major mode for editing Tcl code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
910 Expression and list commands understand all Tcl brackets.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
911 Tab indents for Tcl code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
912 Paragraphs are separated by blank lines only.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
913 Delete converts tabs to spaces as it moves back.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
914
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
915 Variables controlling indentation style:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
916 tcl-indent-level
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
917 Indentation of Tcl statements within surrounding block.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
918 tcl-continued-indent-level
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
919 Indentation of continuation line relative to first line of command.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
920
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
921 Variables controlling user interaction with mode (see variable
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
922 documentation for details):
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
923 tcl-tab-always-indent
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
924 Controls action of TAB key.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
925 tcl-auto-newline
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
926 Non-nil means automatically newline before and after braces, brackets,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
927 and semicolons inserted in Tcl code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
928 tcl-electric-hash-style
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
929 Controls action of `#' key.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
930 tcl-use-hairy-comment-detector
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
931 If t, use more complicated, but slower, comment detector.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
932 This variable is only used in GNU Emacs 19.
12644
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
933 tcl-use-smart-word-finder
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
934 If not nil, use a smarter, Tcl-specific way to find the current
35800a352783 Doc fixes.
Tom Tromey <tromey@redhat.com>
parents: 12524
diff changeset
935 word when looking up help on a Tcl command.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
936
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
937 Turning on Tcl mode calls the value of the variable `tcl-mode-hook'
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
938 with no args, if that value is non-nil. Read the documentation for
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
939 `tcl-mode-hook' to see what kinds of interesting hook functions
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
940 already exist.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
941
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
942 Commands:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
943 \\{tcl-mode-map}"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
944 (interactive)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
945 (kill-all-local-variables)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
946 (use-local-map tcl-mode-map)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
947 (setq major-mode 'tcl-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
948 (setq mode-name "Tcl")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
949 (setq local-abbrev-table tcl-mode-abbrev-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
950 (set-syntax-table tcl-mode-syntax-table)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
951
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
952 (make-local-variable 'paragraph-start)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
953 (make-local-variable 'paragraph-separate)
12514
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
954 (if (and tcl-using-emacs-19-23
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
955 (>= emacs-minor-version 29))
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
956 (progn
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
957 ;; In Emacs 19.29, you aren't supposed to start these with a
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
958 ;; ^.
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
959 (setq paragraph-start "$\\| ")
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
960 (setq paragraph-separate paragraph-start))
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
961 (setq paragraph-start (concat "^$\\|" page-delimiter))
83c518dd26c7 (tcl-mode): Fixes to 19.29 paragraph variables.
Tom Tromey <tromey@redhat.com>
parents: 12513
diff changeset
962 (setq paragraph-separate paragraph-start))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
963 (make-local-variable 'paragraph-ignore-fill-prefix)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
964 (setq paragraph-ignore-fill-prefix t)
12515
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
965 (make-local-variable 'fill-paragraph-function)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
966 (setq fill-paragraph-function 'tcl-do-fill-paragraph)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
967
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
968 (make-local-variable 'indent-line-function)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
969 (setq indent-line-function 'tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
970 ;; Tcl doesn't require a final newline.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
971 ;; (make-local-variable 'require-final-newline)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
972 ;; (setq require-final-newline t)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
973
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
974 (make-local-variable 'comment-start)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
975 (setq comment-start "# ")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
976 (make-local-variable 'comment-start-skip)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
977 (setq comment-start-skip "#+ *")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
978 (make-local-variable 'comment-column)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
979 (setq comment-column 40)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
980 (make-local-variable 'comment-end)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
981 (setq comment-end "")
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
982
11303
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
983 (make-local-variable 'outline-regexp)
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
984 (setq outline-regexp "[^\n\^M]")
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
985 (make-local-variable 'outline-level)
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
986 (setq outline-level 'tcl-outline-level)
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
987
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
988 (make-local-variable 'font-lock-keywords)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
989 (setq font-lock-keywords tcl-font-lock-keywords)
7613
0dc4969a8038 Fixes for imenu.
Tom Tromey <tromey@redhat.com>
parents: 7612
diff changeset
990
0dc4969a8038 Fixes for imenu.
Tom Tromey <tromey@redhat.com>
parents: 7612
diff changeset
991 ;; The following only really makes sense under GNU Emacs 19.
9428
3d5070024b68 (tcl-mode): imenu-create-index-function made buffer local.
Tom Tromey <tromey@redhat.com>
parents: 8681
diff changeset
992 (make-local-variable 'imenu-create-index-function)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
993 (setq imenu-create-index-function 'tcl-imenu-create-index-function)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
994 (make-local-variable 'parse-sexp-ignore-comments)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
995
12517
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
996 ;; Settings for new dabbrev code.
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
997 (make-local-variable 'dabbrev-case-fold-search)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
998 (setq dabbrev-case-fold-search nil)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
999 (make-local-variable 'dabbrev-case-replace)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1000 (setq dabbrev-case-replace nil)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1001 (make-local-variable 'dabbrev-abbrev-skip-leading-regexp)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1002 (setq dabbrev-abbrev-skip-leading-regexp "[$!]")
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1003 (make-local-variable 'dabbrev-abbrev-char-regexp)
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1004 (setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_")
2f90abd1c659 (tcl-mode): Customize for new dabbrev.
Tom Tromey <tromey@redhat.com>
parents: 12515
diff changeset
1005
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1006 (if tcl-using-emacs-19
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1007 (progn
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
1008 ;; This can only be set to t in Emacs 19 and XEmacs.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1009 ;; Emacs 18 and Epoch lose.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1010 (setq parse-sexp-ignore-comments t)
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
1011 ;; XEmacs has defun-prompt-regexp, but I don't believe
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1012 ;; that it works for end-of-defun -- only for
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1013 ;; beginning-of-defun.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1014 (make-local-variable 'defun-prompt-regexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1015 (setq defun-prompt-regexp tcl-omit-ws-regexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1016 ;; The following doesn't work in Lucid Emacs 19.6, but maybe
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1017 ;; it will appear in later versions.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1018 (make-local-variable 'add-log-current-defun-function)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1019 (setq add-log-current-defun-function 'add-log-tcl-defun))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1020 (setq parse-sexp-ignore-comments nil))
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1021
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
1022 ;; Put Tcl menu into menubar for XEmacs. This happens
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1023 ;; automatically for GNU Emacs.
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
1024 (if (and tcl-using-xemacs-19
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1025 current-menubar
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1026 (not (assoc "Tcl" current-menubar)))
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1027 (progn
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1028 (set-buffer-menubar (copy-sequence current-menubar))
12404
cf59ada47a1c More changes for itcl.
Tom Tromey <tromey@redhat.com>
parents: 12403
diff changeset
1029 (add-menu nil "Tcl" tcl-xemacs-menu)))
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
1030 ;; Append Tcl menu to popup menu for XEmacs.
11789
69cd9dade419 Bug fix in menu code for XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 11787
diff changeset
1031 (if (and tcl-using-xemacs-19 (boundp 'mode-popup-menu))
12520
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
1032 (setq mode-popup-menu
ad24dd8cec5c Changes to make menus work in XEmacs.
Tom Tromey <tromey@redhat.com>
parents: 12517
diff changeset
1033 (cons (concat mode-name " Mode Commands") tcl-xemacs-menu)))
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
1034
12924
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1035 ;; If hilit19 is loaded, add our stuff.
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1036 (if (featurep 'hilit19)
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1037 (tcl-hilit))
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1038
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1039 (run-hooks 'tcl-mode-hook))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1040
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1041
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1042
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1043 ;; This is used for braces, brackets, and semi (except for closing
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1044 ;; braces, which are handled specially).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1045 (defun tcl-electric-char (arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1046 "Insert character and correct line's indentation."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1047 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1048 ;; Indent line first; this looks better if parens blink.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1049 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1050 (self-insert-command arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1051 (if (and tcl-auto-newline (= last-command-char ?\;))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1052 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1053 (newline)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1054 (tcl-indent-line))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1055
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1056 ;; This is used for closing braces. If tcl-auto-newline is set, can
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1057 ;; insert a newline both before and after the brace, depending on
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1058 ;; context. FIXME should this be configurable? Does anyone use this?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1059 (defun tcl-electric-brace (arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1060 "Insert character and correct line's indentation."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1061 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1062 ;; If auto-newlining and there is stuff on the same line, insert a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1063 ;; newline first.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1064 (if tcl-auto-newline
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1065 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1066 (if (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1067 (skip-chars-backward " \t")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1068 (bolp))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1069 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1070 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1071 (newline))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1072 ;; In auto-newline case, must insert a newline after each
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1073 ;; brace. So an explicit loop is needed.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1074 (while (> arg 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1075 (insert last-command-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1076 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1077 (newline)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1078 (setq arg (1- arg))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1079 (self-insert-command arg))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1080 (tcl-indent-line))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1081
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1082
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1083
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1084 (defun tcl-indent-command (&optional arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1085 "Indent current line as Tcl code, or in some cases insert a tab character.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1086 If tcl-tab-always-indent is t (the default), always indent current line.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1087 If tcl-tab-always-indent is nil and point is not in the indentation
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1088 area at the beginning of the line, a TAB is inserted.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1089 Other values of tcl-tab-always-indent cause the first possible action
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1090 from the following list to take place:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1091
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1092 1. Move from beginning of line to correct indentation.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1093 2. Delete an empty comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1094 3. Move forward to start of comment, indenting if necessary.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1095 4. Move forward to end of line, indenting if necessary.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1096 5. Create an empty comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1097 6. Move backward to start of comment, indenting if necessary."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1098 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1099 (cond
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1100 ((not tcl-tab-always-indent)
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1101 ;; Indent if in indentation area, otherwise insert TAB.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1102 (if (<= (current-column) (current-indentation))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1103 (tcl-indent-line)
16170
2e26cb0991de (tcl-indent-command): Use insert-tab, not self-insert-command.
Tom Tromey <tromey@redhat.com>
parents: 14865
diff changeset
1104 (insert-tab arg)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1105 ((eq tcl-tab-always-indent t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1106 ;; Always indent.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1107 (tcl-indent-line))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1108 (t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1109 ;; "Perl-mode" style TAB command.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1110 (let* ((ipoint (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1111 (eolpoint (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1112 (end-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1113 (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1114 (comment-p (tcl-in-comment)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1115 (cond
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1116 ((= ipoint (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1117 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1118 (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1119 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1120 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1121 ;; If indenting didn't leave us in column 0, go to the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1122 ;; indentation. Otherwise leave point at end of line. This
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1123 ;; is a hack.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1124 (if (= (point) (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1125 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1126 (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1127 (end-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1128 (back-to-indentation)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1129 ((and comment-p (looking-at "[ \t]*$"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1130 ;; Empty comment, so delete it. We also delete any ";"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1131 ;; characters at the end of the line. I think this is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1132 ;; friendlier, but I don't know how other people will feel.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1133 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1134 (skip-chars-backward " \t;")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1135 (delete-region (point) eolpoint))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1136 ((and comment-p (< ipoint (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1137 ;; Before comment, so skip to it.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1138 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1139 (indent-for-comment))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1140 ((/= ipoint eolpoint)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1141 ;; Go to end of line (since we're not there yet).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1142 (goto-char eolpoint)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1143 (tcl-indent-line))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1144 ((not comment-p)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1145 (tcl-indent-line)
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1146 (tcl-indent-for-comment))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1147 (t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1148 ;; Go to start of comment. We don't leave point where it is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1149 ;; because we want to skip comment-start-skip.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1150 (tcl-indent-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1151 (indent-for-comment)))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1152
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1153 (defun tcl-indent-line ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1154 "Indent current line as Tcl code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1155 Return the amount the indentation changed by."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1156 (let ((indent (calculate-tcl-indent nil))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1157 beg shift-amt
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1158 (case-fold-search nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1159 (pos (- (point-max) (point))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1160 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1161 (setq beg (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1162 (cond ((eq indent nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1163 (setq indent (current-indentation)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1164 (t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1165 (skip-chars-forward " \t")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1166 (if (listp indent) (setq indent (car indent)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1167 (cond ((= (following-char) ?})
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1168 (setq indent (- indent tcl-indent-level)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1169 ((= (following-char) ?\])
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1170 (setq indent (- indent 1))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1171 (skip-chars-forward " \t")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1172 (setq shift-amt (- indent (current-column)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1173 (if (zerop shift-amt)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1174 (if (> (- (point-max) pos) (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1175 (goto-char (- (point-max) pos)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1176 (delete-region beg (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1177 (indent-to indent)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1178 ;; If initial point was within line's indentation,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1179 ;; position after the indentation. Else stay at same point in text.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1180 (if (> (- (point-max) pos) (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1181 (goto-char (- (point-max) pos))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1182 shift-amt))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1183
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1184 (defun tcl-figure-type ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1185 "Determine type of sexp at point.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1186 This is either 'tcl-expr, 'tcl-commands, or nil. Puts point at start
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1187 of sexp that indicates types.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1188
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1189 See documentation for variable `tcl-type-alist' for more information."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1190 (let ((count 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1191 result
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1192 word-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1193 (while (and (< count 5)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1194 (not result))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1195 (condition-case nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1196 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1197 ;; FIXME should use "tcl-backward-sexp", which would skip
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1198 ;; over entire variables, etc.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1199 (backward-sexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1200 (if (looking-at "[a-zA-Z_]+")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1201 (let ((list tcl-type-alist)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1202 entry)
12645
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1203 (setq word-stack (cons (tcl-word-no-props) word-stack))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1204 (while (and list (not result))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1205 (setq entry (car list))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1206 (setq list (cdr list))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1207 (let ((index 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1208 (while (and entry (<= index count))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1209 ;; Abort loop if string does not match word on
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1210 ;; stack.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1211 (and (stringp (car entry))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1212 (not (string= (car entry)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1213 (nth index word-stack)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1214 (setq entry nil))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1215 (setq entry (cdr entry))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1216 (setq index (1+ index)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1217 (and (> index count)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1218 (not (stringp (car entry)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1219 (setq result (car entry)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1220 )))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1221 (setq word-stack (cons nil word-stack))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1222 (error nil))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1223 (setq count (1+ count)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1224 (and tcl-explain-indentation
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1225 (message "Indentation type %s" result))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1226 result))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1227
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1228 (defun calculate-tcl-indent (&optional parse-start)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1229 "Return appropriate indentation for current line as Tcl code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1230 In usual case returns an integer: the column to indent to.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1231 Returns nil if line starts inside a string, t if in a comment."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1232 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1233 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1234 (let* ((indent-point (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1235 (case-fold-search nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1236 (continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1237 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1238 (if (bobp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1239 nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1240 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1241 (= ?\\ (preceding-char)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1242 (continued-indent-value (if continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1243 tcl-continued-indent-level
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1244 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1245 state
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1246 containing-sexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1247 found-next-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1248 (if parse-start
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1249 (goto-char parse-start)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1250 (tcl-beginning-of-defun))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1251 (while (< (point) indent-point)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1252 (setq parse-start (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1253 (setq state (parse-partial-sexp (point) indent-point 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1254 (setq containing-sexp (car (cdr state))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1255 (cond ((or (nth 3 state) (nth 4 state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1256 ;; Inside comment or string. Return nil or t if should
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1257 ;; not change this line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1258 (nth 4 state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1259 ((null containing-sexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1260 ;; Line is at top level.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1261 continued-indent-value)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1262 (t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1263 ;; Set expr-p if we are looking at the expression part of
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1264 ;; an "if", "expr", etc statement. Set commands-p if we
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1265 ;; are looking at the body part of an if, while, etc
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1266 ;; statement. FIXME Should check for "for" loops here.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1267 (goto-char containing-sexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1268 (let* ((sexpr-type (tcl-figure-type))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1269 (expr-p (eq sexpr-type 'tcl-expr))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1270 (commands-p (eq sexpr-type 'tcl-commands))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1271 (expr-start (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1272 ;; Find the first statement in the block and indent
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1273 ;; like it. The first statement in the block might be
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1274 ;; on the same line, so what we do is skip all
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1275 ;; "virtually blank" lines, looking for a non-blank
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1276 ;; one. A line is virtually blank if it only contains
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1277 ;; a comment and whitespace. FIXME continued comments
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1278 ;; aren't supported. They are a wart on Tcl anyway.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1279 ;; We do it this funky way because we want to know if
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1280 ;; we've found a statement on some line _after_ the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1281 ;; line holding the sexp opener.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1282 (goto-char containing-sexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1283 (forward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1284 (if (and (< (point) indent-point)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1285 (looking-at "[ \t]*\\(#.*\\)?$"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1286 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1287 (forward-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1288 (while (and (< (point) indent-point)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1289 (looking-at "[ \t]*\\(#.*\\)?$"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1290 (setq found-next-line t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1291 (forward-line))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1292 (if (or continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1293 (/= (char-after containing-sexp) ?{)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1294 expr-p)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1295 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1296 ;; Line is continuation line, or the sexp opener
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1297 ;; is not a curly brace, or we are are looking at
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1298 ;; an `expr' expression (which must be split
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1299 ;; specially). So indentation is column of first
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1300 ;; good spot after sexp opener (with some added
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1301 ;; in the continued-line case). If there is no
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1302 ;; nonempty line before the indentation point, we
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1303 ;; use the column of the character after the sexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1304 ;; opener.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1305 (if (>= (point) indent-point)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1306 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1307 (goto-char containing-sexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1308 (forward-char))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1309 (skip-chars-forward " \t"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1310 (+ (current-column) continued-indent-value))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1311 ;; After a curly brace, and not a continuation line.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1312 ;; So take indentation from first good line after
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1313 ;; start of block, unless that line is on the same
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1314 ;; line as the opening brace. In this case use the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1315 ;; indentation of the opening brace's line, plus
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1316 ;; another indent step. If we are in the body part
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1317 ;; of an "if" or "while" then the indentation is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1318 ;; taken from the line holding the start of the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1319 ;; statement.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1320 (if (and (< (point) indent-point)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1321 found-next-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1322 (current-indentation)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1323 (if commands-p
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1324 (goto-char expr-start)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1325 (goto-char containing-sexp))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1326 (+ (current-indentation) tcl-indent-level)))))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1327
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1328
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1329
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1330 (defun indent-tcl-exp ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1331 "Indent each line of the Tcl grouping following point."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1332 (interactive)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1333 (let ((indent-stack (list nil))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1334 (contain-stack (list (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1335 (case-fold-search nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1336 outer-loop-done inner-loop-done state ostate
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1337 this-indent last-sexp continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1338 (next-depth 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1339 last-depth)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1340 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1341 (forward-sexp 1))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1342 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1343 (setq outer-loop-done nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1344 (while (and (not (eobp)) (not outer-loop-done))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1345 (setq last-depth next-depth)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1346 ;; Compute how depth changes over this line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1347 ;; plus enough other lines to get to one that
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1348 ;; does not end inside a comment or string.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1349 ;; Meanwhile, do appropriate indentation on comment lines.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1350 (setq inner-loop-done nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1351 (while (and (not inner-loop-done)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1352 (not (and (eobp) (setq outer-loop-done t))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1353 (setq ostate state)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1354 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1355 nil nil state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1356 (setq next-depth (car state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1357 (if (and (car (cdr (cdr state)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1358 (>= (car (cdr (cdr state))) 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1359 (setq last-sexp (car (cdr (cdr state)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1360 (if (or (nth 4 ostate))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1361 (tcl-indent-line))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1362 (if (or (nth 3 state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1363 (forward-line 1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1364 (setq inner-loop-done t)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1365 (if (<= next-depth 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1366 (setq outer-loop-done t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1367 (if outer-loop-done
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1368 nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1369 ;; If this line had ..))) (((.. in it, pop out of the levels
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1370 ;; that ended anywhere in this line, even if the final depth
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1371 ;; doesn't indicate that they ended.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1372 (while (> last-depth (nth 6 state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1373 (setq indent-stack (cdr indent-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1374 contain-stack (cdr contain-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1375 last-depth (1- last-depth)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1376 (if (/= last-depth next-depth)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1377 (setq last-sexp nil))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1378 ;; Add levels for any parens that were started in this line.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1379 (while (< last-depth next-depth)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1380 (setq indent-stack (cons nil indent-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1381 contain-stack (cons nil contain-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1382 last-depth (1+ last-depth)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1383 (if (null (car contain-stack))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1384 (setcar contain-stack
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1385 (or (car (cdr state))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1386 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1387 (forward-sexp -1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1388 (point)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1389 (forward-line 1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1390 (setq continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1391 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1392 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1393 (= (preceding-char) ?\\)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1394 (skip-chars-forward " \t")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1395 (if (eolp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1396 nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1397 (if (and (car indent-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1398 (>= (car indent-stack) 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1399 ;; Line is on an existing nesting level.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1400 (setq this-indent (car indent-stack))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1401 ;; Just started a new nesting level.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1402 ;; Compute the standard indent for this level.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1403 (let ((val (calculate-tcl-indent
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1404 (if (car indent-stack)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1405 (- (car indent-stack))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1406 (setcar indent-stack
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1407 (setq this-indent val))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1408 (setq continued-line nil)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1409 (cond ((not (numberp this-indent)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1410 ((= (following-char) ?})
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1411 (setq this-indent (- this-indent tcl-indent-level)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1412 ((= (following-char) ?\])
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1413 (setq this-indent (- this-indent 1))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1414 ;; Put chosen indentation into effect.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1415 (or (null this-indent)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1416 (= (current-column)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1417 (if continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1418 (+ this-indent tcl-indent-level)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1419 this-indent))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1420 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1421 (delete-region (point) (progn (beginning-of-line) (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1422 (indent-to
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1423 (if continued-line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1424 (+ this-indent tcl-indent-level)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1425 this-indent)))))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1426 )
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1427
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1428
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1429
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1430 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1431 ;; Interfaces to other packages.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1432 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1433
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1434 (defun tcl-imenu-create-index-function ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1435 "Generate alist of indices for imenu."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1436 (let ((re (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))
12510
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1437 alist prev-pos)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1438 (goto-char (point-min))
12510
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1439 (imenu-progress-message prev-pos 0)
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1440 (save-match-data
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1441 (while (re-search-forward re nil t)
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1442 (imenu-progress-message prev-pos)
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1443 ;; Position on start of proc name, not beginning of line.
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1444 (setq alist (cons
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1445 (cons (buffer-substring (match-beginning 2) (match-end 2))
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1446 (match-beginning 2))
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1447 alist))))
4626f1d99c52 (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29
Tom Tromey <tromey@redhat.com>
parents: 12405
diff changeset
1448 (imenu-progress-message prev-pos 100)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1449 (nreverse alist)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1450
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1451 ;; FIXME Definition of function is very ad-hoc. Should use
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1452 ;; tcl-beginning-of-defun. Also has incestuous knowledge about the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1453 ;; format of tcl-proc-regexp.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1454 (defun add-log-tcl-defun ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1455 "Return name of Tcl function point is in, or nil."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1456 (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
1457 (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
1458 (if (re-search-backward (concat tcl-proc-regexp "\\([^ \t\n{]+\\)") nil t)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1459 (buffer-substring (match-beginning 2)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1460 (match-end 2)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1461
11303
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
1462 (defun tcl-outline-level ()
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
1463 (save-excursion
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
1464 (skip-chars-forward " \t")
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
1465 (current-column)))
7823947372f9 (tcl-outline-level): New function
Tom Tromey <tromey@redhat.com>
parents: 9428
diff changeset
1466
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1467
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1468
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1469 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1470 ;; Helper functions for inferior Tcl mode.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1471 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1472
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1473 ;; This exists to let us delete the prompt when commands are sent
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1474 ;; directly to the inferior Tcl. See gud.el for an explanation of how
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1475 ;; it all works (I took it from there). This stuff doesn't really
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1476 ;; work as well as I'd like it to. But I don't believe there is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1477 ;; anything useful that can be done.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1478 (defvar inferior-tcl-delete-prompt-marker nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1479
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1480 (defun tcl-filter (proc string)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1481 (let ((inhibit-quit t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1482 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1483 (set-buffer (process-buffer proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1484 (goto-char (process-mark proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1485 ;; Delete prompt if requested.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1486 (if (marker-buffer inferior-tcl-delete-prompt-marker)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1487 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1488 (delete-region (point) inferior-tcl-delete-prompt-marker)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1489 (set-marker inferior-tcl-delete-prompt-marker nil)))))
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
1490 (if tcl-using-emacs-19
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
1491 (comint-output-filter proc string)
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
1492 (funcall comint-output-filter string)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1493
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1494 (defun tcl-send-string (proc string)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1495 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1496 (set-buffer (process-buffer proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1497 (goto-char (process-mark proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1498 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1499 (if (looking-at comint-prompt-regexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1500 (set-marker inferior-tcl-delete-prompt-marker (point))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1501 (comint-send-string proc string))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1502
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1503 (defun tcl-send-region (proc start end)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1504 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1505 (set-buffer (process-buffer proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1506 (goto-char (process-mark proc))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1507 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1508 (if (looking-at comint-prompt-regexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1509 (set-marker inferior-tcl-delete-prompt-marker (point))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1510 (comint-send-region proc start end))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1511
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1512 (defun switch-to-tcl (eob-p)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1513 "Switch to inferior Tcl process buffer.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1514 With argument, positions cursor at end of buffer."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1515 (interactive "P")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1516 (if (get-buffer inferior-tcl-buffer)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1517 (pop-to-buffer inferior-tcl-buffer)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1518 (error "No current inferior Tcl buffer"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1519 (cond (eob-p
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1520 (push-mark)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1521 (goto-char (point-max)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1522
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1523 (defun inferior-tcl-proc ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1524 "Return current inferior Tcl process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1525 See variable `inferior-tcl-buffer'."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1526 (let ((proc (get-buffer-process (if (eq major-mode 'inferior-tcl-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1527 (current-buffer)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1528 inferior-tcl-buffer))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1529 (or proc
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1530 (error "No Tcl process; see variable `inferior-tcl-buffer'"))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1531
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1532 (defun tcl-eval-region (start end &optional and-go)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1533 "Send the current region to the inferior Tcl process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1534 Prefix argument means switch to the Tcl buffer afterwards."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1535 (interactive "r\nP")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1536 (let ((proc (inferior-tcl-proc)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1537 (tcl-send-region proc start end)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1538 (tcl-send-string proc "\n")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1539 (if and-go (switch-to-tcl t))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1540
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1541 (defun tcl-eval-defun (&optional and-go)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1542 "Send the current defun to the inferior Tcl process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1543 Prefix argument means switch to the Tcl buffer afterwards."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1544 (interactive "P")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1545 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1546 (tcl-end-of-defun)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1547 (let ((end (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1548 (tcl-beginning-of-defun)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1549 (tcl-eval-region (point) end)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1550 (if and-go (switch-to-tcl t)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1551
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1552
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1553
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1554 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1555 ;; Inferior Tcl mode itself.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1556 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1557
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1558 (defun inferior-tcl-mode ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1559 "Major mode for interacting with Tcl interpreter.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1560
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1561 A Tcl process can be started with M-x inferior-tcl.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1562
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1563 Entry to this mode runs the hooks comint-mode-hook and
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1564 inferior-tcl-mode-hook, in that order.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1565
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1566 You can send text to the inferior Tcl process from other buffers
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1567 containing Tcl source.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1568
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1569 Variables controlling Inferior Tcl mode:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1570 tcl-application
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1571 Name of program to run.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1572 tcl-command-switches
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1573 Command line arguments to `tcl-application'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1574 tcl-prompt-regexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1575 Matches prompt.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1576 inferior-tcl-source-command
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1577 Command to use to read Tcl file in running application.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1578 inferior-tcl-buffer
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1579 The current inferior Tcl process buffer. See variable
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1580 documentation for details on multiple-process support.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1581
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1582 The following commands are available:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1583 \\{inferior-tcl-mode-map}"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1584 (interactive)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1585 (comint-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1586 (setq comint-prompt-regexp (or tcl-prompt-regexp
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1587 (concat "^"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1588 (regexp-quote tcl-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1589 ">")))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1590 (setq major-mode 'inferior-tcl-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1591 (setq mode-name "Inferior Tcl")
12524
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
1592 (if (boundp 'modeline-process)
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
1593 (setq modeline-process '(": %s")) ; For XEmacs.
1e667d64128a (inferior-tcl-mode): Use modeline-process if it exists.
Tom Tromey <tromey@redhat.com>
parents: 12523
diff changeset
1594 (setq mode-line-process '(": %s")))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1595 (use-local-map inferior-tcl-mode-map)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1596 (setq local-abbrev-table tcl-mode-abbrev-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1597 (set-syntax-table tcl-mode-syntax-table)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1598 (if tcl-using-emacs-19
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1599 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1600 (make-local-variable 'defun-prompt-regexp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1601 (setq defun-prompt-regexp tcl-omit-ws-regexp)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1602 (make-local-variable 'inferior-tcl-delete-prompt-marker)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1603 (setq inferior-tcl-delete-prompt-marker (make-marker))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1604 (set-process-filter (get-buffer-process (current-buffer)) 'tcl-filter)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1605 (run-hooks 'inferior-tcl-mode-hook))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1606
8252
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
1607 ;;;###autoload
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1608 (defun inferior-tcl (cmd)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1609 "Run inferior Tcl process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1610 Prefix arg means enter program name interactively.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1611 See documentation for function `inferior-tcl-mode' for more information."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1612 (interactive
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1613 (list (if current-prefix-arg
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1614 (read-string "Run Tcl: " tcl-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1615 tcl-application)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1616 (if (not (comint-check-proc "*inferior-tcl*"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1617 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1618 (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1619 tcl-command-switches))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1620 (inferior-tcl-mode)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1621 (make-local-variable 'tcl-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1622 (setq tcl-application cmd)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1623 (setq inferior-tcl-buffer "*inferior-tcl*")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1624 (switch-to-buffer "*inferior-tcl*"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1625
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1626 (and (fboundp 'defalias)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1627 (defalias 'run-tcl 'inferior-tcl))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1628
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1629
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1630
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1631 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1632 ;; Auto-fill support.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1633 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1634
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1635 (defun tcl-real-command-p ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1636 "Return nil if point is not at the beginning of a command.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1637 A command is the first word on an otherwise empty line, or the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1638 first word following a semicolon, opening brace, or opening bracket."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1639 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1640 (skip-chars-backward " \t")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1641 (cond
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1642 ((bobp) t)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1643 ((bolp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1644 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1645 ;; Note -- continued comments are not supported here. I
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1646 ;; consider those to be a wart on the language.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1647 (not (eq ?\\ (preceding-char))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1648 (t
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1649 (memq (preceding-char) '(?\; ?{ ?\[))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1650
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1651 ;; FIXME doesn't actually return t. See last case.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1652 (defun tcl-real-comment-p ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1653 "Return t if point is just after the `#' beginning a real comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1654 Does not check to see if previous char is actually `#'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1655 A real comment is either at the beginning of the buffer,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1656 preceeded only by whitespace on the line, or has a preceeding
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1657 semicolon, opening brace, or opening bracket on the same line."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1658 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1659 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1660 (tcl-real-command-p)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1661
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1662 (defun tcl-hairy-scan-for-comment (state end always-stop)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1663 "Determine if point is in a comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1664 Returns a list of the form `(FLAG . STATE)'. STATE can be used
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1665 as input to future invocations. FLAG is nil if not in comment,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1666 t otherwise. If in comment, leaves point at beginning of comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1667 Only works in Emacs 19. See also `tcl-simple-scan-for-comment', a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1668 simpler version that is often right, and works in Emacs 18."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1669 (let ((bol (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1670 (goto-char end)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1671 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1672 (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1673 real-comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1674 last-cstart)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1675 (while (and (not last-cstart) (< (point) end))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1676 (setq real-comment nil) ;In case we've looped around and it is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1677 ;set.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1678 (setq state (parse-partial-sexp (point) end nil nil state t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1679 (if (nth 4 state)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1680 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1681 ;; If ALWAYS-STOP is set, stop even if we don't have a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1682 ;; real comment, or if the comment isn't on the same line
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1683 ;; as the end.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1684 (if always-stop (setq last-cstart (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1685 ;; If we have a real comment, then set the comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1686 ;; starting point if we are on the same line as the ending
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1687 ;; location.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1688 (setq real-comment (tcl-real-comment-p))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1689 (if real-comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1690 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1691 (and (> (point) bol) (setq last-cstart (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1692 ;; NOTE Emacs 19 has a misfeature whereby calling
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1693 ;; parse-partial-sexp with COMMENTSTOP set and with
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1694 ;; an initial list that says point is in a comment
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1695 ;; will cause an immediate return. So we must skip
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1696 ;; over the comment ourselves.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1697 (beginning-of-line 2)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1698 ;; Frob the state to make it look like we aren't in a
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1699 ;; comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1700 (setcar (nthcdr 4 state) nil))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1701 (and last-cstart
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1702 (goto-char last-cstart))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1703 (cons real-comment state)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1704
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1705 (defun tcl-hairy-in-comment ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1706 "Return t if point is in a comment, and leave point at beginning
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1707 of comment."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1708 (let ((save (point)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1709 (tcl-beginning-of-defun)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1710 (car (tcl-hairy-scan-for-comment nil save nil))))
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
1711
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1712 (defun tcl-simple-in-comment ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1713 "Return t if point is in comment, and leave point at beginning
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1714 of comment. This is faster that `tcl-hairy-in-comment', but is
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1715 correct less often."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1716 (let ((save (point))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1717 comment)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1718 (beginning-of-line)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1719 (while (and (< (point) save) (not comment))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1720 (search-forward "#" save 'move)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1721 (setq comment (tcl-real-comment-p)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1722 comment))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1723
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1724 (defun tcl-in-comment ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1725 "Return t if point is in comment, and leave point at beginning
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1726 of comment."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1727 (if (and tcl-pps-has-arg-6
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1728 tcl-use-hairy-comment-detector)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1729 (tcl-hairy-in-comment)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1730 (tcl-simple-in-comment)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1731
12515
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1732 (defun tcl-do-fill-paragraph (ignore)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1733 "fill-paragraph function for Tcl mode. Only fills in a comment."
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1734 (let (in-comment col where)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1735 (save-excursion
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1736 (end-of-line)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1737 (setq in-comment (tcl-in-comment))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1738 (if in-comment
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1739 (progn
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1740 (setq where (1+ (point)))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1741 (setq col (1- (current-column))))))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1742 (and in-comment
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1743 (save-excursion
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1744 (back-to-indentation)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1745 (= col (current-column)))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1746 ;; In a comment. Set the fill prefix, and find the paragraph
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1747 ;; boundaries by searching for lines that look like
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1748 ;; comment-only lines.
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1749 (let ((fill-prefix (buffer-substring (progn
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1750 (beginning-of-line)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1751 (point))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1752 where))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1753 p-start p-end)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1754 ;; Search backwards.
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1755 (save-excursion
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1756 (while (looking-at "^[ \t]*#")
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1757 (forward-line -1))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1758 (forward-line)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1759 (setq p-start (point)))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1760
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1761 ;; Search forwards.
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1762 (save-excursion
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1763 (while (looking-at "^[ \t]*#")
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1764 (forward-line))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1765 (setq p-end (point)))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1766
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1767 ;; Narrow and do the fill.
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1768 (save-restriction
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1769 (narrow-to-region p-start p-end)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1770 (fill-paragraph ignore)))))
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1771 t)
33e32dc21948 (tcl-do-fill-paragraph): New function.
Tom Tromey <tromey@redhat.com>
parents: 12514
diff changeset
1772
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1773 (defun tcl-do-auto-fill ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1774 "Auto-fill function for Tcl mode. Only auto-fills in a comment."
12795
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1775 (if (> (current-column) fill-column)
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1776 (let ((fill-prefix "# ")
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1777 in-comment col)
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1778 (save-excursion
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1779 (setq in-comment (tcl-in-comment))
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1780 (if in-comment
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1781 (setq col (1- (current-column)))))
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1782 (if in-comment
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1783 (progn
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1784 (do-auto-fill)
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1785 (save-excursion
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1786 (back-to-indentation)
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1787 (delete-region (point) (save-excursion
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1788 (beginning-of-line)
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1789 (point)))
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1790 (indent-to-column col)))))))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1791
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1792
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1793
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1794 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1795 ;; Help-related code.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1796 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1797
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1798 (defvar tcl-help-saved-dirs nil
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1799 "Saved help directories.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1800 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
1801 to update the alist.")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1802
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1803 (defvar tcl-help-alist nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1804 "Alist with command names as keys and filenames as values.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1805
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1806 (defun tcl-help-snarf-commands (dirlist)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1807 "Build alist of commands and filenames."
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1808 (while dirlist
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1809 (let ((files (directory-files (car dirlist) t)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1810 (while files
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1811 (if (and (file-directory-p (car files))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1812 (not
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1813 (let ((fpart (file-name-nondirectory (car files))))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1814 (or (equal fpart ".")
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1815 (equal fpart "..")))))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1816 (let ((matches (directory-files (car files) t)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1817 (while matches
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1818 (or (file-directory-p (car matches))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1819 (setq tcl-help-alist
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1820 (cons
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1821 (cons (file-name-nondirectory (car matches))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1822 (car matches))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1823 tcl-help-alist)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1824 (setq matches (cdr matches)))))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1825 (setq files (cdr files))))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1826 (setq dirlist (cdr dirlist))))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1827
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1828 (defun tcl-reread-help-files ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1829 "Set up to re-read files, and then do it."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1830 (interactive)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1831 (message "Building Tcl help file index...")
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1832 (setq tcl-help-saved-dirs tcl-help-directory-list)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1833 (setq tcl-help-alist nil)
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1834 (tcl-help-snarf-commands tcl-help-directory-list)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1835 (message "Building Tcl help file index...done"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1836
12645
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1837 (defun tcl-word-no-props ()
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1838 "Like current-word, but strips properties."
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1839 (let ((word (current-word)))
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1840 (and (fboundp 'set-text-properties)
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1841 (set-text-properties 0 (length word) nil word))
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1842 word))
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1843
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1844 (defun tcl-current-word (flag)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1845 "Return current command word, or nil.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1846 If FLAG is nil, just uses `current-word'.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1847 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
1848 (if (and flag
1eb0d0f0f71b tcl-current-word does the right thing in inferior-tcl-mode.
Tom Tromey <tromey@redhat.com>
parents: 7781
diff changeset
1849 (memq major-mode '(tcl-mode inferior-tcl-mode)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1850 (condition-case nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1851 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1852 ;; Look backward for first word actually in alist.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1853 (if (bobp)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1854 ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1855 (while (and (not (bobp))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1856 (not (tcl-real-command-p)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1857 (backward-sexp)))
12645
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1858 (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
1859 (tcl-word-no-props)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1860 (error nil))
12645
3ce3ca90e4a3 (tcl-word-no-props): New function.
Tom Tromey <tromey@redhat.com>
parents: 12644
diff changeset
1861 (tcl-word-no-props)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1862
8252
7d4674a34de3 Added ";;;###autoload" comments where appropriate.
Tom Tromey <tromey@redhat.com>
parents: 7799
diff changeset
1863 ;;;###autoload
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1864 (defun tcl-help-on-word (command &optional arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1865 "Get help on Tcl command. Default is word at point.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1866 Prefix argument means invert sense of `tcl-use-smart-word-finder'."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1867 (interactive
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1868 (list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1869 (progn
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1870 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1871 (tcl-reread-help-files))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1872 (let ((word (tcl-current-word
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1873 (if current-prefix-arg
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1874 (not tcl-use-smart-word-finder)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1875 tcl-use-smart-word-finder))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1876 (completing-read
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1877 (if (or (null word) (string= word ""))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1878 "Help on Tcl command: "
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1879 (format "Help on Tcl command (default %s): " word))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1880 tcl-help-alist nil t)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1881 current-prefix-arg))
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
1882 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1883 (tcl-reread-help-files))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1884 (if (string= command "")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1885 (setq command (tcl-current-word
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1886 (if arg
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1887 (not tcl-use-smart-word-finder)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1888 tcl-use-smart-word-finder))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1889 (let* ((help (get-buffer-create "*Tcl help*"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1890 (cell (assoc command tcl-help-alist))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1891 (file (and cell (cdr cell))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1892 (set-buffer help)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1893 (delete-region (point-min) (point-max))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1894 (if file
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1895 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1896 (insert "*** " command "\n\n")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1897 (insert-file-contents file))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1898 (if (string= command "")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1899 (insert "Magical Pig!")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1900 (insert "Tcl command " command " not in help\n")))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1901 (set-buffer-modified-p nil)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1902 (goto-char (point-min))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1903 (display-buffer help)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1904
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1905
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1906
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1907 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1908 ;; Other interactive stuff.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1909 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1910
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1911 (defvar tcl-previous-dir/file nil
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1912 "Record last directory and file used in loading.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1913 This holds a cons cell of the form `(DIRECTORY . FILE)'
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1914 describing the last `tcl-load-file' command.")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1915
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1916 (defun tcl-load-file (file &optional and-go)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1917 "Load a Tcl file into the inferior Tcl process.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1918 Prefix argument means switch to the Tcl buffer afterwards."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1919 (interactive
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1920 (list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1921 ;; car because comint-get-source returns a list holding the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1922 ;; filename.
8581
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
1923 (car (comint-get-source "Load Tcl file: "
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
1924 (or (and
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
1925 (eq major-mode 'tcl-mode)
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
1926 (buffer-file-name))
e7daed44da21 tcl-load-file default to current buffer.
Tom Tromey <tromey@redhat.com>
parents: 8580
diff changeset
1927 tcl-previous-dir/file)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1928 '(tcl-mode) t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1929 current-prefix-arg))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1930 (comint-check-source file)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1931 (setq tcl-previous-dir/file (cons (file-name-directory file)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1932 (file-name-nondirectory file)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1933 (tcl-send-string (inferior-tcl-proc)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1934 (format inferior-tcl-source-command (tcl-quote file)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1935 (if and-go (switch-to-tcl t)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1936
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1937 (defun tcl-restart-with-file (file &optional and-go)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1938 "Restart inferior Tcl with file.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1939 If an inferior Tcl process exists, it is killed first.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1940 Prefix argument means switch to the Tcl buffer afterwards."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1941 (interactive
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1942 (list
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1943 (car (comint-get-source "Restart with Tcl file: "
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1944 (or (and
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1945 (eq major-mode 'tcl-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1946 (buffer-file-name))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1947 tcl-previous-dir/file)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1948 '(tcl-mode) t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1949 current-prefix-arg))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1950 (let* ((buf (if (eq major-mode 'inferior-tcl-mode)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1951 (current-buffer)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1952 inferior-tcl-buffer))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1953 (proc (and buf (get-process buf))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1954 (cond
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1955 ((not (and buf (get-buffer buf)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1956 ;; I think this will be ok.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1957 (inferior-tcl tcl-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1958 (tcl-load-file file and-go))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1959 ((or
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1960 (not (comint-check-proc buf))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1961 (yes-or-no-p
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1962 "A Tcl process is running, are you sure you want to reset it? "))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1963 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1964 (comint-check-source file)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1965 (setq tcl-previous-dir/file (cons (file-name-directory file)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1966 (file-name-nondirectory file)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1967 (comint-exec (get-buffer-create buf)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1968 (if proc
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1969 (process-name proc)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1970 "inferior-tcl")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1971 tcl-application file tcl-command-switches)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1972 (if and-go (switch-to-tcl t)))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1973
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1974 ;; FIXME I imagine you can do this under Emacs 18. I just don't know
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1975 ;; how.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1976 (defun tcl-auto-fill-mode (&optional arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1977 "Like `auto-fill-mode', but controls filling of Tcl comments."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1978 (interactive "P")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1979 (and (not tcl-using-emacs-19)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1980 (error "You must use Emacs 19 to get this feature."))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1981 ;; Following code taken from "auto-fill-mode" (simple.el).
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1982 (prog1
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1983 (setq auto-fill-function
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1984 (if (if (null arg)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1985 (not auto-fill-function)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1986 (> (prefix-numeric-value arg) 0))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1987 'tcl-do-auto-fill
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1988 nil))
12795
841ba4b250a4 (tcl-do-auto-fill): Only fill past fill-column; for 19.29.
Tom Tromey <tromey@redhat.com>
parents: 12645
diff changeset
1989 (force-mode-line-update)))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
1990
12924
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1991 ;; hilit19 support from "Chris Alfeld" <calfeld@math.utah.edu>
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1992 (defun tcl-hilit ()
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1993 (hilit-set-mode-patterns
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1994 '(tcl-mode)
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1995 '(
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1996 ("\\(^ *\\|\; *\\)#.*$" nil comment)
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1997 ("[^\\]\\(\\$[A-Za-z0-9\\-\\_./\\(\\)]+\\)" 1 label)
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1998 ("[^_]\\<\\(append\\|array\\|auto_execok\\|auto_load\\|auto_mkindex\\|auto_reset\\|break\\|case\\|catch\\|cd\\|close\\|concat\\|continue\\|eof\\|error\\|eval\\|exec\\|exit\\|expr\\|file\\|flush\\|for\\|foreach\\|format\\|gets\\|glob\\|global\\|history\\|if\\|incr\\|info\\|join\\|lappend\\|lindex\\|linsert\\|list\\|llength\\|lrange\\|lreplace\\|lsearch\\|lsort\\|open\\|pid\\|proc\\|puts\\|pwd\\|read\\|regexp\\|regsub\\|rename\\|return\\|scan\\|seek\\|set\\|source\\|split\\|string\\|switch\\|tell\\|time\\|trace\\|unknown\\|unset\\|uplevel\\|upvar\\|while\\)\\>[^_]" 1 keyword) ; tcl keywords
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
1999 ("[^_]\\<\\(after\\|bell\\|bind\\|bindtags\\|clipboard\\|destroy\\|fileevent\\|focus\\|grab\\|image\\|lower\\|option\\|pack\\|place\\|raise\\|scale\\|selection\\|send\\|subst\\|tk\\|tk_popup\\|tkwait\\|update\\|winfo\\|wm\\)\\>[^_]" 1 define) ; tk keywords
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
2000 ("[^_]\\<\\(button\\|canvas\\|checkbutton\\|entry\\|frame\\|label\\|listbox\\|menu\\|menubutton\\|message\\|radiobutton\\|scrollbar\\|text\\|toplevel\\)\\>[^_]" 1 decl) ; tk widgets
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
2001 ("[^_]\\<\\(tix\\((ButtonBox\\|Baloon\\|Control\\|DirList\\|ExFileSelectBox\\|ExFileSelectDialog\\|FileEntry\\|HList\\|LabelEntry\\|LabelFrame\\|NoteBook\\|OptionMenu\\|PanedWindow\\|PopupMenu\\|ScrolledHList\\|ScrolledText\\|ScrolledWindow\\|Select\\|StdButtonBox\\)\\)\\>[^_]" 1 defun) ; tix widgets
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
2002 ("[{}\\\"\\(\\)]" nil include) ; misc punctuation
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
2003 )))
8172973fd6e4 (tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>
Tom Tromey <tromey@redhat.com>
parents: 12795
diff changeset
2004
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2005 (defun tcl-electric-hash (&optional count)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2006 "Insert a `#' and quote if it does not start a real comment.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2007 Prefix arg is number of `#'s to insert.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2008 See variable `tcl-electric-hash-style' for description of quoting
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2009 styles."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2010 (interactive "p")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2011 (or count (setq count 1))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2012 (if (> count 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2013 (let ((type
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2014 (if (eq tcl-electric-hash-style 'smart)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2015 (if (> count 3) ; FIXME what is "smart"?
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2016 'quote
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2017 'backslash)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2018 tcl-electric-hash-style))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2019 comment)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2020 (if type
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2021 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2022 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2023 (insert "#")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2024 (setq comment (tcl-in-comment)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2025 (delete-char 1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2026 (and tcl-explain-indentation (message "comment: %s" comment))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2027 (cond
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2028 ((eq type 'quote)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2029 (if (not comment)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2030 (insert "\"")))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2031 ((eq type 'backslash)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2032 ;; The following will set count to 0, so the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2033 ;; insert-char can still be run.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2034 (if (not comment)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2035 (while (> count 0)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2036 (insert "\\#")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2037 (setq count (1- count)))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2038 (t nil))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2039 (insert-char ?# count))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2040
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2041 (defun tcl-hashify-buffer ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2042 "Quote all `#'s in current buffer that aren't Tcl comments."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2043 (interactive)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2044 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2045 (goto-char (point-min))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2046 (if (and tcl-pps-has-arg-6 tcl-use-hairy-comment-detector)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2047 (let (state
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2048 result)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2049 (while (< (point) (point-max))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2050 (setq result (tcl-hairy-scan-for-comment state (point-max) t))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2051 (if (car result)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2052 (beginning-of-line 2)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2053 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2054 (if (eq ?# (following-char))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2055 (insert "\\"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2056 (forward-char))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2057 (setq state (cdr result))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2058 (while (and (< (point) (point-max))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2059 (search-forward "#" nil 'move))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2060 (if (tcl-real-comment-p)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2061 (beginning-of-line 2)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2062 ;; There's really no good way for the simple converter to
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2063 ;; work. So we just quote # if it isn't already quoted.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2064 ;; Bogus, but it works.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2065 (backward-char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2066 (if (not (eq ?\\ (preceding-char)))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2067 (insert "\\"))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2068 (forward-char))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2069
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2070 (defun tcl-indent-for-comment ()
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2071 "Indent this line's comment to comment column, or insert an empty comment.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2072 Is smart about syntax of Tcl comments.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2073 Parts of this were taken from indent-for-comment (simple.el)."
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2074 (interactive "*")
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2075 (end-of-line)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2076 (or (tcl-in-comment)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2077 (progn
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2078 ;; Not in a comment, so we have to insert one. Create an
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2079 ;; empty comment (since there isn't one on this line). If
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2080 ;; line is not blank, make sure we insert a ";" first.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2081 (skip-chars-backward " \t")
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2082 (let ((eolpoint (point)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2083 (beginning-of-line)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2084 (if (/= (point) eolpoint)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2085 (progn
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2086 (goto-char eolpoint)
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2087 (insert
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2088 (if (tcl-real-command-p) "" ";")
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2089 "# ")
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2090 (backward-char))))))
7052
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2091 ;; Point is just after the "#" starting a comment. Move it as
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2092 ;; appropriate.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2093 (let* ((indent (if comment-indent-hook
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2094 (funcall comment-indent-hook)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2095 (funcall comment-indent-function)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2096 (begpos (progn
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2097 (backward-char)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2098 (point))))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2099 (if (/= begpos indent)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2100 (progn
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2101 (skip-chars-backward " \t" (save-excursion
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2102 (beginning-of-line)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2103 (point)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2104 (delete-region (point) begpos)
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2105 (indent-to indent)))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2106 (looking-at comment-start-skip) ; Always true.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2107 (goto-char (match-end 0))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2108 ;; I don't like the effect of the next two.
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2109 ;;(skip-chars-backward " \t" (match-beginning 0))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2110 ;;(skip-chars-backward "^ \t" (match-beginning 0))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2111 ))
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2112
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2113 ;; The following was inspired by the Tcl editing mode written by
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2114 ;; Gregor Schmid <schmid@fb3-s7.math.TU-Berlin.DE>. His version also
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2115 ;; attempts to snarf the command line options from the command line,
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2116 ;; but I didn't think that would really be that helpful (doesn't seem
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2117 ;; like it owould be right enough. His version also looks for the
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2118 ;; "#!/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
2119 ;; FIXME should make sure that the application mentioned actually
5dfd509b6396 Wrote tcl-indent-for-comment
Tom Tromey <tromey@redhat.com>
parents: 6730
diff changeset
2120 ;; exists.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2121 (defun tcl-guess-application ()
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2122 "Attempt to guess Tcl application by looking at first line.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2123 The first line is assumed to look like \"#!.../program ...\"."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2124 (save-excursion
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2125 (goto-char (point-min))
8580
648f78c8ecf5 Fixed bug in tcl-guess-application.
Tom Tromey <tromey@redhat.com>
parents: 8575
diff changeset
2126 (if (looking-at "#![^ \t]*/\\([^ \t\n/]+\\)\\([ \t]\\|$\\)")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2127 (progn
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2128 (make-local-variable 'tcl-application)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2129 (setq tcl-application (buffer-substring (match-beginning 1)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2130 (match-end 1)))))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2131
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2132 ;; This only exists to put on the menubar. I couldn't figure out any
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2133 ;; other way to do it. FIXME should take "number of #-marks"
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2134 ;; argument.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2135 (defun tcl-uncomment-region (beg end)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2136 "Uncomment region."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2137 (interactive "r")
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2138 (comment-region beg end -1))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2139
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2140
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2141
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2142 ;;
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
2143 ;; XEmacs menu support.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2144 ;; Taken from schmid@fb3-s7.math.TU-Berlin.DE (Gregor Schmid),
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2145 ;; who wrote a different Tcl mode.
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
2146 ;; We also have support for menus in FSF. We do this by
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
2147 ;; loading the XEmacs menu emulation code.
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2148 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2149
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2150 (defun tcl-popup-menu (e)
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
2151 (interactive "@e")
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2152 (and tcl-using-emacs-19
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
2153 (not tcl-using-xemacs-19)
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
2154 (if tcl-using-emacs-19-23
6711
f464d8689cb3 Bug fix; 19.23 should (require 'lmenu).
Tom Tromey <tromey@redhat.com>
parents: 6710
diff changeset
2155 (require 'lmenu)
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2156 ;; CAVEATS:
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2157 ;; * lmenu.el provides 'menubar, which is bogus.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2158 ;; * lmenu.el causes menubars to be turned on everywhere.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2159 ;; Doubly bogus!
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2160 ;; Both of these problems are fixed in Emacs 19.23. People
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2161 ;; using an Emacs before that just suffer.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2162 (require 'menubar "lmenu"))) ;; This is annoying
7612
3b16e6ed71cf Fixed menu support.
Tom Tromey <tromey@redhat.com>
parents: 7288
diff changeset
2163 ;; IMHO popup-menu should be autoloaded in FSF Emacs. Oh well.
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
2164 (popup-menu tcl-xemacs-menu))
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2165
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2166
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2167
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2168 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2169 ;; Quoting and unquoting functions.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2170 ;;
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2171
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2172 ;; This quoting is sufficient to protect eg a filename from any sort
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2173 ;; of expansion or splitting. Tcl quoting sure sucks.
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2174 (defun tcl-quote (string)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2175 "Quote STRING according to Tcl rules."
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2176 (mapconcat (function (lambda (char)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2177 (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ? ?\;))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2178 (concat "\\" (char-to-string char))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2179 (char-to-string char))))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2180 string ""))
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2181
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2182
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2183
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2184 ;;
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2185 ;; Bug reporting.
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2186 ;;
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2187
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2188 (and (fboundp 'eval-when-compile)
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2189 (eval-when-compile
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2190 (require 'reporter)))
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2191
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2192 (defun tcl-submit-bug-report ()
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2193 "Submit via mail a bug report on Tcl mode."
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2194 (interactive)
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2195 (require 'reporter)
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2196 (and
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2197 (y-or-n-p "Do you really want to submit a bug report on Tcl mode? ")
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2198 (reporter-submit-bug-report
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2199 tcl-maintainer
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2200 (concat "Tcl mode " tcl-version)
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2201 '(tcl-indent-level
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2202 tcl-continued-indent-level
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2203 tcl-auto-newline
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2204 tcl-tab-always-indent
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2205 tcl-use-hairy-comment-detector
7771
f23eaf6babac Fixed bug in bug-reporting code.
Tom Tromey <tromey@redhat.com>
parents: 7687
diff changeset
2206 tcl-electric-hash-style
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2207 tcl-help-directory-list
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2208 tcl-use-smart-word-finder
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2209 tcl-application
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2210 tcl-command-switches
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2211 tcl-prompt-regexp
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2212 inferior-tcl-source-command
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2213 tcl-using-emacs-19
8339
b6e4f16c969a Emacs 18 changes from Carl Witty.
Tom Tromey <tromey@redhat.com>
parents: 8252
diff changeset
2214 tcl-using-emacs-19-23
11787
635f5fb5d82a Changed "Lucid Emacs" to "XEmacs".
Tom Tromey <tromey@redhat.com>
parents: 11303
diff changeset
2215 tcl-using-xemacs-19
7628
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2216 tcl-proc-list
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2217 tcl-proc-regexp
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2218 tcl-typeword-list
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2219 tcl-keyword-list
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2220 tcl-font-lock-keywords
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2221 tcl-pps-has-arg-6))))
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2222
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2223
6fe5a25c0107 Fixed bug with M-;.
Tom Tromey <tromey@redhat.com>
parents: 7613
diff changeset
2224
6709
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2225 (provide 'tcl)
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2226
8dee3c8bc7c8 Initial revision
Tom Tromey <tromey@redhat.com>
parents:
diff changeset
2227 ;;; tcl.el ends here