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