mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(authors-obsolete-file-p): Fix typo.

Browse Source
This commit is contained in:
Juanma Barranquero 2002-07-10 11:07:28 +00:00
parent 1e5cc404ee
commit 3932b29ac2
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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 <lektu@terra.es>
* faces.el (face-id): Fix typo.

8
lisp/emacs-lisp/authors.el
View File

@ -46,7 +46,7 @@ file individually.")
("(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 @@ 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))