mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 21:50:45 -08:00
Code Issues Projects Releases Wiki Activity

(copyright-update-directory): New command.

Browse source
This commit is contained in:
Reiner Steib 2008-04-12 10:06:28 +00:00
parent c12b5b0035
commit 470fc3548e
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/copyright.el
View file

@ -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: