Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 46290:0cd79941b83a
(authors-obsolete-file-p): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 10 Jul 2002 11:06:54 +0000 |
| parents | 8a9386a43e41 |
| children | 1a1bdbf63c63 |
comparison
equal
deleted
inserted
replaced
| 46289:0b9af9ab98d2 | 46290:0cd79941b83a |
|---|---|
| 44 ("NIIBE Yutaka" . "Yutaka NIIBE") | 44 ("NIIBE Yutaka" . "Yutaka NIIBE") |
| 45 ("(saw@cebaf.gov)" . "Stephen A. Wood") | 45 ("(saw@cebaf.gov)" . "Stephen A. Wood") |
| 46 ("(pmr@legacy.pajato.com)" . "Paul Reilly") | 46 ("(pmr@legacy.pajato.com)" . "Paul Reilly") |
| 47 ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") | 47 ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") |
| 48 ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer") | 48 ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer") |
| 49 ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") | 49 ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") |
| 50 ("(afs@hplb.hpl.hp.com)" . "ignore") | 50 ("(afs@hplb.hpl.hp.com)" . "ignore") |
| 51 ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore") | 51 ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore") |
| 52 ("Code Extracted" . "ignore") | 52 ("Code Extracted" . "ignore") |
| 53 ("Fsf" . "ignore") | 53 ("Fsf" . "ignore") |
| 54 ("David M. Koppelman, Koppel@Ee.Lsu.Edu" . "David M. Koppelman") | 54 ("David M. Koppelman, Koppel@Ee.Lsu.Edu" . "David M. Koppelman") |
| 238 (dolist (item (cdr entry)) | 238 (dolist (item (cdr entry)) |
| 239 (if (symbolp item) | 239 (if (symbolp item) |
| 240 (setq action item) | 240 (setq action item) |
| 241 (authors-add author item action table)))))) | 241 (authors-add author item action table)))))) |
| 242 | 242 |
| 243 | 243 |
| 244 (defun authors-obsolete-file-p (file) | 244 (defun authors-obsolete-file-p (file) |
| 245 "Return non-nil if FILE is obsolete. | 245 "Return non-nil if FILE is obsolete. |
| 246 FILE is considered obsolete if it matches on of the regular expressions | 246 FILE is considered obsolete if it matches one of the regular expressions |
| 247 from `authors-obsolete-files-regexps'." | 247 from `authors-obsolete-files-regexps'." |
| 248 (let (obsolete-p | 248 (let (obsolete-p |
| 249 (regexps authors-obsolete-files-regexps)) | 249 (regexps authors-obsolete-files-regexps)) |
| 250 (while (and regexps (not obsolete-p)) | 250 (while (and regexps (not obsolete-p)) |
| 251 (setq obsolete-p (string-match (car regexps) file) | 251 (setq obsolete-p (string-match (car regexps) file) |
| 313 entry is a list of keyword symbols describing what he did with the | 313 entry is a list of keyword symbols describing what he did with the |
| 314 file. | 314 file. |
| 315 | 315 |
| 316 :wrote means the author wrote the file | 316 :wrote means the author wrote the file |
| 317 :changed means he changed the file." | 317 :changed means he changed the file." |
| 318 | 318 |
| 319 (let* ((enable-local-variables t) | 319 (let* ((enable-local-variables t) |
| 320 (enable-local-eval t) | 320 (enable-local-eval t) |
| 321 (existing-buffer (get-file-buffer file)) | 321 (existing-buffer (get-file-buffer file)) |
| 322 (buffer (find-file-noselect file)) | 322 (buffer (find-file-noselect file)) |
| 323 author) | 323 author) |