Commit 0a521885 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(authors-public-domain-files): New variable.

(authors-public-domain-p): New function.
(authors-print): Use it.
parent 3d66f910
...@@ -99,6 +99,21 @@ matches REGEXP, use ALIAS instead. The special alias \"ignore\" means ...@@ -99,6 +99,21 @@ matches REGEXP, use ALIAS instead. The special alias \"ignore\" means
ignore that author.") ignore that author.")
(defvar authors-public-domain-files
'("auto-show\\.el"
"form-d2\\.el"
"emerge\\.el"
"unused\\.el"
"vi\\.el"
"feedmail\\.el"
"mailpost\\.el"
"hanoi\\.el"
"meese\\.el"
"studly\\.el"
"modula2\\.el")
"List of regexps matching files for which the FSF doesn't need papers.")
(defvar authors-obsolete-files-regexps (defvar authors-obsolete-files-regexps
'("vc-\\*\\.el$" '("vc-\\*\\.el$"
"spec.txt$" "spec.txt$"
...@@ -366,6 +381,17 @@ TABLE is a hash table to add author information to." ...@@ -366,6 +381,17 @@ TABLE is a hash table to add author information to."
(kill-buffer buffer)))) (kill-buffer buffer))))
(defun authors-public-domain-p (file)
"Return t if FILE is a file that was put in public domain."
(let ((public-domain-p nil)
(list authors-public-domain-files))
(while (and list (not public-domain-p))
(when (string-match (car list) file)
(setq public-domain-p t))
(setq list (cdr list)))
public-domain-p))
(defun authors-print (author changes) (defun authors-print (author changes)
"Insert information about AUTHOR's work on Emacs into the current buffer. "Insert information about AUTHOR's work on Emacs into the current buffer.
CHANGES is an alist of entries (FILE ACTION...), as produced by CHANGES is an alist of entries (FILE ACTION...), as produced by
...@@ -376,7 +402,11 @@ CHANGES is an alist of entries (FILE ACTION...), as produced by ...@@ -376,7 +402,11 @@ CHANGES is an alist of entries (FILE ACTION...), as produced by
(let ((actions (cdr change)) (let ((actions (cdr change))
(file (car change))) (file (car change)))
(if (memq :wrote actions) (if (memq :wrote actions)
(insert author " (wrote) " file "\n") (progn
(insert author " (wrote) " file)
(when (authors-public-domain-p file)
(insert " (public domain)"))
(insert "\n"))
(setq nchanged (1+ nchanged))))) (setq nchanged (1+ nchanged)))))
(if (> nchanged authors-many-files) (if (> nchanged authors-many-files)
(insert author " (changed) [more than " (insert author " (changed) [more than "
......
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