mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases 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
Show Stats 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)))