/[emacs]/emacs/lisp/emacs-lisp/copyright.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/copyright.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by monnier, Sat Jun 14 20:11:12 2003 UTC revision 1.41.2.1 by handa, Mon Sep 8 12:53:39 2003 UTC
# Line 42  A value of nil means to search whole buf Line 42  A value of nil means to search whole buf
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."
# Line 191  version \\([0-9]+\\), or (at" Line 186  version \\([0-9]+\\), or (at"
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

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.41.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26