Mercurial > emacs

diff lisp/font-lock.el @ 56758:7a0ad15724f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Aug 2004 16:53:44 +0000
parents a474fcb6d318
children 05afd8f1212e 22658e29bd48 d8411455de48
line wrap: on
line diff
--- a/lisp/font-lock.el	Sun Aug 22 11:51:19 2004 +0000
+++ b/lisp/font-lock.el	Sun Aug 22 16:53:44 2004 +0000
@@ -1516,7 +1516,9 @@
     (make-local-variable 'font-lock-fontified)
     (make-local-variable 'font-lock-multiline)
     (let* ((defaults (or font-lock-defaults
-			 (cdr (assq major-mode font-lock-defaults-alist))))
+			 (cdr (assq major-mode
+				    (with-no-warnings
+				     font-lock-defaults-alist)))))
 	   (keywords
 	    (font-lock-choose-keywords (nth 0 defaults)
 				       (font-lock-value-in-major-mode font-lock-maximum-decoration)))