diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-02-24 15:34:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-02-24 15:34:34 +0000 |
| commit | 6ecedb401fe93dea8683c055a4f5e1add93cbe65 (patch) | |
| tree | 1e472303268b8c93a45b5ca86ff39a0f9f7246d0 /lisp/textmodes/tex-mode.el | |
| parent | 2e20c83d7523a171e56297804eae631fbd70db7f (diff) | |
| download | emacs-6ecedb401fe93dea8683c055a4f5e1add93cbe65.tar.gz | |
(tex-font-lock-keywords-3): #n is atomic.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 4b878f4f240..d15b72c98ba 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1,7 +1,7 @@ ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- ;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2002, 2003, 2004 Free Software Foundation, Inc. +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: tex @@ -602,7 +602,7 @@ An alternative value is \" . \", if you use a font with a narrow period." ;; degenerate to nasty complexity (because we try to match the ;; closing brace, which forces trying all matching combinations). (arg "{\\(?:[^{}\\]\\|\\\\.\\|{[^}]*}\\)*")) - `((,(concat "[_^] *\\([^\n\\{}]\\|" slash general "\\|" arg "}\\)") + `((,(concat "[_^] *\\([^\n\\{}#]\\|" slash general "\\|#[0-9]\\|" arg "}\\)") (1 (tex-font-lock-suscript (match-beginning 0)) append)))))) "Experimental expressions to highlight in TeX modes.") @@ -1027,10 +1027,8 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook 'tex-categorize-whitespace) (set (make-local-variable 'facemenu-add-face-function) (lambda (face end) - (let ((face-text (cdr (assq face tex-face-alist)))) - (if face-text - face-text - (error "Face %s not configured for %s mode" face mode-name))))) + (or (cdr (assq face tex-face-alist)) + (error "Face %s not configured for %s mode" face mode-name)))) (set (make-local-variable 'facemenu-end-add-face) "}") (set (make-local-variable 'facemenu-remove-face-function) t) (set (make-local-variable 'font-lock-defaults) |