mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Customized.

Browse Source
This commit is contained in:
Andreas Schwab 1998-04-01 10:44:40 +00:00
parent 04d807e6ce
commit 3f251fcd3b
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/emacs-lisp/copyright.el
View File

@ -1,6 +1,6 @@
;;; copyright.el --- update the copyright notice in current buffer
;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
;; Copyright (C) 1991, 1992-1995, 1998 Free Software Foundation, Inc.
;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de
;; fax (+49 69) 7588-2389
@ -30,22 +30,35 @@
;;; Code:
(defvar copyright-limit 2000
(defgroup copyright nil
"Update the copyright notice in current buffer."
:group 'tools)
(defcustom copyright-limit 2000
"*Don't try to update copyright beyond this position unless interactive.
`nil' means to search whole buffer.")
`nil' means to search whole buffer."
:group 'copyright
:type '(choice (integer :tag "Limit")
(const :tag "No limit")))
(defvar copyright-regexp
(defcustom copyright-regexp
"\\([<5B>©\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
\\|[Cc]opyright\\s *:?\\s *[<EFBFBD>©\251]\\)\
\\s *\\([1-9][-0-9, ']*[0-9]+\\) "
"*What your copyright notice looks like.
The second \\( \\) construct must match the years.")
The second \\( \\) construct must match the years."
:group 'copyright
:type 'regexp)
(defvar copyright-query 'function
(defcustom copyright-query 'function
"*If non-`nil', ask user before changing copyright.
When this is `function', only ask when called non-interactively.")
When this is `function', only ask when called non-interactively."
:group 'copyright
:type '(choice (const :tag "Do not ask")
(const :tag "Ask" t)
(const :tag "Ask unless interactive" function)))
(defconst copyright-current-year (substring (current-time-string) -4)