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 |
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. |
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 |