[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/copyright.el,v

[Reiner Steib]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Reiner Steib <rsteib>   08/04/12 10:06:29

Index: emacs-lisp/copyright.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/copyright.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- emacs-lisp/copyright.el     8 Apr 2008 11:45:19 -0000       1.73
+++ emacs-lisp/copyright.el     12 Apr 2008 10:06:27 -0000      1.74
@@ -255,6 +255,16 @@
        (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: