[AUCTeX-diffs] Changes to auctex/font-latex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/04/28 11:58:45

Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.167
retrieving revision 5.168
diff -u -b -r5.167 -r5.168
--- font-latex.el       22 Apr 2007 11:37:10 -0000      5.167
+++ font-latex.el       28 Apr 2007 11:58:45 -0000      5.168
@@ -1121,16 +1121,16 @@
   (let ((extend-list (delq nil (mapcar (lambda (fun) (funcall fun beg end))
                                       font-latex-extend-region-functions))))
     (when extend-list
+      (let ((orig-beg beg))
       (setq beg (apply 'min extend-list))
-      ;; Stolen from `jit-lock-after-change'.  Without this stanza only
-      ;; the line in which a change happened will be refontified.  The
-      ;; rest to which the region was extended will only be refontified
-      ;; upon redisplay.  Unfortunately refontification is not done as
-      ;; fast as if `jit-lock-after-change' was advised.
-      (when (and (boundp 'jit-lock-context-unfontify-pos)
-                jit-lock-context-unfontify-pos)
-       (setq jit-lock-context-unfontify-pos
-             (min jit-lock-context-unfontify-pos beg))))
+       ;; Stolen from `jit-lock-fontify-now' (2007-04-27) and
+       ;; adapted.  Without this stanza only the line in which a
+       ;; change happened will refontified.  The rest will only be
+       ;; refontified upon redisplay.
+       (run-with-timer 0 nil (lambda (buf start end)
+                               (with-current-buffer buf
+                                 (put-text-property start end 'fontified t)))
+                       (current-buffer) beg orig-beg)))
     (font-lock-default-fontify-region beg end loudly)))
 
 ;; Copy and adaption of `tex-font-lock-unfontify-region' from