Commit 5efa6032 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

New functions.
(lm-verify): Check keywords.
From: Eric M. Ludlam <eric@siege-engine.com>.
parent d757aac1
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.
 
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment