(lm-keywords-finder-p): Use with-no-warnings.

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index d282f452456f6ba74fd20fe99bf8a1f4e45c2d21..18967677b384ca2ccb91658022f602456ff9231c 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -456,7 +456,8 @@ This can be found in an RCS or SCCS header."
   (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)))