Mercurial > hg > xemacs-beta

diff lisp/font-lock.el @ 306:9ea74add5d37 r21-0b51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b51
author cvs
date Mon, 13 Aug 2007 10:41:58 +0200
parents 4b85ae5eabfb
children 54f7aa390f4f
line wrap: on
line diff
--- a/lisp/font-lock.el	Mon Aug 13 10:41:13 2007 +0200
+++ b/lisp/font-lock.el	Mon Aug 13 10:41:58 2007 +0200
@@ -1073,8 +1073,9 @@
   ;; region as fontified; otherwise, the same error might get signaled
   ;; after every command.
   (unwind-protect
-      ;; buffer may be deleted.
-      (if (buffer-live-p (extent-object font-lock-old-extent))
+      ;; buffer/extent may be deleted.
+      (if (and (extent-live-p font-lock-old-extent)
+	       (buffer-live-p (extent-object font-lock-old-extent)))
 	  (save-excursion
 	    (set-buffer (extent-object font-lock-old-extent))
 	    (font-lock-after-change-function-1