Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 12523:a42c105f8337
XEmacs currently must use tcl-internal-end-of-defun
author | Tom Tromey <tromey@redhat.com> |
---|---|
date | Mon, 17 Jul 1995 19:55:25 +0000 |
parents | ad24dd8cec5c |
children | 1e667d64128a |
comparison
equal
deleted
inserted
replaced
12522:75d5cd591947 | 12523:a42c105f8337 |
---|---|
4 | 4 |
5 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> | 5 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> |
6 ;; Author: Tom Tromey <tromey@busco.lanl.gov> | 6 ;; Author: Tom Tromey <tromey@busco.lanl.gov> |
7 ;; Chris Lindblad <cjl@lcs.mit.edu> | 7 ;; Chris Lindblad <cjl@lcs.mit.edu> |
8 ;; Keywords: languages tcl modes | 8 ;; Keywords: languages tcl modes |
9 ;; Version: $Revision: 1.40 $ | 9 ;; Version: $Revision: 1.41 $ |
10 | 10 |
11 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
12 | 12 |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
49 ;;; Commentary: | 49 ;;; Commentary: |
50 | 50 |
51 ;; LCD Archive Entry: | 51 ;; LCD Archive Entry: |
52 ;; tcl|Tom Tromey|tromey@busco.lanl.gov| | 52 ;; tcl|Tom Tromey|tromey@busco.lanl.gov| |
53 ;; Major mode for editing Tcl| | 53 ;; Major mode for editing Tcl| |
54 ;; $Date: 1995/07/11 03:13:15 $|$Revision: 1.40 $|~/modes/tcl.el.Z| | 54 ;; $Date: 1995/07/14 21:54:56 $|$Revision: 1.41 $|~/modes/tcl.el.Z| |
55 | 55 |
56 ;; CUSTOMIZATION NOTES: | 56 ;; CUSTOMIZATION NOTES: |
57 ;; * tcl-proc-list can be used to customize a list of things that | 57 ;; * tcl-proc-list can be used to customize a list of things that |
58 ;; "define" other things. Eg in my project I put "defvar" in this | 58 ;; "define" other things. Eg in my project I put "defvar" in this |
59 ;; list. | 59 ;; list. |
63 ;; * tcl-type-alist can be used to minimally customize indentation | 63 ;; * tcl-type-alist can be used to minimally customize indentation |
64 ;; according to context. | 64 ;; according to context. |
65 | 65 |
66 ;; Change log: | 66 ;; Change log: |
67 ;; $Log: tcl.el,v $ | 67 ;; $Log: tcl.el,v $ |
68 ;; Revision 1.41 1995/07/14 21:54:56 tromey | |
69 ;; Changes to make menus work in XEmacs. | |
70 ;; From Mike Scheidler <c23mts@kocrsv01.delcoelect.com> | |
71 ;; | |
68 ;; Revision 1.40 1995/07/11 03:13:15 tromey | 72 ;; Revision 1.40 1995/07/11 03:13:15 tromey |
69 ;; (tcl-mode): Customize for new dabbrev. | 73 ;; (tcl-mode): Customize for new dabbrev. |
70 ;; | 74 ;; |
71 ;; Revision 1.39 1995/07/09 21:58:03 tromey | 75 ;; Revision 1.39 1995/07/09 21:58:03 tromey |
72 ;; (tcl-do-fill-paragraph): New function. | 76 ;; (tcl-do-fill-paragraph): New function. |
330 (if (and (string-match "19\\." emacs-version) | 334 (if (and (string-match "19\\." emacs-version) |
331 (not (string-match "XEmacs" emacs-version))) | 335 (not (string-match "XEmacs" emacs-version))) |
332 (require 'imenu)) | 336 (require 'imenu)) |
333 ())) | 337 ())) |
334 | 338 |
335 (defconst tcl-version "$Revision: 1.40 $") | 339 (defconst tcl-version "$Revision: 1.41 $") |
336 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") | 340 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") |
337 | 341 |
338 ;; | 342 ;; |
339 ;; User variables. | 343 ;; User variables. |
340 ;; | 344 ;; |
780 'beginning-of-defun | 784 'beginning-of-defun |
781 'tcl-internal-beginning-of-defun)) | 785 'tcl-internal-beginning-of-defun)) |
782 | 786 |
783 ;; Ditto end-of-defun. | 787 ;; Ditto end-of-defun. |
784 (fset 'tcl-end-of-defun | 788 (fset 'tcl-end-of-defun |
785 (if tcl-using-emacs-19 | 789 (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19)) |
786 'end-of-defun | 790 'end-of-defun |
787 'tcl-internal-end-of-defun)) | 791 'tcl-internal-end-of-defun)) |
788 | 792 |
789 ;; Internal mark-defun that is used for losing Emacsen. | 793 ;; Internal mark-defun that is used for losing Emacsen. |
790 (defun tcl-internal-mark-defun () | 794 (defun tcl-internal-mark-defun () |