Mercurial > emacs

comparison lisp/emacs-lisp/copyright.el @ 21328:d5ffccfcea21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customized.
author Andreas Schwab <schwab@suse.de>
date Wed, 01 Apr 1998 10:44:40 +0000
parents 68f319192499
children 9b009b58225f
comparison
equal deleted inserted replaced
21327:01870b9b4f2a 21328:d5ffccfcea21
1 ;;; copyright.el --- update the copyright notice in current buffer 1 ;;; copyright.el --- update the copyright notice in current buffer
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 1992-1995, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de 5 ;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de
6 ;; fax (+49 69) 7588-2389 6 ;; fax (+49 69) 7588-2389
7 ;; Keywords: maint, tools 7 ;; Keywords: maint, tools
8 8
28 ;; Allows updating the copyright year and above mentioned GPL version manually 28 ;; Allows updating the copyright year and above mentioned GPL version manually
29 ;; or when saving a file. Do (add-hook 'write-file-hooks 'copyright-update). 29 ;; or when saving a file. Do (add-hook 'write-file-hooks 'copyright-update).
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (defvar copyright-limit 2000 33 (defgroup copyright nil
34 "Update the copyright notice in current buffer."
35 :group 'tools)
36
37 (defcustom copyright-limit 2000
34 "*Don't try to update copyright beyond this position unless interactive. 38 "*Don't try to update copyright beyond this position unless interactive.
35 `nil' means to search whole buffer.") 39 `nil' means to search whole buffer."
40 :group 'copyright
41 :type '(choice (integer :tag "Limit")
42 (const :tag "No limit")))
36 43
37 44
38 (defvar copyright-regexp 45 (defcustom copyright-regexp
39 "\\([\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\ 46 "\\([\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
40 \\|[Cc]opyright\\s *:?\\s *[\251]\\)\ 47 \\|[Cc]opyright\\s *:?\\s *[\251]\\)\
41 \\s *\\([1-9][-0-9, ']*[0-9]+\\) " 48 \\s *\\([1-9][-0-9, ']*[0-9]+\\) "
42 "*What your copyright notice looks like. 49 "*What your copyright notice looks like.
43 The second \\( \\) construct must match the years.") 50 The second \\( \\) construct must match the years."
51 :group 'copyright
52 :type 'regexp)
44 53
45 54
46 (defvar copyright-query 'function 55 (defcustom copyright-query 'function
47 "*If non-`nil', ask user before changing copyright. 56 "*If non-`nil', ask user before changing copyright.
48 When this is `function', only ask when called non-interactively.") 57 When this is `function', only ask when called non-interactively."
58 :group 'copyright
59 :type '(choice (const :tag "Do not ask")
60 (const :tag "Ask" t)
61 (const :tag "Ask unless interactive" function)))
49 62
50 63
51 (defconst copyright-current-year (substring (current-time-string) -4) 64 (defconst copyright-current-year (substring (current-time-string) -4)
52 "String representing the current year.") 65 "String representing the current year.")
53 66