diff options
| author | Stefan Monnier | 2015-09-03 15:08:57 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-09-03 15:08:57 -0400 |
| commit | 2d19f8c8b48803059272ac1c9582d8a9dbafe6f7 (patch) | |
| tree | 84fb80ffcc5d3088e82b77fa0349c191b62cdf25 | |
| parent | c37ef7546d22e801f247ee9d4fef1a9d6b21ac1a (diff) | |
| download | emacs-2d19f8c8b48803059272ac1c9582d8a9dbafe6f7.tar.gz emacs-2d19f8c8b48803059272ac1c9582d8a9dbafe6f7.zip | |
(tex--prettify-symbols-compose-p): Don't compose in verbatim blocks!
* lisp/textmodes/tex-mode.el (tex--prettify-symbols-compose-p):
Don't compose inside verbatim blocks!
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 6244189f64a..5fdf9e3b250 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -3410,6 +3410,8 @@ There might be text before point." | |||
| 3410 | (not (or | 3410 | (not (or |
| 3411 | ;; Don't compose \alpha@foo. | 3411 | ;; Don't compose \alpha@foo. |
| 3412 | (eq after-syntax ?_) | 3412 | (eq after-syntax ?_) |
| 3413 | ;; Don't compose inside verbatim blocks! | ||
| 3414 | (nth 8 (syntax-ppss)) | ||
| 3413 | ;; The \alpha in \alpha2 may be composed but of course \alphax may not. | 3415 | ;; The \alpha in \alpha2 may be composed but of course \alphax may not. |
| 3414 | (and (eq after-syntax ?w) | 3416 | (and (eq after-syntax ?w) |
| 3415 | (or (< after-char ?0) | 3417 | (or (< after-char ?0) |