(copyright-update-directory): New command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 253c2db6c7292444a281b47fb893f15437c6c6e3..763c1f3413fb7232094094d4f17dd53562886595 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-12  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * emacs-lisp/copyright.el (copyright-update-directory): New
+       command.
+
        * ediff-wind.el (ediff-split-window-function)
        (ediff-merge-split-window-function): Improve custom type.
 

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index d745a245e8e326c3db99e654c947066d3aae4a49..910ac9eaa2392c3c700e9225a2c7b4ba6c72414b 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -255,6 +255,16 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
        (message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
   comment-end \n)
 
+(defun copyright-update-directory (directory match)
+  "Update copyright notice for all files in DIRECTORY matching MATCH."
+  (interactive "DDirectory: \nMFilenames matching: ")
+  (dolist (file (directory-files directory t match nil))
+    (find-file file)
+    (let ((copyright-query nil))
+      (copyright-update))
+    (save-buffer)
+    (kill-buffer (current-buffer))))
+
 (provide 'copyright)
 
 ;; For the copyright sign: