# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079969308 0
# Node ID 7a30ab50eb0b83ff0a8b89d5a61c3f29d298c3ae
# Parent  b7693565f75723cc42288f8f004c3166f3bf9709
(lm-keywords-finder-p): Use defvar rather than with-no-warnings.

diff -r b7693565f757 -r 7a30ab50eb0b lisp/emacs-lisp/lisp-mnt.el
--- a/lisp/emacs-lisp/lisp-mnt.el	Mon Mar 22 15:27:46 2004 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Mon Mar 22 15:28:28 2004 +0000
@@ -452,14 +452,14 @@
     (if keywords
 	(split-string keywords ",?[ \t]"))))
 
+(defvar finder-known-keywords)
 (defun lm-keywords-finder-p (&optional file)
   "Return non-nil if any keywords in FILE are known to finder."
   (require 'finder)
   (let ((keys (lm-keywords-list file)))
     (catch 'keyword-found
       (while keys
-	(if (assoc (intern (car keys)) 
-		   (with-no-warnings finder-known-keywords))
+	(if (assoc (intern (car keys)) finder-known-keywords)
 	    (throw 'keyword-found t))
 	(setq keys (cdr keys)))
       nil)))