[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/copyright.el,v
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/copyright.el,v |
Date: |
Sat, 12 Apr 2008 10:06:29 +0000 |
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: