Mercurial > emacs
changeset 61246:ee782d6579a8
(tcl-set-font-lock-keywords): Use new \_< ops.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 03 Apr 2005 21:20:03 +0000 |
| parents | b8fb5fb4b960 |
| children | d11749d2bcff |
| files | lisp/ChangeLog lisp/progmodes/tcl.el |
| diffstat | 2 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Apr 03 21:18:51 2005 +0000 +++ b/lisp/ChangeLog Sun Apr 03 21:20:03 2005 +0000 @@ -1,5 +1,7 @@ 2005-04-03 Stefan Monnier <monnier@iro.umontreal.ca> + * progmodes/tcl.el (tcl-set-font-lock-keywords): Use new \_< ops. + * pcvs.el (cvs-checkout): Prompt for cvsroot as well. 2005-04-03 Glenn Morris <gmorris@ast.cam.ac.uk>
--- a/lisp/progmodes/tcl.el Sun Apr 03 21:18:51 2005 +0000 +++ b/lisp/progmodes/tcl.el Sun Apr 03 21:20:03 2005 +0000 @@ -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 @@ ;; 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 @@ (provide 'tcl) -;;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d +;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d ;;; tcl.el ends here