Commit 7dbd8a2c authored by Glenn Morris's avatar Glenn Morris

Small authors.el updates

* lisp/emacs-lisp/authors.el (authors-aliases, authors-fixed-case)
(authors-obsolete-files-regexps): Additions.
(authors-no-scan-regexps): New constant.
(authors-no-scan-file-p): New function.
(authors): Respect authors-no-scan-file-p.
parent 2bcc04b3
2014-10-13 Glenn Morris <rgm@gnu.org>
* emacs-lisp/authors.el (authors-aliases, authors-fixed-case)
(authors-obsolete-files-regexps): Additions.
(authors-no-scan-regexps): New constant.
(authors-no-scan-file-p): New function.
(authors): Respect authors-no-scan-file-p.
2014-10-12 Fabián Ezequiel Gallina <fgallina@gnu.org> 2014-10-12 Fabián Ezequiel Gallina <fgallina@gnu.org>
Fix import completion. (Bug#18582) Fix import completion. (Bug#18582)
......
...@@ -121,6 +121,7 @@ files.") ...@@ -121,6 +121,7 @@ files.")
("Mikio Nakajima" "Nakajima Mikio") ("Mikio Nakajima" "Nakajima Mikio")
("Nelson Jose dos Santos Ferreira" "Nelson Ferreira") ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
("Noorul Islam" "Noorul Islam K M") ("Noorul Islam" "Noorul Islam K M")
;;; ("Tetsurou Okazaki" "OKAZAKI Tetsurou") ; FIXME?
("Paul Eggert" "Paul R\\. Eggert") ("Paul Eggert" "Paul R\\. Eggert")
("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik") ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik")
("Pavel Kobiakov" "Pavel Kobyakov") ("Pavel Kobiakov" "Pavel Kobyakov")
...@@ -143,6 +144,7 @@ files.") ...@@ -143,6 +144,7 @@ files.")
("Sam Steingold" "Sam Shteingold") ("Sam Steingold" "Sam Shteingold")
("Satyaki Das" "Indexed search by Satyaki Das") ("Satyaki Das" "Indexed search by Satyaki Das")
("Sébastien Vauban" "Sebastien Vauban") ("Sébastien Vauban" "Sebastien Vauban")
("Sergey Litvinov" "Litvinov Sergey")
;; There are other Stefans. ;; There are other Stefans.
;;; ("Stefan Monnier" "Stefan") ;;; ("Stefan Monnier" "Stefan")
("Steven L. Baur" "SL Baur" "Steven L Baur") ("Steven L. Baur" "SL Baur" "Steven L Baur")
...@@ -178,11 +180,13 @@ If REALNAME is nil, ignore that author.") ...@@ -178,11 +180,13 @@ If REALNAME is nil, ignore that author.")
;; FIXME seems it would be less fragile to check for O', Mc, etc. ;; FIXME seems it would be less fragile to check for O', Mc, etc.
(defconst authors-fixed-case (defconst authors-fixed-case
'("Brian van den Broek" '("Barry O'Reilly"
"Brian van den Broek"
"Bryan O'Sullivan" "Bryan O'Sullivan"
"Christian von Roques" "Christian von Roques"
"Christophe de Dinechin" "Christophe de Dinechin"
"Craig McDaniel" "Craig McDaniel"
"Daniel LaLiberte"
"David J. MacKenzie" "David J. MacKenzie"
"David McCabe" "David McCabe"
"David O'Toole" "David O'Toole"
...@@ -190,12 +194,16 @@ If REALNAME is nil, ignore that author.") ...@@ -190,12 +194,16 @@ If REALNAME is nil, ignore that author.")
"Dominique de Waleffe" "Dominique de Waleffe"
"Edward O'Connor" "Edward O'Connor"
"Exal de Jesus Garcia Carrillo" "Exal de Jesus Garcia Carrillo"
"George McNinch"
"Greg McGary" "Greg McGary"
"Hans de Graaff" "Hans de Graaff"
"Ivan Vilata i Balaguer"
"Jae-hyeon Park"
"James TD Smith" "James TD Smith"
"Jay McCarthy" "Jay McCarthy"
"Joel N. Weber II" "Joel N. Weber II"
"Matt McClure" "Matt McClure"
"Mike McLean"
"Michael McNamara" "Michael McNamara"
"Mike McEwan" "Mike McEwan"
"Nelson Jose dos Santos Ferreira" "Nelson Jose dos Santos Ferreira"
...@@ -203,10 +211,13 @@ If REALNAME is nil, ignore that author.") ...@@ -203,10 +211,13 @@ If REALNAME is nil, ignore that author.")
"Peter O'Gorman" "Peter O'Gorman"
"Piet van Oostrum" "Piet van Oostrum"
"Roland McGrath" "Roland McGrath"
"Santiago Payà i Miralta"
"Sean O'Halpin" "Sean O'Halpin"
"Sean O'Rourke" "Sean O'Rourke"
"Shun-ichi Goto"
"Thomas DeWeese" "Thomas DeWeese"
"Tijs van Bakel") "Tijs van Bakel"
"Yu-ji Hosokawa")
"List of authors whose names cannot be simply capitalized.") "List of authors whose names cannot be simply capitalized.")
(defvar authors-public-domain-files (defvar authors-public-domain-files
...@@ -231,6 +242,7 @@ If REALNAME is nil, ignore that author.") ...@@ -231,6 +242,7 @@ If REALNAME is nil, ignore that author.")
'(".*loaddefs.el$" ; not obsolete, but auto-generated '(".*loaddefs.el$" ; not obsolete, but auto-generated
"\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting "\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting
"\\.arch-inventory$" "\\.arch-inventory$"
"automated/data" ; not interesting
;; TODO lib/? Matches other things? ;; TODO lib/? Matches other things?
"build-aux/" "m4/" "Emacs.xcodeproj" "mapfiles" "\\.map\\'" "build-aux/" "m4/" "Emacs.xcodeproj" "mapfiles" "\\.map\\'"
"preferences\\.\\(nib\\|gorm\\)" "preferences\\.\\(nib\\|gorm\\)"
...@@ -240,6 +252,11 @@ gnus-booklet\\|fr-drdref\\)\\.p\\(df\\|s\\)\\'") ...@@ -240,6 +252,11 @@ gnus-booklet\\|fr-drdref\\)\\.p\\(df\\|s\\)\\'")
"List of regexps matching obsolete files. "List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not listed.") Changes to files matching one of the regexps in this list are not listed.")
(defconst authors-no-scan-regexps
'("etc/nxml/"
"automated/data")
"Lists of regexps matching files not to scan for authorship.")
(defconst authors-ignored-files (defconst authors-ignored-files
'("external-lisp" '("external-lisp"
"lock" "share-lib" "local-lisp" "lock" "share-lib" "local-lisp"
...@@ -1052,6 +1069,15 @@ from `authors-obsolete-files-regexps'." ...@@ -1052,6 +1069,15 @@ from `authors-obsolete-files-regexps'."
regexps (cdr regexps))) regexps (cdr regexps)))
obsolete-p)) obsolete-p))
(defun authors-no-scan-file-p (file)
"Return non-nil if FILE should not be scanned.
FILE is not scanned if it matches any of `authors-no-scan-regexps'."
(let (no-scan-p
(regexps authors-no-scan-regexps))
(while (and regexps (not no-scan-p))
(setq no-scan-p (string-match-p (car regexps) file)
regexps (cdr regexps)))
no-scan-p))
(defun authors-add (author file action table) (defun authors-add (author file action table)
"Record that AUTHOR worked on FILE. "Record that AUTHOR worked on FILE.
...@@ -1283,8 +1309,9 @@ buffer *Authors Errors* containing references to unknown files." ...@@ -1283,8 +1309,9 @@ buffer *Authors Errors* containing references to unknown files."
(authors-scan-change-log log table))) (authors-scan-change-log log table)))
(let ((els (process-lines find-program root "-name" "*.el"))) (let ((els (process-lines find-program root "-name" "*.el")))
(dolist (file els) (dolist (file els)
(message "Scanning %s..." file) (unless (authors-no-scan-file-p file)
(authors-scan-el file table))) (message "Scanning %s..." file)
(authors-scan-el file table))))
(message "Generating buffer %s..." buffer-name) (message "Generating buffer %s..." buffer-name)
(set-buffer (get-buffer-create buffer-name)) (set-buffer (get-buffer-create buffer-name))
(erase-buffer) (erase-buffer)
......
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