From 1b741d9e27ab5f7f4e3268561134f562f183f362 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 15 Feb 2002 17:06:58 +0000 Subject: [PATCH] (tex-font-lock-keywords-2): Require non-letter after specials. --- lisp/ChangeLog | 11 ++++++++--- lisp/textmodes/tex-mode.el | 18 ++++++++++-------- 2 files changed, 18 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 24d2a92b39..663c6218bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-02-15 Andreas Schwab + + * textmodes/tex-mode.el (tex-font-lock-keywords-2): Require + non-letter after specials. + 2002-02-15 Eli Zaretskii * menu-bar.el (menu-bar-tools-menu): Add an item for Calculator. @@ -126,7 +131,7 @@ * cus-start.el: Don't warn about "x-*" symbols when building a non-GUI version. -2002-02-11 Pavel Jan,Bm(Bk +2002-02-11 Pavel Jan,Am(Bk * strokes.el (strokes-do-stroke, strokes-do-complex-stroke): Doc fix. @@ -152,7 +157,7 @@ (dump-charsets, dump-codings): Deleted (obsolete). From Dave Love . -2002-02-10 Pavel Jan,Bm(Bk +2002-02-10 Pavel Jan,Am(Bk * menu-bar.el (menu-bar-showhide-menu): Rename functions for toggling. @@ -176,7 +181,7 @@ * ediff.el: typo in comment. -2002-02-09 Pavel Jan,Bm(Bk +2002-02-09 Pavel Jan,Am(Bk * menu-bar.el (menu-bar-options-save): Take care of line-number-mode and column-number-mode variables. diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 07dcee289b..465cb98c04 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1,6 +1,6 @@ ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999 +;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999, 2002 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -497,12 +497,12 @@ An alternative value is \" . \", if you use a font with a narrow period." t)) ;; ;; Names of commands that should be fontified. - (specials (regexp-opt - '("\\" "\\*" ;; "-" - "linebreak" "nolinebreak" "pagebreak" "nopagebreak" - "newline" "newpage" "clearpage" "cleardoublepage" - "displaybreak" "allowdisplaybreaks" "enlargethispage") - t)) + (specials-1 (regexp-opt '("\\" "\\*") t)) ;; "-" + (specials-2 (regexp-opt + '("linebreak" "nolinebreak" "pagebreak" "nopagebreak" + "newline" "newpage" "clearpage" "cleardoublepage" + "displaybreak" "allowdisplaybreaks" + "enlargethispage") t)) (general "\\([a-zA-Z@]+\\**\\|[^ \t\n]\\)") ;; ;; Miscellany. @@ -521,7 +521,9 @@ An alternative value is \" . \", if you use a font with a narrow period." 'font-lock-string-face) ;; ;; Command names, special and general. - (cons (concat slash specials) 'font-lock-warning-face) + (cons (concat slash specials-1) 'font-lock-warning-face) + (list (concat "\\(" slash specials-2 "\\)\\([^a-zA-Z@]\\|\\'\\)") + 1 'font-lock-warning-face) (concat slash general) ;; ;; Font environments. It seems a bit dubious to use `bold' etc. faces -- 2.20.1