Commit 3f251fcd authored by Andreas Schwab's avatar Andreas Schwab
Browse files

Customized.

parent 04d807e6
;;; copyright.el --- update the copyright notice in current buffer ;;; 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 ;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de
;; fax (+49 69) 7588-2389 ;; fax (+49 69) 7588-2389
...@@ -30,22 +30,35 @@ ...@@ -30,22 +30,35 @@
;;; Code: ;;; 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. "*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
"\\([©\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\ "\\([©\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
\\|[Cc]opyright\\s *:?\\s *[©\251]\\)\ \\|[Cc]opyright\\s *:?\\s *[©\251]\\)\
\\s *\\([1-9][-0-9, ']*[0-9]+\\) " \\s *\\([1-9][-0-9, ']*[0-9]+\\) "
"*What your copyright notice looks like. "*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. "*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) (defconst copyright-current-year (substring (current-time-string) -4)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment