[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Andreas Schwab]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.119 
emacs/lisp/textmodes/tex-mode.el:1.120
*** emacs/lisp/textmodes/tex-mode.el:1.119      Sun Jul 15 12:15:35 2001
--- emacs/lisp/textmodes/tex-mode.el    Fri Feb 15 12:06:03 2002
***************
*** 1,6 ****
  ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
  
! ;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999
  ;;       Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
  
! ;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999, 2002
  ;;       Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 497,508 ****
                        t))
            ;;
            ;; Names of commands that should be fontified.
!           (specials (regexp-opt
!                      '("\\" "\\*" ;; "-"
!                        "linebreak" "nolinebreak" "pagebreak" "nopagebreak"
!                        "newline" "newpage" "clearpage" "cleardoublepage"
!                        "displaybreak" "allowdisplaybreaks" "enlargethispage")
!                      t))
            (general "\\(address@hidden|[^ \t\n]\\)")
            ;;
            ;; Miscellany.
--- 497,508 ----
                        t))
            ;;
            ;; Names of commands that should be fontified.
!           (specials-1 (regexp-opt '("\\" "\\*") t)) ;; "-"
!           (specials-2 (regexp-opt
!                        '("linebreak" "nolinebreak" "pagebreak" "nopagebreak"
!                          "newline" "newpage" "clearpage" "cleardoublepage"
!                          "displaybreak" "allowdisplaybreaks"
!                          "enlargethispage") t))
            (general "\\(address@hidden|[^ \t\n]\\)")
            ;;
            ;; Miscellany.
***************
*** 521,527 ****
              'font-lock-string-face)
        ;;
        ;; Command names, special and general.
!       (cons (concat slash specials) 'font-lock-warning-face)
        (concat slash general)
        ;;
        ;; Font environments.  It seems a bit dubious to use `bold' etc. faces
--- 521,529 ----
              'font-lock-string-face)
        ;;
        ;; Command names, special and general.
!       (cons (concat slash specials-1) 'font-lock-warning-face)
!       (list (concat "\\(" slash specials-2 "\\)\\(address@hidden|\\'\\)")
!             1 'font-lock-warning-face)
        (concat slash general)
        ;;
        ;; Font environments.  It seems a bit dubious to use `bold' etc. faces