42 |
:type '(choice (integer :tag "Limit") |
:type '(choice (integer :tag "Limit") |
43 |
(const :tag "No limit"))) |
(const :tag "No limit"))) |
44 |
|
|
|
;; Would it be cleaner to specify Latin-1 coding for this file, |
|
|
;; and not use both unibyte and multibyte copyright symbol characters? |
|
|
|
|
|
;; The character classes include the unibyte (C) sign, |
|
|
;; the Latin-1 version, and the Latin-9 version. |
|
45 |
(defcustom copyright-regexp |
(defcustom copyright-regexp |
46 |
"\\([]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ |
"\\(©\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ |
47 |
\\|[Cc]opyright\\s *:?\\s *[]\\)\ |
\\|[Cc]opyright\\s *:?\\s *©\\)\ |
48 |
\\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" |
\\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" |
49 |
"*What your copyright notice looks like. |
"*What your copyright notice looks like. |
50 |
The second \\( \\) construct must match the years." |
The second \\( \\) construct must match the years." |
186 |
|
|
187 |
;; For the copyright sign: |
;; For the copyright sign: |
188 |
;; Local Variables: |
;; Local Variables: |
189 |
;; coding: emacs-mule |
;; coding: utf-8 |
190 |
;; End: |
;; End: |
191 |
|
|
192 |
;;; copyright.el ends here |
;;; copyright.el ends here |