summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/lisp-mnt.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
-rw-r--r--lisp/emacs-lisp/lisp-mnt.el3
1 files changed, 2 insertions, 1 deletions
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)))