diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-22 15:28:28 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-22 15:28:28 +0000 |
| commit | de00302bfd7dcf36a709a77c750eeb0e1bf8c2ad (patch) | |
| tree | b4ce2f35e58f6aef69f7f76f7a5692e7e4f08067 /lisp/emacs-lisp/lisp-mnt.el | |
| parent | e409c5272f067bdd87a0078c234c085786f9ff37 (diff) | |
| download | emacs-de00302bfd7dcf36a709a77c750eeb0e1bf8c2ad.tar.gz emacs-de00302bfd7dcf36a709a77c750eeb0e1bf8c2ad.tar.bz2 emacs-de00302bfd7dcf36a709a77c750eeb0e1bf8c2ad.zip | |
(lm-keywords-finder-p): Use defvar rather than with-no-warnings.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index e67835eb82d..671f3c8ce2a 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -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))) |