Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mnt.el @ 51456:ec176c8dbf38
(lm-keywords-finder-p): Use with-no-warnings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 Jun 2003 09:48:50 +0000 |
| parents | ef9e066bc6f2 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51455:5d1558b29b67 | 51456:ec176c8dbf38 |
|---|---|
| 454 "Return non-nil if any keywords in FILE are known to finder." | 454 "Return non-nil if any keywords in FILE are known to finder." |
| 455 (require 'finder) | 455 (require 'finder) |
| 456 (let ((keys (lm-keywords-list file))) | 456 (let ((keys (lm-keywords-list file))) |
| 457 (catch 'keyword-found | 457 (catch 'keyword-found |
| 458 (while keys | 458 (while keys |
| 459 (if (assoc (intern (car keys)) finder-known-keywords) | 459 (if (assoc (intern (car keys)) |
| 460 (with-no-warnings finder-known-keywords)) | |
| 460 (throw 'keyword-found t)) | 461 (throw 'keyword-found t)) |
| 461 (setq keys (cdr keys))) | 462 (setq keys (cdr keys))) |
| 462 nil))) | 463 nil))) |
| 463 | 464 |
| 464 (defun lm-adapted-by (&optional file) | 465 (defun lm-adapted-by (&optional file) |