Mercurial > emacs
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))