/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.119 by pj, Sun Jul 15 16:15:35 2001 UTC revision 1.120 by schwab, Fri Feb 15 17:06:03 2002 UTC
# Line 1  Line 1 
1  ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands  ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
2    
3  ;; 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
4  ;;       Free Software Foundation, Inc.  ;;       Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 497  An alternative value is \" . \", if you Line 497  An alternative value is \" . \", if you
497                          t))                          t))
498              ;;              ;;
499              ;; Names of commands that should be fontified.              ;; Names of commands that should be fontified.
500              (specials (regexp-opt              (specials-1 (regexp-opt '("\\" "\\*") t)) ;; "-"
501                         '("\\" "\\*" ;; "-"              (specials-2 (regexp-opt
502                           "linebreak" "nolinebreak" "pagebreak" "nopagebreak"                           '("linebreak" "nolinebreak" "pagebreak" "nopagebreak"
503                           "newline" "newpage" "clearpage" "cleardoublepage"                             "newline" "newpage" "clearpage" "cleardoublepage"
504                           "displaybreak" "allowdisplaybreaks" "enlargethispage")                             "displaybreak" "allowdisplaybreaks"
505                         t))                             "enlargethispage") t))
506              (general "\\([a-zA-Z@]+\\**\\|[^ \t\n]\\)")              (general "\\([a-zA-Z@]+\\**\\|[^ \t\n]\\)")
507              ;;              ;;
508              ;; Miscellany.              ;; Miscellany.
# Line 521  An alternative value is \" . \", if you Line 521  An alternative value is \" . \", if you
521                'font-lock-string-face)                'font-lock-string-face)
522          ;;          ;;
523          ;; Command names, special and general.          ;; Command names, special and general.
524          (cons (concat slash specials) 'font-lock-warning-face)          (cons (concat slash specials-1) 'font-lock-warning-face)
525            (list (concat "\\(" slash specials-2 "\\)\\([^a-zA-Z@]\\|\\'\\)")
526                  1 'font-lock-warning-face)
527          (concat slash general)          (concat slash general)
528          ;;          ;;
529          ;; Font environments.  It seems a bit dubious to use `bold' etc. faces          ;; Font environments.  It seems a bit dubious to use `bold' etc. faces

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26