(lm-keywords-list, lm-keywords-finder-p):

New functions.
(lm-verify): Check keywords.
From: Eric M. Ludlam <eric@siege-engine.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f65e55d5572a1c60df2417b82ecb014c013e7db..de934eb769d053be7b7bd47ff6a1a9c61ba8c428 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-04-04  Gerd Moellmann  <gerd@gnu.org>
+
+       * emacs-lisp/lisp-mnt.el (lm-keywords-list, lm-keywords-finder-p):
+       New functions.
+       (lm-verify): Check keywords. 
+       From: Eric M. Ludlam <eric@siege-engine.com>.
+
 2001-04-03  Eric M. Ludlam  <eric@siege-engine.com>
 
        * speedbar.el (speedbar-insert-image-button-maybe): Check for
@@ -18,6 +25,9 @@
 
 2001-04-03  Gerd Moellmann  <gerd@gnu.org>
 
+       * icomplete.el (icomplete-mode): Treat an argument like other
+       modes do.
+
        * startup.el (fancy-splash-head): Use splash8.xpm for color
        depth 8.
 

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index e7ea13e2cde7e9ac23d73c26202cb3cce69c4b9e..8b0e4a38ae4f010d7f8b9d120f84e4753177e9f0 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -370,6 +370,23 @@ This can be found in an RCS or SCCS header."
     (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 @@ Optional argument VERB specifies verbosity."
                "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))