Mercurial > emacs
changeset 37182:c29d2430fdd9
(lm-keywords-list, lm-keywords-finder-p):
New functions.
(lm-verify): Check keywords.
From: Eric M. Ludlam <eric@siege-engine.com>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 04 Apr 2001 09:58:21 +0000 |
| parents | 5e4515f18782 |
| children | 5a753a7265d5 |
| files | lisp/emacs-lisp/lisp-mnt.el |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el Wed Apr 04 00:51:48 2001 +0000 +++ b/lisp/emacs-lisp/lisp-mnt.el Wed Apr 04 09:58:21 2001 +0000 @@ -370,6 +370,23 @@ (let ((keywords (lm-header "keywords"))) (and keywords (downcase keywords))))) +(defun lm-keywords-list (&optional file) + "Return list of keywords given in file FILE." + (let ((keywords (lm-keywords file))) + (if keywords + (split-string keywords ",?[ \t]")))) + +(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)) finder-known-keywords) + (throw 'keyword-found t)) + (setq keys (cdr keys))) + nil))) + (defun lm-adapted-by (&optional file) "Return the adapted-by names in file FILE, or current buffer if FILE is nil. This is the name of the person who cleaned up this package for @@ -439,6 +456,8 @@ "Can't find a one-line 'Summary' description") ((not (lm-keywords)) "Keywords: tag missing.") + ((not (lm-keywords-finder-p)) + "Keywords: no valid finder keywords.") ((not (lm-commentary-mark)) "Can't find a 'Commentary' section marker.") ((not (lm-history-mark))