diff options
author | Stefan Monnier <[email protected]> | 2005-09-24 17:44:30 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2005-09-24 17:44:30 +0000 |
commit | 621f893a9dfdaa782756a47ce99790dd026efce9 (patch) | |
tree | 1a766c13809190bcb5e8631f88d4ab3f11e67330 /lisp/textmodes/tex-mode.el | |
parent | 81df110a292f64172818df0ce94579a5429563e4 (diff) |
(tex-font-lock-append-prop, tex-font-lock-suscript, tex-insert-quote)
(latex-indent): Adjust to the new symbol used for the tex-verbatim face.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
-rw-r--r-- | lisp/textmodes/tex-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 82e5a1cf5f..1c395d3663 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -472,7 +472,7 @@ An alternative value is \" . \", if you use a font with a narrow period." (arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) (list ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be - ;; highlighted as tex-verbatim-face. Let's undo that. + ;; highlighted as tex-verbatim face. Let's undo that. ;; This is ugly and brittle :-( --Stef '("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) ;; display $$ math $$ @@ -509,7 +509,7 @@ An alternative value is \" . \", if you use a font with a narrow period." (defun tex-font-lock-append-prop (prop) (unless (memq (get-text-property (match-end 1) 'face) - '(font-lock-comment-face tex-verbatim-face)) + '(font-lock-comment-face tex-verbatim)) prop)) (defconst tex-font-lock-keywords-2 @@ -583,7 +583,7 @@ An alternative value is \" . \", if you use a font with a narrow period." (defun tex-font-lock-suscript (pos) (unless (or (memq (get-text-property pos 'face) '(font-lock-constant-face font-lock-builtin-face - font-lock-comment-face tex-verbatim-face)) + font-lock-comment-face tex-verbatim)) ;; Check for backslash quoting (let ((odd nil) (pos pos)) @@ -1109,7 +1109,7 @@ Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote' inserts \" characters." (interactive "*P") (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) - (eq (get-text-property (point) 'face) tex-verbatim-face) + (eq (get-text-property (point) 'face) tex-verbatim) (save-excursion (backward-char (length tex-open-quote)) (when (or (looking-at (regexp-quote tex-open-quote)) @@ -2341,7 +2341,7 @@ Runs the shell command defined by `tex-show-queue-command'." (defun latex-indent (&optional arg) (if (and (eq (get-text-property (line-beginning-position) 'face) - tex-verbatim-face)) + tex-verbatim)) 'noindent (with-syntax-table tex-latex-indent-syntax-table ;; TODO: Rather than ignore $, we should try to be more clever about it. |