Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
1071 (defun font-lock-fontify-glumped-region () 1071 (defun font-lock-fontify-glumped-region ()
1072 ;; even if something goes wrong in the fontification, mark the glumped 1072 ;; even if something goes wrong in the fontification, mark the glumped
1073 ;; region as fontified; otherwise, the same error might get signaled 1073 ;; region as fontified; otherwise, the same error might get signaled
1074 ;; after every command. 1074 ;; after every command.
1075 (unwind-protect 1075 (unwind-protect
1076 ;; buffer may be deleted. 1076 ;; buffer/extent may be deleted.
1077 (if (buffer-live-p (extent-object font-lock-old-extent)) 1077 (if (and (extent-live-p font-lock-old-extent)
1078 (buffer-live-p (extent-object font-lock-old-extent)))
1078 (save-excursion 1079 (save-excursion
1079 (set-buffer (extent-object font-lock-old-extent)) 1080 (set-buffer (extent-object font-lock-old-extent))
1080 (font-lock-after-change-function-1 1081 (font-lock-after-change-function-1
1081 (extent-start-position font-lock-old-extent) 1082 (extent-start-position font-lock-old-extent)
1082 (extent-end-position font-lock-old-extent) 1083 (extent-end-position font-lock-old-extent)