Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 4755:c1784fd59d7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix syntax of some uses of condition-case and with-trapping-errors.
author Stephen J. Turnbull <stephen@xemacs.org>
date Wed, 18 Nov 2009 01:10:56 +0900
parents 517f6887fbc0
children 77907bd57d25
comparison
equal deleted inserted replaced
4754:5dc1b4681e33 4755:c1784fd59d7d
1440 (defvar font-lock-pending-buffer-table (make-hash-table :weakness 'key)) 1440 (defvar font-lock-pending-buffer-table (make-hash-table :weakness 'key))
1441 ;; table used to keep track of ranges needing fontification. 1441 ;; table used to keep track of ranges needing fontification.
1442 (defvar font-lock-range-table (make-range-table)) 1442 (defvar font-lock-range-table (make-range-table))
1443 1443
1444 (defun font-lock-pre-idle-hook () 1444 (defun font-lock-pre-idle-hook ()
1445 (with-trapping-errors 'font-lock-pre-idle-hook 1445 (with-trapping-errors :operation 'font-lock-pre-idle-hook
1446 (if (> (hash-table-count font-lock-pending-buffer-table) 0) 1446 (if (> (hash-table-count font-lock-pending-buffer-table) 0)
1447 (font-lock-fontify-pending-extents)))) 1447 (font-lock-fontify-pending-extents))))
1448 1448
1449 ;;; called when any modification is made to buffer text. This function 1449 ;;; called when any modification is made to buffer text. This function
1450 ;;; remembers the changed ranges until the next redisplay, at which point 1450 ;;; remembers the changed ranges until the next redisplay, at which point