changeset 21328:d5ffccfcea21

Customized.
author Andreas Schwab <schwab@suse.de>
date Wed, 01 Apr 1998 10:44:40 +0000
parents 01870b9b4f2a
children 58dc75416c30
files lisp/emacs-lisp/copyright.el
diffstat 1 files changed, 20 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/copyright.el	Wed Apr 01 03:44:50 1998 +0000
+++ b/lisp/emacs-lisp/copyright.el	Wed Apr 01 10:44:40 1998 +0000
@@ -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
   "\\([\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)