From: Reiner Steib Date: Sat, 3 Jan 2009 19:40:20 +0000 (+0000) Subject: (copyright-update-directory): Autoload. X-Git-Tag: emacs-pretest-23.0.90~723 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4182531ceac8f5635c6d128bcaadb0218ff01ca7;p=emacs.git (copyright-update-directory): Autoload. Clarify MATCH argument. Print filenames. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a38194d096..2522fd0a6ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-03 Reiner Steib + + * emacs-lisp/copyright.el (copyright-update-directory): Autoload. + Clarify MATCH argument. Print filenames. + 2009-01-03 Michael Albinus * net/dbus.el (dbus-string-to-byte-array): Handle empty string. diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index f8894a7975d..85cd2b4248a 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -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 ;; Keywords: maint, tools @@ -282,10 +282,12 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx." (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))