mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
(lm-keywords-finder-p): Use defvar rather than with-no-warnings.
This commit is contained in:
parent
e409c5272f
commit
de00302bfd
@ -452,14 +452,14 @@ This can be found in an RCS or SCCS header."
|
||||
(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)))
|
||||
|
Loading…
Reference in New Issue
Block a user