diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2009-01-03 19:40:20 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2009-01-03 19:40:20 +0000 |
| commit | 4182531ceac8f5635c6d128bcaadb0218ff01ca7 (patch) | |
| tree | f296769571e9276e4f2afd20c88c2ab300889fe0 | |
| parent | 296590671b5a0f9c4c499b6d5a58c7bc245925f8 (diff) | |
| download | emacs-4182531ceac8f5635c6d128bcaadb0218ff01ca7.tar.gz | |
(copyright-update-directory): Autoload.
Clarify MATCH argument. Print filenames.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 6 |
2 files changed, 9 insertions, 2 deletions
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 <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. 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 <occitan@esperanto.org> ;; 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)) |