Mercurial > emacs
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)