emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 r117580: Small authors.el updates


From: Glenn Morris
Subject: [Emacs-diffs] emacs-24 r117580: Small authors.el updates
Date: Mon, 13 Oct 2014 19:32:17 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117580
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Mon 2014-10-13 15:32:14 -0400
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/authors.el     authors.el-20091113204419-o5vbwnq5f7feedwu-1898
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-12 15:12:04 +0000
+++ b/lisp/ChangeLog    2014-10-13 19:32:14 +0000
@@ -1,3 +1,11 @@
+2014-10-13  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        Fix import completion.  (Bug#18582)

=== modified file 'lisp/emacs-lisp/authors.el'
--- a/lisp/emacs-lisp/authors.el        2014-08-27 07:53:58 +0000
+++ b/lisp/emacs-lisp/authors.el        2014-10-13 19:32:14 +0000
@@ -121,6 +121,7 @@
     ("Mikio Nakajima" "Nakajima Mikio")
     ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
     ("Noorul Islam" "Noorul Islam K M")
+;;;    ("Tetsurou Okazaki" "OKAZAKI Tetsurou") ; FIXME?
     ("Paul Eggert" "Paul R\\. Eggert")
     ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik")
     ("Pavel Kobiakov" "Pavel Kobyakov")
@@ -143,6 +144,7 @@
     ("Sam Steingold" "Sam Shteingold")
     ("Satyaki Das" "Indexed search by Satyaki Das")
     ("Sébastien Vauban" "Sebastien Vauban")
+    ("Sergey Litvinov" "Litvinov Sergey")
     ;; There are other Stefans.
 ;;;    ("Stefan Monnier" "Stefan")
     ("Steven L. Baur" "SL Baur" "Steven L Baur")
@@ -178,11 +180,13 @@
 
 ;; FIXME seems it would be less fragile to check for O', Mc, etc.
 (defconst authors-fixed-case
-  '("Brian van den Broek"
+  '("Barry O'Reilly"
+    "Brian van den Broek"
     "Bryan O'Sullivan"
     "Christian von Roques"
     "Christophe de Dinechin"
     "Craig McDaniel"
+    "Daniel LaLiberte"
     "David J. MacKenzie"
     "David McCabe"
     "David O'Toole"
@@ -190,12 +194,16 @@
     "Dominique de Waleffe"
     "Edward O'Connor"
     "Exal de Jesus Garcia Carrillo"
+    "George McNinch"
     "Greg McGary"
     "Hans de Graaff"
+    "Ivan Vilata i Balaguer"
+    "Jae-hyeon Park"
     "James TD Smith"
     "Jay McCarthy"
     "Joel N. Weber II"
     "Matt McClure"
+    "Mike McLean"
     "Michael McNamara"
     "Mike McEwan"
     "Nelson Jose dos Santos Ferreira"
@@ -203,10 +211,13 @@
     "Peter O'Gorman"
     "Piet van Oostrum"
     "Roland McGrath"
+    "Santiago Payà i Miralta"
     "Sean O'Halpin"
     "Sean O'Rourke"
+    "Shun-ichi Goto"
     "Thomas DeWeese"
-    "Tijs van Bakel")
+    "Tijs van Bakel"
+    "Yu-ji Hosokawa")
   "List of authors whose names cannot be simply capitalized.")
 
 (defvar authors-public-domain-files
@@ -231,6 +242,7 @@
   '(".*loaddefs.el$"                   ; not obsolete, but auto-generated
     "\\.\\(cvs\\|git\\)ignore$"                ; obsolete or uninteresting
     "\\.arch-inventory$"
+    "automated/data"              ; not interesting
     ;; TODO lib/? Matches other things?
     "build-aux/" "m4/" "Emacs.xcodeproj" "mapfiles" "\\.map\\'"
     "preferences\\.\\(nib\\|gorm\\)"
@@ -240,6 +252,11 @@
   "List of regexps matching obsolete files.
 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
   '("external-lisp"
     "lock" "share-lib" "local-lisp"
@@ -1052,6 +1069,15 @@
            regexps (cdr regexps)))
     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)
   "Record that AUTHOR worked on FILE.
@@ -1283,8 +1309,9 @@
        (authors-scan-change-log log table)))
     (let ((els (process-lines find-program root "-name" "*.el")))
       (dolist (file els)
-       (message "Scanning %s..." file)
-       (authors-scan-el file table)))
+       (unless (authors-no-scan-file-p file)
+         (message "Scanning %s..." file)
+         (authors-scan-el file table))))
     (message "Generating buffer %s..." buffer-name)
     (set-buffer (get-buffer-create buffer-name))
     (erase-buffer)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]