changeset 100869:3d95444199e1

(copyright-update-directory): Autoload. Clarify MATCH argument. Print filenames.
author Reiner Steib <Reiner.Steib@gmx.de>
date Sat, 03 Jan 2009 19:40:20 +0000
parents 47afe3de3618
children 373ba628faa9
files lisp/ChangeLog lisp/emacs-lisp/copyright.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Jan 03 15:27:02 2009 +0000
+++ b/lisp/ChangeLog	Sat Jan 03 19:40:20 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-03  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* emacs-lisp/copyright.el (copyright-update-directory): Autoload.
+	Clarify MATCH argument.  Print filenames.
+
 2009-01-03  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/dbus.el (dbus-string-to-byte-array): Handle empty string.
--- a/lisp/emacs-lisp/copyright.el	Sat Jan 03 15:27:02 2009 +0000
+++ b/lisp/emacs-lisp/copyright.el	Sat Jan 03 19:40:20 2009 +0000
@@ -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 <occitan@esperanto.org>
 ;; 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))