# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1108017926 0
# Node ID 6e156606b5c52944708d0f19c9ff480c34dc9b0d
# Parent  2832745c4aeef10c6ccff9df73286f8b9b5e6a8f
(font-lock-default-function): Use with-no-warnings.

diff -r 2832745c4aee -r 6e156606b5c5 lisp/font-core.el
--- a/lisp/font-core.el	Thu Feb 10 06:44:41 2005 +0000
+++ b/lisp/font-core.el	Thu Feb 10 06:45:26 2005 +0000
@@ -203,7 +203,8 @@
   ;; `font-lock-defaults'.
   (when (or font-lock-defaults
 	    (and (boundp 'font-lock-keywords) font-lock-keywords)
-	    (cdr (assq major-mode font-lock-defaults-alist)))
+	    (with-no-warnings
+	     (cdr (assq major-mode font-lock-defaults-alist))))
     (font-lock-mode-internal mode)))
 
 (defun turn-on-font-lock ()