# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054720130 0
# Node ID ec176c8dbf380e36c89448be16bc610290eb3916
# Parent  5d1558b29b67e16fb8ce488ba3c8c91cbfaa4a98
(lm-keywords-finder-p): Use with-no-warnings.

diff -r 5d1558b29b67 -r ec176c8dbf38 lisp/emacs-lisp/lisp-mnt.el
--- a/lisp/emacs-lisp/lisp-mnt.el	Wed Jun 04 09:42:47 2003 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Wed Jun 04 09:48:50 2003 +0000
@@ -456,7 +456,8 @@
   (let ((keys (lm-keywords-list file)))
     (catch 'keyword-found
       (while keys
-	(if (assoc (intern (car keys)) finder-known-keywords)
+	(if (assoc (intern (car keys)) 
+		   (with-no-warnings finder-known-keywords))
 	    (throw 'keyword-found t))
 	(setq keys (cdr keys)))
       nil)))