From: Juanma Barranquero Date: Wed, 10 Jul 2002 11:07:28 +0000 (+0000) Subject: (authors-obsolete-file-p): Fix typo. X-Git-Tag: ttn-vms-21-2-B4~14206 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3932b29ac20b74f167f29782ebaab0b34d5e7017;p=emacs.git (authors-obsolete-file-p): Fix typo. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 470315b98f1..b6cf752a663 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -8,6 +8,8 @@ (speedbar-mouse-hscroll): Likewise. (speedbar-file-lists): Likewise. + * emacs-lisp/authors.el (authors-obsolete-file-p): Fix typo. + 2002-07-09 Juanma Barranquero * faces.el (face-id): Fix typo. diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index acb9573e66d..9d5feb36879 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -46,7 +46,7 @@ file individually.") ("(pmr@legacy.pajato.com)" . "Paul Reilly") ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") ("" . "Daniel Pfeiffer") - ("" . "Daniel Pfeiffer") + ("" . "Daniel Pfeiffer") ("(afs@hplb.hpl.hp.com)" . "ignore") ("" . "ignore") ("Code Extracted" . "ignore") @@ -240,10 +240,10 @@ listed.") (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 @@ file. :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))