;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:12:29 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/emacs-lisp/copyright.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`copyright.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'copyright nil "Update the copyright notice in current buffer." :group 'tools)
#@117 Don't try to update copyright beyond this position unless interactive.
A value of nil means to search whole buffer.
(custom-declare-variable 'copyright-limit '2000 '(#$ . 656) :group 'copyright :type '(choice (integer :tag "Limit") (const :tag "No limit")))
#@108 Non-nil means to search backwards from the end of the buffer for copyright.
This is useful for ChangeLogs.
(custom-declare-variable 'copyright-at-end-flag 'nil '(#$ . 921) :group 'copyright :type 'boolean :version "23.1")
#@89 What your copyright notice looks like.
The second \( \) construct must match the years.
(custom-declare-variable 'copyright-regexp '"\\(Â©\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\\|[Cc]opyright\\s *:?\\s *Â©\\)\\s *\\(?:[^0-9\n]*\\s *\\)?\\([1-9]\\([-0-9, ';/*%#\n	]\\|\\s<\\|\\s>\\)*[0-9]+\\)" '(#$ . 1149) :group 'copyright :type 'regexp)
#@257 Regexp matching the names which correspond to the user.
Only copyright lines where the name matches this regexp will be updated.
This allows you to avoid adding years to a copyright notice belonging to
someone else or to a group for which you do not work.
(custom-declare-variable 'copyright-names-regexp '"" '(#$ . 1511) :group 'copyright :type 'regexp)
#@91 Match additional copyright notice years.
The second \( \) construct must match the years.
(custom-declare-variable 'copyright-years-regexp '"\\(\\s *\\)\\([1-9]\\([-0-9, ';/*%#\n	]\\|\\s<\\|\\s>\\)*[0-9]+\\)" '(#$ . 1872) :group 'copyright :type 'regexp)
#@274 Non-nil if individual consecutive years should be replaced with a range.
For example: 2005, 2006, 2007, 2008 might be replaced with 2005-2008.
If you use ranges, you should add an explanatory note in a README file.
The function `copyright-fix-year' respects this variable.
(custom-declare-variable 'copyright-year-ranges 'nil '(#$ . 2134) :group 'copyright :type 'boolean :version "24.1")
#@114 If non-nil, ask user before changing copyright.
When this is `function', only ask when called non-interactively.
(custom-declare-variable 'copyright-query ''function '(#$ . 2530) :group 'copyright :type '(choice (const :tag "Do not ask") (const :tag "Ask unless interactive" function) (other :tag "Ask" t)))
#@60 String representing the current version of the GPL or nil.
(defconst copyright-current-gpl-version "3" (#$ . 2844))
#@75 The function `copyright-update' sets this to nil after updating a buffer.
(defvar copyright-update t (#$ . 2966))
#@39 String representing the current year.
(defvar copyright-current-year (byte-code "\300 \301\302O\207" [current-time-string -4 nil] 3) (#$ . 3086))
(defalias 'copyright-limit #[nil "\205	\203\f`Z\207`\\\207" [copyright-limit copyright-at-end-flag] 2])
(put 'copyright-limit 'byte-optimizer 'byte-compile-inline-expand)
#@69 Re-search forward or backward depending on `copyright-at-end-flag'.
(defalias 'copyright-re-search #[(regexp &optional bound noerror count) "\203\305	\n\f$\207\306	\n\f$\207" [copyright-at-end-flag regexp bound noerror count re-search-backward re-search-forward] 5 (#$ . 3415)])
#@70 Return point-min or point-max, depending on `copyright-at-end-flag'.
(defalias 'copyright-start-point #[nil "\203d\207e\207" [copyright-at-end-flag] 1 (#$ . 3705)])
#@65 Return non-nil if point is too far from the edge of the buffer.
(defalias 'copyright-offset-too-large-p #[nil "\205	\203`dZW\207`e\\V\207" [copyright-limit copyright-at-end-flag] 3 (#$ . 3879)])
#@218 Return non-nil if a copyright header suitable for updating is found.
The header must match `copyright-regexp' and `copyright-names-regexp', if set.
This function sets the match-data that `copyright-update-year' uses.
(defalias 'copyright-find-copyright #[nil "~\210\300 b\210\301\302\303\217\207" [copyright-start-point err (byte-code "\304\305\306	\307\260\n\205\203`\nZ\202`\n\\\310#\207" [copyright-regexp copyright-names-regexp copyright-limit copyright-at-end-flag copyright-re-search "\\(" "\\)\\([ 	]*\n\\)?.*\\(?:" "\\)" t] 6) ((error (message "Can't update copyright: %s" err) nil))] 3 (#$ . 4088)])
#@175 Possibly adjust the search performed by `copyright-find-copyright'.
If the years continue onto multiple lines that are marked as comments,
skips to the end of all the years.
(defalias 'copyright-find-end #[nil "\212g\305=\2053\306u\210\307\310w\210l\2053\2053\311 \312\216\306y\210\313!\205'\314\225b*\2053\n\315\313!*)\205H\306y\210\316!\210\316\317\320\n\"!\210\202\207" [comment-start-skip save-match-data-internal copyright-years-regexp regexp inhibit-changing-match-data 44 1 " 	" nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at 0 t re-search-forward format "\\(%s\\)"] 4 (#$ . 4713)])
(defalias 'copyright-update-year #[(replace noquery) "\304\225b\210\305 \210\306 \307\310O\311\225\312Z\311\225{\313\310O\230?\205\217	\204&\314\213\205\217\n\2032\315\316\211\310\311%\207\212\317\310x)\320!\320`\\`{!Z\321\246\304=\203g\322`\323#f\324=\204`\322`\313#f\324=\203g\325!\210\202\211\212\326\327\330 \316#\203w\331\304!\202x\332)c\210\322`\333#f\334=\203\211\334c\210\310Oc)\207" [copyright-current-year noquery replace size 1 copyright-find-end current-time-string -4 nil 3 2 -2 ((byte-code "\302p!\210\212\303\203\304	\305Q\202\306	\307Q!)\207" [replace copyright-current-year switch-to-buffer y-or-n-p "Replace copyright year(s) by " "? " "Add " " to copyright? "] 4)) replace-match t "0-9" string-to-number 100 + -1 45 delete-char re-search-backward "[0-9]\\( *, *\\)[0-9]" line-beginning-position match-string ", " -3 39] 6])
#@369 Update copyright notice to indicate the current year.
With prefix ARG, replace the years in the notice rather than adding
the current year after them.  If necessary, and
`copyright-current-gpl-version' is set, any copying permissions
following the copyright are updated as well.
If non-nil, INTERACTIVEP tells the function to behave as when it's called
interactively.
(defalias 'copyright-update #[(&optional arg interactivep) "\204	\205v\n?\206\n\306=\205	\212\214\307 \203m\310\f\"\210\311 b\210
\203m\312\313\205@\203<`Z\202@`\\\314#\203m\315\316\317!!\315
!W\203m\204e\320 \321\216\317\225b\210\322\213*\203m\323
\314\211\324\317%\210)\325\300!\210\324*\324\207" [copyright-update interactivep copyright-query noquery arg copyright-current-gpl-version function copyright-find-copyright copyright-update-year copyright-start-point copyright-re-search "the Free Software Foundation[,;\n].*either version \\([0-9]+\\)\\(?: of the License\\)?, or[ \n].*any later version" t string-to-number match-string 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) ((byte-code "\301p!\210\302\303\304\305\306!#!\207" [copyright-current-gpl-version switch-to-buffer y-or-n-p format "Replace GPL version %s with version %s? " match-string-no-properties 1] 5)) replace-match nil make-local-variable copyright-limit copyright-at-end-flag save-match-data-internal] 6 (#$ . 6261) "*P\nd"])
#@208 Convert 2 digit years to 4 digit years.
Uses heuristic: year >= 50 means 19xx, < 50 means 20xx.
If `copyright-year-ranges' (which see) is non-nil, also
independently replaces consecutive years with a range.
(defalias 'copyright-fix-years #[nil "\306 \203 \307\224\310 \311\224\312\211\211\211\211\211\211\211\"#$%&\313\225b\210\314 \210\315\307\225T!#&b\210\316\317#\320#\203\331%`\312\223\210\311\224b\210\321\322\311!!`Sf\211\203f
z\323U\204f
\324U\204f\325c\210\f\326W\203\207\f\327Y\203v\330\202w\331c\210\f\211\327Y\203\204\332\202\205\333\\%b\210'\203\320
\324=\203\235\312\211\202\320\203\255\fTU\203\255`\202\320\n\203\314\203\314\nV\203\314b\210	|\210\334\335\"c\210%b\210\f`\f%\"\2025\"\203'\203\376\n\203\376\203\376\nV\203\376b\210	|\210\334\335\"c\210\"b\210\336\312x\210\214$`}\210\337ed\"\210)#\312\211\223\210%\312\211\223.\207\340\341!\207" [range-end range-start first-year prev-year year sep copyright-find-copyright 3 make-marker 0 nil 1 copyright-find-end copy-marker re-search-forward "[0-9]+" t string-to-number match-string 32 45 " " 100 50 "19" "20" 1900 2000 format "-%d" " 	" fill-region message "No copyright message" last e copystart p s copyright-year-ranges] 12 (#$ . 7722) nil])
(put 'copyright 'no-self-insert t)
#@558 Insert a copyright by $ORGANIZATION notice at cursor.

This is a skeleton command (see `skeleton-insert').
Normally the skeleton text is inserted at point, with nothing "inside".
If there is a highlighted region, the skeleton text is wrapped
around the region text.

A prefix argument ARG says to wrap the skeleton around the next ARG words.
A prefix argument of -1 says to wrap around region, even if not highlighted.
A prefix argument of zero says to wrap around zero words---that is, nothing.
This is a way of overriding the use of a highlighted region.
(defalias 'copyright #[(&optional str arg) "\302\303	#\207" [str arg skeleton-proxy-new ("Company: " comment-start "Copyright (C) " `(substring (current-time-string) -4) " by " (or (getenv "ORGANIZATION") str) '(if (copyright-offset-too-large-p) (message "Copyright extends beyond `copyright-limit' and won't be updated automatically.")) comment-end n)] 4 (#$ . 9049) "*P\nP"])
#@122 Update copyright notice for all files in DIRECTORY matching MATCH.
If FIX is non-nil, run `copyright-fix-years' instead.
(defalias 'copyright-update-directory #[(directory match &optional fix) "\306\307	\310$\310\211\205D@\311\n!\204<\312\313\n\"\210\314\n!\210\307\315\310\2031\316 \210\2024\317 \210+\320 \210\321p!\210A\211\204
\310*\207" [directory match file --dolist-tail-- copyright-query enable-local-variables directory-files t nil file-directory-p message "Updating file `%s'" find-file :safe copyright-fix-years copyright-update save-buffer kill-buffer inhibit-read-only fix] 6 (#$ . 9992) "DDirectory: \nMFilenames matching (regexp): "])
(provide 'copyright)
