mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

(lm-keywords-finder-p): Use defvar rather than with-no-warnings.

Browse source
This commit is contained in:
Stefan Monnier 2004-03-22 15:28:28 +00:00
parent e409c5272f
commit de00302bfd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mnt.el
View file

@ -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)))