diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-04-03 21:20:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-04-03 21:20:03 +0000 |
| commit | 4c5113c76b804c4fcd3935e0b2c4858cd503c194 (patch) | |
| tree | 0624833c0a34c4d04ba1ce3f88c5da1e315bc7bb /lisp/progmodes/tcl.el | |
| parent | 59bb94103aa6a64da5edfe7aaba79fb9fcb1c1ee (diff) | |
| download | emacs-4c5113c76b804c4fcd3935e0b2c4858cd503c194.tar.gz | |
(tcl-set-font-lock-keywords): Use new \_< ops.
Diffstat (limited to 'lisp/progmodes/tcl.el')
| -rw-r--r-- | lisp/progmodes/tcl.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index 4dba6b61a56..24ae19b0ad4 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -1,6 +1,7 @@ ;;; tcl.el --- Tcl code editing commands for Emacs -;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Author: Tom Tromey <tromey@redhat.com> @@ -469,10 +470,7 @@ Uses variables `tcl-proc-regexp' and `tcl-keyword-list'." ;; Keywords. Only recognized if surrounded by whitespace. ;; FIXME consider using "not word or symbol", not ;; "whitespace". - (cons (concat "\\(\\s-\\|^\\)" - ;; FIXME Use regexp-quote? - (regexp-opt tcl-keyword-list t) - "\\(\\s-\\|$\\)") + (cons (concat "\\_<" (regexp-opt tcl-keyword-list t) "\\_>") 2)))) (if tcl-proc-regexp @@ -1507,5 +1505,5 @@ The first line is assumed to look like \"#!.../program ...\"." (provide 'tcl) -;;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d +;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d ;;; tcl.el ends here |