branch: externals/auctex
commit d4ba58533a321bb2ec04a6589de1905190f2e15c
Author: Tassilo Horn <[email protected]>
Commit: Tassilo Horn <[email protected]>
Fix missing unfontification of invisible property
* font-latex.el (font-latex-unfontify-region): Also remove the
`invisible' text properties.
---
ChangeLog | 5 +++++
font-latex.el | 24 +++++++++++++-----------
2 files changed, 18 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7ddb7cf..422ad9f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-09-05 Tassilo Horn <[email protected]>
+
+ * font-latex.el (font-latex-unfontify-region): Also remove the
+ `invisible' text properties.
+
2015-09-04 Mos� Giordano <[email protected]>
* doc/auctex.texi (Starting a Command): Update references to
diff --git a/font-latex.el b/font-latex.el
index e146f15..d3e853f 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1303,16 +1303,18 @@ 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)))
- (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))))
+ (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)))
+ (remove-text-properties start end '(invisible))))
(defadvice font-lock-after-change-function (before font-latex-after-change
activate)
@@ -1949,7 +1951,7 @@ END marks boundaries for searching for quotation ends."
(defface font-latex-doctex-preprocessor-face
'((t (:inherit (font-latex-doctex-documentation-face
font-lock-builtin-face ; Emacs 21 does not provide
- ; the preprocessor face.
+ ; the preprocessor face.
font-lock-preprocessor-face))))
"Face used to highlight preprocessor directives in docTeX mode."
:group 'font-latex-highlighting-faces)
