mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

(copyright-update-directory): Autoload.

Browse source 
Clarify MATCH argument.  Print filenames.
This commit is contained in:
Reiner Steib 2009-01-03 19:40:20 +00:00
parent 296590671b
commit 4182531cea
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

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

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