Commit | Line | Data |
---|---|---|
3f61a2e7 | 1 | ;;; copyright.el --- update the copyright notice in current buffer |
d501f516 | 2 | |
f47f5302 SM |
3 | ;; Copyright (C) 1991, 92, 93, 94, 95, 1998, 2001, 2003 |
4 | ;; Free Software Foundation, Inc. | |
58142744 | 5 | |
3e910376 | 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> |
3f61a2e7 KH |
7 | ;; Keywords: maint, tools |
8 | ||
9 | ;; This file is part of GNU Emacs. | |
10 | ||
11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 | ;; it under the terms of the GNU General Public License as published by | |
13 | ;; the Free Software Foundation; either version 2, or (at your option) | |
14 | ;; any later version. | |
15 | ||
16 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
20 | ||
21 | ;; You should have received a copy of the GNU General Public License | |
b578f267 EN |
22 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 | ;; Boston, MA 02111-1307, USA. | |
3f61a2e7 KH |
25 | |
26 | ;;; Commentary: | |
27 | ||
28 | ;; Allows updating the copyright year and above mentioned GPL version manually | |
f47f5302 SM |
29 | ;; or when saving a file. |
30 | ;; Do (add-hook 'write-file-functions 'copyright-update). | |
0343b087 | 31 | |
d46bac56 ER |
32 | ;;; Code: |
33 | ||
3f251fcd AS |
34 | (defgroup copyright nil |
35 | "Update the copyright notice in current buffer." | |
36 | :group 'tools) | |
37 | ||
38 | (defcustom copyright-limit 2000 | |
3f61a2e7 | 39 | "*Don't try to update copyright beyond this position unless interactive. |
9c05459c | 40 | A value of nil means to search whole buffer." |
3f251fcd AS |
41 | :group 'copyright |
42 | :type '(choice (integer :tag "Limit") | |
43 | (const :tag "No limit"))) | |
3f61a2e7 | 44 | |
463f5630 KH |
45 | ;; Would it be cleaner to specify Latin-1 coding for this file, |
46 | ;; and not use both unibyte and multibyte copyright symbol characters? | |
47 | ||
48 | ;; The character classes include the unibyte (C) sign, | |
49 | ;; the Latin-1 version, and the Latin-9 version. | |
3f251fcd | 50 | (defcustom copyright-regexp |
3be4340f RS |
51 |