mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(authors-obsolete-file-p): New function.

Browse Source 
(authors-obsolete-files-regexps): New variable.
(authors-add): Don't record changes in obsolete files.
This commit is contained in:
Gerd Moellmann 2000-09-30 12:06:40 +00:00
parent 9194723588
commit 8a5506f297
2 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2000-09-30 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/authors.el (authors-obsolete-file-p): New function.
(authors-obsolete-files-regexps): New variable.
(authors-add): Don't record changes in obsolete files.
2000-09-29 Stefan Monnier <monnier@cs.yale.edu>
* autoinsert.el (auto-insert-mode): Use define-minor-mode.

34
lisp/emacs-lisp/authors.el
View File

@ -87,17 +87,39 @@ matches REGEXP, use ALIAS instead. The special alias \"ignore\" means
ignore that author.")
(defvar authors-obsolete-files-regexps
'("vc-\\*\\.el$"
"spec.txt$"
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
"List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not
listed.")
(defun authors-obsolete-file-p (file)
"Return non-nil if FILE is obsolete.
FILE is considered obsolete if it matches on of the regular expressions
from `authors-obsolete-files-regexps'."
(let (obsolete-p
(regexps authors-obsolete-files-regexps))
(while (and regexps (not obsolete-p))
(setq obsolete-p (string-match (car regexps) file)
regexps (cdr regexps)))
obsolete-p))
(defun authors-add (author file action table)
"Record that AUTHOR worked on FILE.
ACTION is a keyword symbol describing what he did. Record file,
author and what he did in hash table TABLE. See the description of
`authors-scan-change-log' for the structure of the hash table."
(let* ((value (gethash author table))
(entry (assoc file value)))
(if (null entry)
(puthash author (cons (list file action) value) table)
(unless (memq action entry)
(nconc entry (list action))))))
(unless (authors-obsolete-file-p file)
(let* ((value (gethash author table))
(entry (assoc file value)))
(if (null entry)
(puthash author (cons (list file action) value) table)
(unless (memq action entry)
(nconc entry (list action)))))))
(defun authors-process-lines (program &rest args)