branch: externals/auctex
commit 343ca9c3116fad01b91f889e7ad2eb83323944c4
Author: Tassilo Horn <[email protected]>
Commit: Tassilo Horn <[email protected]>
Fix script unfontification bug
* font-latex.el (font-latex-unfontify-region): Remove script-level
property and raise display property even though it's value is different
from what's specified in font-latex-script-display.
---
font-latex.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index 21c4935..1a52284 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1357,14 +1357,12 @@ If optional argument is non-nil, print status messages."
;; property is only added if `font-lock-multiline' is bound.)
(unless (boundp 'font-lock-multiline)
(remove-text-properties beg end '(font-latex-multiline)))
+ (remove-text-properties beg end '(script-level))
(let ((start beg))
(while (< beg end)
(let ((next (next-single-property-change beg 'display nil end))
(prop (get-text-property beg 'display)))
(if (and (eq (car-safe prop) 'raise)
- (member (car-safe (cdr prop))
- (list (nth 1 (car font-latex-script-display))
- (nth 1 (cdr font-latex-script-display))))
(null (cddr prop)))
(put-text-property beg next 'display nil))
(setq beg next)))
