;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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" (#$ . 2414))#@75 The function `copyright-update' sets this to nil after updating a buffer. (defvar copyright-update t (#$ . 2535))#@39 String representing the current year. (defvar copyright-current-year (format-time-string "%Y") (#$ . 2654)) (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 (#$ . 3017)])#@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 (#$ . 3284)])#@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 (#$ . 3459)])#@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#\2620\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 (#$ . 3665)])#@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\302=\2056\303u\210\304\305w\210l\2056\2056\306 \307\310\"\216\303y\210\311!\205)\312\225b)\262\2056 \311\313\"\262)\205K\303y\210\314!\210\314\315\316 \"!\210\202\207" [comment-start-skip copyright-years-regexp 44 1 " " nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 0 t re-search-forward format "\\(%s\\)"] 4 (#$ . 4340)])#@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 (#$ . 4942)])#@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\211 ?\206 \305=\205\211\212\214\306 \203\307\"\210\310 b\210\n\203\311\312 \205;\f\2038` Z\202;` \\\313#\203\314\315\316!!\314\n!W\203\211\204w\317 \320\321\"\216\316\225b\210\322 \320\323\"\216\324p!\210\325\326\327\330\316!\n#!*\262\262\203\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 t] 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 (#$ . 5892) "*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\321 `\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\307\327>\203\221\305\262\305\262\202\307\203\242TU\203\242`\262\202\307\203\301\203\301V\203\301\211b\210|\210\330\331\"c\210 b\210\262`\262\262 \262\202%\203 \203\365\203\365\203\365V\203\365\211b\210|\210\330\331\"c\210b\210\332\305x\210\214`}\210\333ed\")\210\305\211\223\210 \305\211\223\207\334\335!\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 "-%d" " " fill-region message "No copyright message"] 15 (#$ . 7353) 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 "\300\242\203 \302\301!\207\303\301!\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 (#$ . 8627) "*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!\210A\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 (#$ . 9853) "DDirectory: \nMFilenames matching (regexp): "]) (provide 'copyright)