diff options
author | Andreas Schwab <[email protected]> | 1998-04-01 10:44:40 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 1998-04-01 10:44:40 +0000 |
commit | 3f251fcd3b47a73f14fa0ba17b47a7694b9de436 (patch) | |
tree | 11f752b40b6ef1bf143260dc724be6564c9317fe /lisp/emacs-lisp/copyright.el | |
parent | 04d807e6ceccc7a1e8c0ab5e8914183bfe6dc5d8 (diff) |
Customized.
Diffstat (limited to 'lisp/emacs-lisp/copyright.el')
-rw-r--r-- | lisp/emacs-lisp/copyright.el | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index c876d4c2fc..923e4727a4 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -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: [email protected] ;; 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 "\\([��\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\ \\|[Cc]opyright\\s *:?\\s *[��\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) |