diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-04-04 09:58:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-04-04 09:58:56 +0000 |
| commit | 5efa6032337a290db7dbd1a770dc31d0411dcb4c (patch) | |
| tree | 3bb1725963639d7e00474fe59625539956374f2c | |
| parent | d757aac1c927ffbf8edf60e49d8a8640a2a26ccb (diff) | |
| download | emacs-5efa6032337a290db7dbd1a770dc31d0411dcb4c.tar.gz | |
(lm-keywords-list, lm-keywords-finder-p):
New functions.
(lm-verify): Check keywords.
From: Eric M. Ludlam <eric@siege-engine.com>.
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 19 |
2 files changed, 29 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1f65e55d557..de934eb769d 100644 --- 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 e7ea13e2cde..8b0e4a38ae4 100644 --- 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)) |