Mercurial > emacs

comparison lisp/emacs-lisp/copyright.el @ 52286:2c851f739011

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment.
author Dave Love <fx@gnu.org>
date Wed, 20 Aug 2003 18:46:55 +0000
parents 09736ff1baa6
children 695cf19ef79e
comparison
equal deleted inserted replaced
52285:6c91b4a8b9af 52286:2c851f739011
40 A value of nil means to search whole buffer." 40 A value of nil means to search whole buffer."
41 :group 'copyright 41 :group 'copyright
42 :type '(choice (integer :tag "Limit") 42 :type '(choice (integer :tag "Limit")
43 (const :tag "No limit"))) 43 (const :tag "No limit")))
44 44
45 ;; Would it be cleaner to specify Latin-1 coding for this file, 45 ;; The character classes have the Latin-1 version and the Latin-9
46 ;; and not use both unibyte and multibyte copyright symbol characters? 46 ;; version, which is probably enough.
47
48 ;; The character classes include the unibyte (C) sign,
49 ;; the Latin-1 version, and the Latin-9 version.
50 (defcustom copyright-regexp 47 (defcustom copyright-regexp
51 "\\([]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ 48 "\\([]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\
52 \\|[Cc]opyright\\s *:?\\s *[]\\)\ 49 \\|[Cc]opyright\\s *:?\\s *[]\\)\
53 \\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" 50 \\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)"
54 "*What your copyright notice looks like. 51 "*What your copyright notice looks like.