procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
New functions.
(lm-verify): Check keywords.
From: Eric M. Ludlam <eric@siege-engine.com>.
This commit is contained in:
Gerd Moellmann 2001-04-04 09:58:56 +00:00
parent d757aac1c9
commit 5efa603233
2 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -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> 2001-04-03 Eric M. Ludlam <eric@siege-engine.com>
* speedbar.el (speedbar-insert-image-button-maybe): Check for * speedbar.el (speedbar-insert-image-button-maybe): Check for
@ -18,6 +25,9 @@
2001-04-03 Gerd Moellmann <gerd@gnu.org> 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 * startup.el (fancy-splash-head): Use splash8.xpm for color
depth 8. depth 8.

19
lisp/emacs-lisp/lisp-mnt.el
View file

@ -370,6 +370,23 @@ This can be found in an RCS or SCCS header."
(let ((keywords (lm-header "keywords"))) (let ((keywords (lm-header "keywords")))
(and keywords (downcase 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) (defun lm-adapted-by (&optional file)
"Return the adapted-by names in file FILE, or current buffer if FILE is nil. "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 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") "Can't find a one-line 'Summary' description")
((not (lm-keywords)) ((not (lm-keywords))
"Keywords: tag missing.") "Keywords: tag missing.")
((not (lm-keywords-finder-p))
"Keywords: no valid finder keywords.")
((not (lm-commentary-mark)) ((not (lm-commentary-mark))
"Can't find a 'Commentary' section marker.") "Can't find a 'Commentary' section marker.")
((not (lm-history-mark)) ((not (lm-history-mark))