Mercurial > emacs
changeset 46290:0cd79941b83a
(authors-obsolete-file-p): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 10 Jul 2002 11:06:54 +0000 |
| parents | 0b9af9ab98d2 |
| children | 53aad01021a4 |
| files | lisp/emacs-lisp/authors.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/authors.el Wed Jul 10 09:49:40 2002 +0000 +++ b/lisp/emacs-lisp/authors.el Wed Jul 10 11:06:54 2002 +0000 @@ -46,7 +46,7 @@ ("(pmr@legacy.pajato.com)" . "Paul Reilly") ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer") - ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") + ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") ("(afs@hplb.hpl.hp.com)" . "ignore") ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore") ("Code Extracted" . "ignore") @@ -240,10 +240,10 @@ (setq action item) (authors-add author item action table)))))) - + (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 +FILE is considered obsolete if it matches one of the regular expressions from `authors-obsolete-files-regexps'." (let (obsolete-p (regexps authors-obsolete-files-regexps)) @@ -315,7 +315,7 @@ :wrote means the author wrote the file :changed means he changed the file." - + (let* ((enable-local-variables t) (enable-local-eval t) (existing-buffer (get-file-buffer file))