[elpa] externals/auctex d4ba585 30/78: Fix missing unfontification of invisible property

[Tassilo Horn]

branch: externals/auctex
commit d4ba58533a321bb2ec04a6589de1905190f2e15c
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    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  <address@hidden>
+
+       * font-latex.el (font-latex-unfontify-region): Also remove the
+       `invisible' text properties.
+
 2015-09-04  Mos� Giordano  <address@hidden>
 
        * 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)