(jit-lock-fontify-now): Protect the modified status of the right buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4234fdc3d445d948cb743aa1a8d202e6db2621fd..bec7cab8a3ad264087f30e2e68312434f6c823b5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-17  Martin Rudalics   <rudalics@gmx.at>
+
+       * jit-lock.el (jit-lock-fontify-now): Protect the modified status of
+       the right buffer.
+
 2006-08-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * pcvs-parse.el (cvs-parse-table): Accept the new `...' format for

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 4d7afe8c33fda50d4e33521cba76cef7d4cf6be1..606cd1e0b8414d55a6685520cf5862236515bd75 100644 (file)
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -391,9 +391,10 @@ Defaults to the whole buffer.  END can be out of bounds."
                            (buf (current-buffer)))
                (run-with-timer
                 0 nil (lambda ()
-                        (with-buffer-prepared-for-jit-lock
-                            (put-text-property start orig-start
-                                               'fontified t buf))))))
+                        (with-current-buffer buf
+                          (with-buffer-prepared-for-jit-lock
+                              (put-text-property start orig-start
+                                                 'fontified t)))))))
 
           ;; Find the start of the next chunk, if any.
           (setq start (text-property-any next end 'fontified nil))))))))
@@ -577,10 +578,10 @@ the three arguments of `after-change-functions': START END OLD-LEN.
 The extended region to refontify is returned indirectly by modifying
 the variables `jit-lock-start' and `jit-lock-end'.
 
-Note that extending the region this way is not strictly necessary,
-except that the nature of the redisplay code tends to otherwise leave
-some of the rehighlighted text displayed with the old highlight until the
-next redisplay.  See comment in `jit-lock-fontify-now'.")
+Note that extending the region this way is not strictly necessary, except
+that the nature of the redisplay code tends to otherwise leave some of
+the rehighlighted text displayed with the old highlight until the next
+redisplay (see comment about repeated redisplay in `jit-lock-fontify-now').")
 
 (defun jit-lock-after-change (start end old-len)
   "Mark the rest of the buffer as not fontified after a change.