diff options
| author | Tom Tromey <tromey@redhat.com> | 1995-07-17 19:55:25 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 1995-07-17 19:55:25 +0000 |
| commit | c1dc1e4ec5d276e3ab3096bf5db698ec9d62d11a (patch) | |
| tree | d27200b048a984389daf04906d9e116cc1b07b02 /lisp/progmodes/tcl.el | |
| parent | 6784ada34ff63b175ad604c339fd8af32a58a185 (diff) | |
| download | emacs-c1dc1e4ec5d276e3ab3096bf5db698ec9d62d11a.tar.gz | |
XEmacs currently must use tcl-internal-end-of-defun
Diffstat (limited to 'lisp/progmodes/tcl.el')
| -rw-r--r-- | lisp/progmodes/tcl.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index a30ac3a3d04..7341afa5960 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -6,7 +6,7 @@ ;; Author: Tom Tromey <tromey@busco.lanl.gov> ;; Chris Lindblad <cjl@lcs.mit.edu> ;; Keywords: languages tcl modes -;; Version: $Revision: 1.40 $ +;; Version: $Revision: 1.41 $ ;; This file is part of GNU Emacs. @@ -51,7 +51,7 @@ ;; LCD Archive Entry: ;; tcl|Tom Tromey|tromey@busco.lanl.gov| ;; Major mode for editing Tcl| -;; $Date: 1995/07/11 03:13:15 $|$Revision: 1.40 $|~/modes/tcl.el.Z| +;; $Date: 1995/07/14 21:54:56 $|$Revision: 1.41 $|~/modes/tcl.el.Z| ;; CUSTOMIZATION NOTES: ;; * tcl-proc-list can be used to customize a list of things that @@ -65,6 +65,10 @@ ;; Change log: ;; $Log: tcl.el,v $ +;; Revision 1.41 1995/07/14 21:54:56 tromey +;; Changes to make menus work in XEmacs. +;; From Mike Scheidler <c23mts@kocrsv01.delcoelect.com> +;; ;; Revision 1.40 1995/07/11 03:13:15 tromey ;; (tcl-mode): Customize for new dabbrev. ;; @@ -332,7 +336,7 @@ (require 'imenu)) ())) -(defconst tcl-version "$Revision: 1.40 $") +(defconst tcl-version "$Revision: 1.41 $") (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") ;; @@ -782,7 +786,7 @@ An end of a defun is found by moving forward from the beginning of one." ;; Ditto end-of-defun. (fset 'tcl-end-of-defun - (if tcl-using-emacs-19 + (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19)) 'end-of-defun 'tcl-internal-end-of-defun)) |