(tex-font-lock-keywords-2): Require non-letter after specials.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24d2a92b39a794624811ce556a42cf7f393d88f7..663c6218bdc29ed27dcce46edef8f925fe962cba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-15  Andreas Schwab  <schwab@suse.de>
+
+       * textmodes/tex-mode.el (tex-font-lock-keywords-2): Require
+       non-letter after specials.
+
 2002-02-15  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * 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\e,Bm\e(Bk  <Pavel@Janik.cz>
+2002-02-11  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * strokes.el (strokes-do-stroke, strokes-do-complex-stroke):
        Doc fix.
@@ -152,7 +157,7 @@
        (dump-charsets, dump-codings): Deleted (obsolete).
        From Dave Love <fx@gnu.org>.
 
-2002-02-10  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2002-02-10  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * 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\e,Bm\e(Bk  <Pavel@Janik.cz>
+2002-02-09  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * 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 07dcee289b2ed77f6a0752af1d68e2c77a0ae254..465cb98c047068ac3dbc2b2bf9666c7f957b215a 100644 (file)
--- 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