;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321\322\323&\210\306\324\310\311\325DD\326\314\327%\210\306\330\310\311\331DD\332\314\327%\210\306\333\310\311\334DD\335\314\327%\210\306\336\310\311\337DD\340\314\321\322\341&\210\306\342\310\311\343DD\344\314\345%\207" [custom-declare-group copyright nil "Update the copyright notice in current buffer." :group tools custom-declare-variable copyright-limit funcall function #[0 "\300\207" [2000] 1 #1=""] "Don't try to update copyright beyond this position unless interactive.\nA value of nil means to search whole buffer." :type (choice (integer :tag "Limit") (const :tag "No limit")) copyright-at-end-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means to search backwards from the end of the buffer for copyright.\nThis is useful for ChangeLogs." boolean :version "23.1" copyright-regexp #[0 "\300\207" ["\\(©\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\\|[Cc]opyright\\s *:?\\s *©\\)\\s *[^0-9\n]*\\s *\\([1-9]\\([-0-9, ';/*%#\n	–]\\|\\s<\\|\\s>\\)*[0-9]+\\)"] 1 #1#] "What your copyright notice looks like.\nThe second \\( \\) construct must match the years." regexp copyright-names-regexp #[0 "\300\207" [#1#] 1 #1#] "Regexp matching the names which correspond to the user.\nOnly copyright lines where the name matches this regexp will be updated.\nThis allows you to avoid adding years to a copyright notice belonging to\nsomeone else or to a group for which you do not work." copyright-years-regexp #[0 "\300\207" ["\\(\\s *\\)\\([1-9]\\([-0-9, ';/*%#\n	–]\\|\\s<\\|\\s>\\)*[0-9]+\\)"] 1 #1#] "Match additional copyright notice years.\nThe second \\( \\) construct must match the years." copyright-year-ranges #[0 "\300\207" [nil] 1 #1#] "Non-nil if individual consecutive years should be replaced with a range.\nFor example: 2005, 2006, 2007, 2008 might be replaced with 2005-2008.\nIf you use ranges, you should add an explanatory note in a README file.\nThe function `copyright-fix-years' respects this variable." "24.1" copyright-query #[0 "\300\207" [function] 1 #1#] "If non-nil, ask user before changing copyright.\nWhen this is `function', only ask when called non-interactively." (choice (const :tag "Do not ask") (const :tag "Ask unless interactive" function) (other :tag "Ask" t))] 8)
#@60 String representing the current version of the GPL or nil.
(defconst copyright-current-gpl-version "3" (#$ . 2415))
#@75 The function `copyright-update' sets this to nil after updating a buffer.
(defvar copyright-update t (#$ . 2537))
#@39 String representing the current year.
(defvar copyright-current-year (format-time-string "%Y") (#$ . 2657))
(defalias 'copyright-limit #[0 "\205	\203\f`Z\207`\\\207" [copyright-limit copyright-at-end-flag] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put copyright-limit speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@112 Re-search forward or backward depending on `copyright-at-end-flag'.

(fn REGEXP &optional BOUND NOERROR COUNT)
(defalias 'copyright-re-search #[1025 "\203\301$\207\302$\207" [copyright-at-end-flag re-search-backward re-search-forward] 9 (#$ . 3021)])
#@74 Return `point-min' or `point-max', depending on `copyright-at-end-flag'.
(defalias 'copyright-start-point #[0 "\203d\207e\207" [copyright-at-end-flag] 1 (#$ . 3289)])
#@65 Return non-nil if point is too far from the edge of the buffer.
(defalias 'copyright-offset-too-large-p #[0 "\205	\203`dZW\207`e\\V\207" [copyright-limit copyright-at-end-flag] 3 (#$ . 3465)])
#@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 #[0 "~\210\304 b\210\3051A\306\307	\310\260\311
\n\205$\203!`\nZ\202$`\n\\\312#\205=\2034\313\225b\210\2028\313\224b\210\311
\314\312#\262
0\207\315\316\"\210\314\207" [copyright-regexp copyright-names-regexp copyright-limit copyright-at-end-flag copyright-start-point (debug error) "\\(" "\\)\\([ 	]*\n\\)?.*\\(?:" "\\)" copyright-re-search t 0 nil message "Can't update copyright: %s"] 5 (#$ . 3672)])
#@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 #[0 "\212g\303=\2058\304u\210\305\306w\210l\2058\2058\307 \310\311\"\216\304y\210\312!\205)\313\225b)\262
\2058	\314\312
!)\262
)\205M\304y\210\315!\210\315\316\317	\"!\210\202\207" [comment-start-skip copyright-years-regexp inhibit-changing-match-data 44 1 " 	" nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at 0 t re-search-forward format "\\(%s\\)"] 4 (#$ . 4348)])
#@24 

(fn REPLACE NOQUERY)
(defalias 'copyright-update-year #[514 "\301\225b\210\302 \210\303\304!\305\225\306Z\305\225{\307\310O\230?\205\252\211\204B\311 \312\313\"\216\212\314p!\210\315\2037\316\317Q\202;\320\321Q!*\262
\205\252
\203N\322\323\211\310\305%\207\212\324\310x)\325!\325`\\`{!Z\326\246\301=\203\201`
\\Sf\327>\204z`
\\\307\\f\330>\203\201\331
!\210\202\243\212\332\333\334 \323#\203\221\335\301!\202\222\336)c\210`
\\\337\\f\340=\203\243\340c\210
\310Oc\262
\207" [copyright-current-year 1 copyright-find-end format-time-string "%Y" 3 2 -2 nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer y-or-n-p "Replace copyright year(s) by " "? " "Add " " to copyright? " replace-match t "0-9" string-to-number 100 (45 8211) (45 8211) delete-char re-search-backward "[0-9]\\( *, *\\)[0-9]" line-beginning-position match-string ", " -3 39] 8 (#$ . 4988)])
#@402 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.

(fn &optional ARG INTERACTIVEP)
(defalias 'copyright-update #[512 "\204\211\205\212	?\206	\305=\205\211\212\214\306 \203\200\307\"\210\310 b\210\n\203\200\311\312\205;\f\2038`Z\202;`\\\313#\203\200\314\315\316!!\314\n!W\203\200\211\204x\317 \320\321\"\216\316\225b\210\322 \320\323\"\216\324p!\210\325\326\327\330\316!\n#!)\262
)\262
\203\200\331\n\313\211\332\316%\210)\333\300!\210\332)\210\332\207" [copyright-update copyright-query copyright-current-gpl-version copyright-limit copyright-at-end-flag 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 make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer y-or-n-p format "Replace GPL version %s with version %s? " match-string-no-properties replace-match nil make-local-variable] 10 (#$ . 5939) "*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 #[0 "\301 \203
\302\224\303 \304\224\305\211\211\211\211\211\211\211\306\225b\210\307 \210\310\302\225T!\262\nb\210\311\312	\313#\203\324	`\305\223\210\304\224b\210\314\315\304!!\262`Sf\211\262\203Xz\316U\204X\317>\204X\320c\210\321W\203z\322Y\203h\323\202i\324c\210\211\322Y\203v\325\202w\326\\\262	b\210\203\312\327>\203\221\305\262\305\262\202\312\203\242TU\203\242`\262
\202\312\203\304\203\304V\203\304\211b\210

|\210\330\331#c\210	b\210\262`\262\262	\262\202%\203\f
\203\370\203\370\203\370V\203\370\211b\210

|\210\330\332\"c\210b\210\333\305x\210\214`}\210\334ed\"\210)\305\211\223\210	\305\211\223\207\335\336!\207" [copyright-year-ranges 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 8211) " " 100 50 "19" "20" 1900 2000 (45 8211) format "%c%d" "-%d" " 	" fill-region message "No copyright message"] 15 (#$ . 7425) nil])
(put 'copyright 'no-self-insert t)
#@582 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.

(fn &optional STR ARG)
(defalias 'copyright #[512 "\304 \305\211\305C
\306\307#\216\310!\210\311\312#
\313\240\210,\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\301\242\203	\302\300!\207\303\300!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ("Company: " comment-start "Copyright (C) " `(format-time-string "%Y") " 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) t] 11 (#$ . 8710) "*P\nP"])
#@158 Update copyright notice for all files in DIRECTORY matching MATCH.
If FIX is non-nil, run `copyright-fix-years' instead.

(fn DIRECTORY MATCH &optional FIX)
(defalias 'copyright-update-directory #[770 "\303\304\305$\211\205>\211@\306
!\2047\307\310\"\210\311\305\312
!\210*\304\203,\313 \210\202/\314 \210)\315 \210\316p!\210
A\266\202\202\207" [enable-local-eval enable-local-variables inhibit-read-only directory-files t nil file-directory-p message "Updating file `%s'" :safe find-file copyright-fix-years copyright-update save-buffer kill-buffer] 8 (#$ . 9937) "DDirectory: \nMFilenames matching (regexp): "])
(provide 'copyright)