[Emacs-diffs] emacs/lisp emacs-lisp/copyright.el ChangeLog

[Reiner Steib]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Reiner Steib <rsteib>   09/01/03 19:40:28

Modified files:
        lisp/emacs-lisp: copyright.el 
        lisp           : ChangeLog 

Log message:
        (copyright-update-directory): Autoload.
        Clarify MATCH argument.  Print filenames.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/copyright.el?cvsroot=emacs&r1=1.76&r2=1.77
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15029&r2=1.15030

Patches:
Index: emacs-lisp/copyright.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/copyright.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- emacs-lisp/copyright.el     6 May 2008 03:21:13 -0000       1.76
+++ emacs-lisp/copyright.el     3 Jan 2009 19:40:20 -0000       1.77
@@ -1,7 +1,7 @@
 ;;; copyright.el --- update the copyright notice in current buffer
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1998, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Daniel Pfeiffer <address@hidden>
 ;; Keywords: maint, tools
@@ -282,10 +282,12 @@
        (message "Copyright extends beyond `copyright-limit' and won't be 
updated automatically."))
   comment-end \n)
 
+;;;###autoload
 (defun copyright-update-directory (directory match)
   "Update copyright notice for all files in DIRECTORY matching MATCH."
-  (interactive "DDirectory: \nMFilenames matching: ")
+  (interactive "DDirectory: \nMFilenames matching (regexp): ")
   (dolist (file (directory-files directory t match nil))
+    (message "Updating file `%s'" file)
     (find-file file)
     (let ((copyright-query nil))
       (copyright-update))

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15029
retrieving revision 1.15030
diff -u -b -r1.15029 -r1.15030
--- ChangeLog   3 Jan 2009 15:00:35 -0000       1.15029
+++ ChangeLog   3 Jan 2009 19:40:22 -0000       1.15030
@@ -1,3 +1,8 @@
+2009-01-03  Reiner Steib  <address@hidden>
+
+       * emacs-lisp/copyright.el (copyright-update-directory): Autoload.
+       Clarify MATCH argument.  Print filenames.
+
 2009-01-03  Michael Albinus  <address@hidden>
 
        * net/dbus.el (dbus-string-to-byte-array): Handle empty string.