Mercurial > emacs
changeset 22662:f0078b7750b7
Some itcl additions:
(tcl-typeword-list): Added private, itk_option.
(tcl-proc-list): Added body, configbody, class.
| author | Tom Tromey <tromey@redhat.com> |
|---|---|
| date | Thu, 02 Jul 1998 17:47:49 +0000 |
| parents | 90460d1e2c3f |
| children | 54d865200af8 |
| files | lisp/progmodes/tcl.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/tcl.el Thu Jul 02 08:05:24 1998 +0000 +++ b/lisp/progmodes/tcl.el Thu Jul 02 17:47:49 1998 +0000 @@ -1,18 +1,18 @@ ;; tcl.el --- Tcl code editing commands for Emacs -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1998 Free Software Foundation, Inc. ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> ;; Author: Tom Tromey <tromey@busco.lanl.gov> ;; Chris Lindblad <cjl@lcs.mit.edu> ;; Keywords: languages tcl modes -;; Version: $Revision: 1.50 $ +;; Version: $Revision: 1.51 $ ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 1, or (at your option) +;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -51,7 +51,7 @@ ;; LCD Archive Entry: ;; tcl|Tom Tromey|tromey@busco.lanl.gov| ;; Major mode for editing Tcl| -;; $Date: 1996/03/23 05:14:50 $|$Revision: 1.50 $|~/modes/tcl.el.Z| +;; $Date: 1996/09/12 17:02:52 $|$Revision: 1.51 $|~/modes/tcl.el.Z| ;; CUSTOMIZATION NOTES: ;; * tcl-proc-list can be used to customize a list of things that @@ -65,6 +65,9 @@ ;; Change log: ;; $Log: tcl.el,v $ +;; Revision 1.51 1996/09/12 17:02:52 tromey +;; (tcl-indent-command): Use insert-tab, not self-insert-command. +;; ;; Revision 1.50 1996/03/23 05:14:50 tromey ;; (tcl-using-emacs-19): Work with XEmacs 20.0. From Ben Wing. ;; @@ -370,7 +373,7 @@ (require 'imenu)) ())) -(defconst tcl-version "$Revision: 1.50 $") +(defconst tcl-version "$Revision: 1.51 $") (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") ;; @@ -653,7 +656,7 @@ "Hook for customizing Inferior Tcl mode.") (defvar tcl-proc-list - '("proc" "method" "itcl_class") + '("proc" "method" "itcl_class" "body" "configbody" "class") "List of commands whose first argument defines something. This exists because some people (eg, me) use \"defvar\" et al. Call `tcl-set-proc-regexp' and `tcl-set-font-lock-keywords' @@ -663,7 +666,8 @@ "Regexp to use when matching proc headers.") (defvar tcl-typeword-list - '("global" "upvar" "inherit" "public" "protected" "common") + '("global" "upvar" "inherit" "public" "protected" "private" + "common" "itk_option") "List of Tcl keywords denoting \"type\". Used only for highlighting. Call `tcl-set-font-lock-keywords' after changing this list.")