From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Jun 2003 09:48:50 +0000 (+0000)
Subject: (lm-keywords-finder-p): Use with-no-warnings.
X-Git-Tag: ttn-vms-21-2-B4~9749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b45407516b1da3c10225ca661225efeae4c3d3b;p=emacs.git

(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 d282f452456..18967677b38 100644
--- 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)))