From 9b45407516b1da3c10225ca661225efeae4c3d3b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 4 Jun 2003 09:48:50 +0000 Subject: [PATCH] (lm-keywords-finder-p): Use with-no-warnings. --- lisp/emacs-lisp/lisp-mnt.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5