Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
305:18920a7e9a86 306:9ea74add5d37
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)