[21.4] bug in font-lock.el

Hi, There's a bug in font-lock.el, in the candidate-21-4 branch. Here's a backtrace: Signaling: (void-variable keywords) (cdr keywords) (let* ((case-fold-search font-lock-keywords-case-fold-search) (keywords ...) (let ((loudly ...)) (unless (eq ... t) (setq font-lock-keywords ...)) (let* font-lock-fontify-keywords-region(331 400 nil) I got it by stripping the condition-case form from the function font-lock-pre-idle-hook. And a patch for it is below: --- font-lock.el~ 2002-10-04 14:13:50 +0000 +++ font-lock.el 2002-10-07 13:35:58 +0000 ＠＠ -1640,7 +1640,7 ＠＠ (setq font-lock-keywords (font-lock-compile-keywords font-lock-keywords))) (let* ((case-fold-search font-lock-keywords-case-fold-search) - (keywords (cdr keywords)) + (keywords (cdr font-lock-keywords)) (bufname (buffer-name)) (progress 5) (old-progress 5) (iter 0)