diff options
| author | Stefan Monnier | 2005-09-24 17:44:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-09-24 17:44:30 +0000 |
| commit | 621f893a9dfdaa782756a47ce99790dd026efce9 (patch) | |
| tree | 1a766c13809190bcb5e8631f88d4ab3f11e67330 /lisp/textmodes | |
| parent | 81df110a292f64172818df0ce94579a5429563e4 (diff) | |
| download | emacs-621f893a9dfdaa782756a47ce99790dd026efce9.tar.gz emacs-621f893a9dfdaa782756a47ce99790dd026efce9.zip | |
(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')
| -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 82e5a1cf5f1..1c395d3663b 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." | |||
| 472 | (arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) | 472 | (arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) |
| 473 | (list | 473 | (list |
| 474 | ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be | 474 | ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be |
| 475 | ;; highlighted as tex-verbatim-face. Let's undo that. | 475 | ;; highlighted as tex-verbatim face. Let's undo that. |
| 476 | ;; This is ugly and brittle :-( --Stef | 476 | ;; This is ugly and brittle :-( --Stef |
| 477 | '("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) | 477 | '("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) |
| 478 | ;; display $$ math $$ | 478 | ;; display $$ math $$ |
| @@ -509,7 +509,7 @@ An alternative value is \" . \", if you use a font with a narrow period." | |||
| 509 | 509 | ||
| 510 | (defun tex-font-lock-append-prop (prop) | 510 | (defun tex-font-lock-append-prop (prop) |
| 511 | (unless (memq (get-text-property (match-end 1) 'face) | 511 | (unless (memq (get-text-property (match-end 1) 'face) |
| 512 | '(font-lock-comment-face tex-verbatim-face)) | 512 | '(font-lock-comment-face tex-verbatim)) |
| 513 | prop)) | 513 | prop)) |
| 514 | 514 | ||
| 515 | (defconst tex-font-lock-keywords-2 | 515 | (defconst tex-font-lock-keywords-2 |
| @@ -583,7 +583,7 @@ An alternative value is \" . \", if you use a font with a narrow period." | |||
| 583 | (defun tex-font-lock-suscript (pos) | 583 | (defun tex-font-lock-suscript (pos) |
| 584 | (unless (or (memq (get-text-property pos 'face) | 584 | (unless (or (memq (get-text-property pos 'face) |
| 585 | '(font-lock-constant-face font-lock-builtin-face | 585 | '(font-lock-constant-face font-lock-builtin-face |
| 586 | font-lock-comment-face tex-verbatim-face)) | 586 | font-lock-comment-face tex-verbatim)) |
| 587 | ;; Check for backslash quoting | 587 | ;; Check for backslash quoting |
| 588 | (let ((odd nil) | 588 | (let ((odd nil) |
| 589 | (pos pos)) | 589 | (pos pos)) |
| @@ -1109,7 +1109,7 @@ Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote' | |||
| 1109 | inserts \" characters." | 1109 | inserts \" characters." |
| 1110 | (interactive "*P") | 1110 | (interactive "*P") |
| 1111 | (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) | 1111 | (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) |
| 1112 | (eq (get-text-property (point) 'face) tex-verbatim-face) | 1112 | (eq (get-text-property (point) 'face) tex-verbatim) |
| 1113 | (save-excursion | 1113 | (save-excursion |
| 1114 | (backward-char (length tex-open-quote)) | 1114 | (backward-char (length tex-open-quote)) |
| 1115 | (when (or (looking-at (regexp-quote tex-open-quote)) | 1115 | (when (or (looking-at (regexp-quote tex-open-quote)) |
| @@ -2341,7 +2341,7 @@ Runs the shell command defined by `tex-show-queue-command'." | |||
| 2341 | 2341 | ||
| 2342 | (defun latex-indent (&optional arg) | 2342 | (defun latex-indent (&optional arg) |
| 2343 | (if (and (eq (get-text-property (line-beginning-position) 'face) | 2343 | (if (and (eq (get-text-property (line-beginning-position) 'face) |
| 2344 | tex-verbatim-face)) | 2344 | tex-verbatim)) |
| 2345 | 'noindent | 2345 | 'noindent |
| 2346 | (with-syntax-table tex-latex-indent-syntax-table | 2346 | (with-syntax-table tex-latex-indent-syntax-table |
| 2347 | ;; TODO: Rather than ignore $, we should try to be more clever about it. | 2347 | ;; TODO: Rather than ignore $, we should try to be more clever about it. |