;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [require magit custom-declare-variable magit-patch-save-arguments funcall function #[0 "\300\207" [(exclude "--stat")] 1] "Control arguments used by the command `magit-patch-save'.\n\n`magit-patch-save' (which see) saves a diff for the changes\nshown in the current buffer in a patch file. It may use the\nsame arguments as used in the buffer or a subset thereof, or\na constant list of arguments, depending on this option and\nthe prefix argument." :package-version (magit . "2.12.0") :group magit-diff :type (choice (const :tag "use buffer arguments" buffer) (cons :tag "use buffer arguments except" (const :format "" exclude) (repeat :format "%v%i\n" (string :tag "Argument"))) (repeat :tag "use constant arguments" (string :tag "Argument")))] 10) (defalias 'magit-patch #[0 "\300\301!\207" [transient-setup magit-patch] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312#\207" [put magit-patch interactive-only t function-documentation "Create or apply patches." transient--prefix transient-prefix :command transient--layout ([1 transient-column (:description "Actions") ((1 transient-suffix (:key "c" :description "Create patches" :command magit-patch-create)) (1 transient-suffix (:key "a" :description "Apply patch" :command magit-patch-apply)) (1 transient-suffix (:key "s" :description "Save diff as patch" :command magit-patch-save)) (1 transient-suffix (:key "r" :description "Request pull" :command magit-request-pull)))])] 6) #@25 (fn RANGE ARGS FILES) (defalias 'magit-patch-create #[771 "\204\300\301!\207\302\303\304%\210\305\235\205L\306 \307\310\"\216\311\312\313\314\"\211\205,\315\316\"\262\317P\320 \313\321\"\211\203B\312\"\202C\262\262\"!)\262\207" [transient-setup magit-patch-create magit-run-git "format-patch" "--" "--cover-letter" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] find-file expand-file-name transient-arg-value "--reroll-count=" format "v%s-" "0000-cover-letter.patch" magit-toplevel "--output-directory="] 12 (#$ . 1673) (byte-code "\302=\204 \303\211\211E\207\304\305\306\"\211\203\307!@\310@Q\202<\311\312!\313\303\306\314#)\266\203\2035\211\202:\315\316\211#\262\262\317\302!\320\321\"\322\323\"AD\262B\207" [transient-current-command inhibit-changing-match-data magit-patch-create nil magit-region-values commit t last "^.." magit-read-range-or-commit "Format range or commit" "\\.\\." string-match format "%s~..%s" transient-args -filter stringp assoc "--"] 9)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\300\301\315\316#\207" [put magit-patch-create interactive-only t function-documentation "Create patches for the commits in RANGE.\nWhen a single commit is given for RANGE, create a patch for the\nchanges introduced by that commit (unlike 'git format-patch'\nwhich creates patches for all commits that are reachable from\n`HEAD' but not from the specified commit)." transient--prefix transient-prefix :command :man-page "git-format-patch" :incompatible (("--subject-prefix=" "--rfc")) transient--layout ([1 transient-column (:description "Mail arguments") ((6 transient-suffix (:command magit-format-patch:--in-reply-to)) (6 transient-suffix (:command magit-format-patch:--thread)) (6 transient-suffix (:command magit-format-patch:--from)) (6 transient-suffix (:command magit-format-patch:--to)) (6 transient-suffix (:command magit-format-patch:--cc)))] [1 transient-column (:description "Patch arguments") ((1 transient-suffix (:command magit-format-patch:--base)) (1 transient-suffix (:command magit-format-patch:--reroll-count)) (5 transient-suffix (:command magit-format-patch:--interdiff)) (1 transient-suffix (:command magit-format-patch:--range-diff)) (1 transient-suffix (:command magit-format-patch:--subject-prefix)) (1 transient-switch (:key "C-m r " :description "RFC subject prefix" :argument "--rfc" :command transient:magit-patch-create:--rfc)) (1 transient-switch (:key "C-m l " :description "Add cover letter" :argument "--cover-letter" :command transient:magit-patch-create:--cover-letter)) (5 transient-suffix (:command magit-format-patch:--cover-from-description)) (5 transient-suffix (:command magit-format-patch:--notes)) (1 transient-suffix (:command magit-format-patch:--output-directory)))] [1 transient-column (:description "Diff arguments") ((1 transient-suffix (:command magit-diff:-U)) (1 transient-suffix (:command magit-diff:-M)) (1 transient-suffix (:command magit-diff:-C)) (1 transient-suffix (:command magit-diff:--diff-algorithm)) (1 transient-suffix (:command magit:--)) (7 transient-switch (:key "-b" :description "Ignore whitespace changes" :shortarg "-b" :argument "--ignore-space-change" :command transient:magit-patch-create:--ignore-space-change)) (7 transient-switch (:key "-w" :description "Ignore all whitespace" :shortarg "-w" :argument "--ignore-all-space" :command transient:magit-patch-create:--ignore-all-space)))] [1 transient-column (:description "Actions") ((1 transient-suffix (:key "c" :description "Create patches" :command magit-patch-create)))])] 10) (defalias 'magit-format-patch:--in-reply-to #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-format-patch:--in-reply-to interactive-only t function-documentation nil transient--suffix transient-option :command :description "In reply to" :key "C-m C-r" :argument "--in-reply-to="] 12) (defalias 'magit-format-patch:--thread #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--thread interactive-only t function-documentation nil transient--suffix transient-option :command :description "Thread style" :key "C-m s " :argument "--thread=" :reader magit-format-patch-select-thread-style] 14) #@21 (fn &rest IGNORE) (defalias 'magit-format-patch-select-thread-style #[128 "\300\301\302\303\304\305D\306#\307Q\310\"\211\311\267\202\312\202\313\202\314\262\315\316!\210\207" [read-char-choice "Thread style " mapconcat identity "[d]eep" "[s]hallow" ", " ", or [C-g] to abort " (100 115) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (100 19 115 23)) "deep" "shallow" nil message ""] 7 (#$ . 6364)]) (defalias 'magit-format-patch:--base #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--base interactive-only t function-documentation nil transient--suffix transient-option :command :description "Insert base commit" :key "C-m b " :argument "--base=" :reader magit-format-patch-select-base] 14) #@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-format-patch-select-base #[771 "\300\301\302 B\303\211\301&\206\304\305!\207" [magit-completing-read "auto" magit-list-refnames nil user-error "Nothing selected"] 11 (#$ . 7342)]) (defalias 'magit-format-patch:--reroll-count #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320\321\322&\f#\207" [put magit-format-patch:--reroll-count interactive-only t function-documentation nil transient--suffix transient-option :command :description "Reroll count" :key "C-m v " :shortarg "-v" :argument "--reroll-count=" :reader transient-read-number-N+] 16) (defalias 'magit-format-patch:--interdiff #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--interdiff interactive-only t function-documentation nil transient--suffix transient-option :command :description "Insert interdiff" :key "C-m d i" :argument "--interdiff=" :reader magit-transient-read-revision] 14) (defalias 'magit-format-patch:--range-diff #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--range-diff interactive-only t function-documentation nil transient--suffix transient-option :command :description "Insert range-diff" :key "C-m d r" :argument "--range-diff=" :reader magit-format-patch-select-range-diff] 14) #@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-format-patch-select-range-diff #[771 "\300!\207" [magit-read-range-or-commit] 5 (#$ . 9234)]) (defalias 'magit-format-patch:--subject-prefix #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-format-patch:--subject-prefix interactive-only t function-documentation nil transient--suffix transient-option :command :description "Subject Prefix" :key "C-m p " :argument "--subject-prefix="] 12) (defalias 'magit-format-patch:--cover-from-description #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--cover-from-description interactive-only t function-documentation nil transient--suffix transient-option :command :description "Use branch description" :key "C-m D " :argument "--cover-from-description=" :reader magit-format-patch-select-description-mode] 14) #@21 (fn &rest IGNORE) (defalias 'magit-format-patch-select-description-mode #[128 "\300\301\302\303\304\305\306\307F\310#\311Q\312\"\211\313\267\202%\314\202&\315\202&\316\202&\317\202&\320\262\321\322!\210\207" [read-char-choice "Use description as " mapconcat identity "[m]essage" "[s]ubject" "[a]uto" "[n]othing" ", " ", or [C-g] to abort " (109 115 97 110) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (109 21 115 25 97 29 110 33)) "message" "subject" "auto" "none" nil message ""] 9 (#$ . 10486)]) (defalias 'magit-format-patch:--notes #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--notes interactive-only t function-documentation nil transient--suffix transient-option :command :description "Insert commentary from notes" :key "C-m n " :argument "--notes=" :reader magit-notes-read-ref] 14) (defalias 'magit-format-patch:--from #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--from interactive-only t function-documentation nil transient--suffix transient-option :command :description "From" :key "C-m C-f" :argument "--from=" :reader magit-transient-read-person] 14) (defalias 'magit-format-patch:--to #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--to interactive-only t function-documentation nil transient--suffix transient-option :command :description "To" :key "C-m C-t" :argument "--to=" :reader magit-transient-read-person] 14) (defalias 'magit-format-patch:--cc #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-format-patch:--cc interactive-only t function-documentation nil transient--suffix transient-option :command :description "CC" :key "C-m C-c" :argument "--cc=" :reader magit-transient-read-person] 14) (defalias 'magit-format-patch:--output-directory #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320\321\322&\f#\207" [put magit-format-patch:--output-directory interactive-only t function-documentation nil transient--suffix transient-option :command :description "Output directory" :key "C-m o " :shortarg "-o" :argument "--output-directory=" :reader transient-read-existing-directory] 16) #@24 (fn FILE &rest ARGS) (defalias 'magit-patch-apply #[385 "\204\300\301!\207\302\303\304\305!$\207" [transient-setup magit-patch-apply magit-run-git "apply" "--" magit-convert-filename-for-git] 8 (#$ . 13660) (byte-code "\302=\204 \303C\207\304\305\306 \303\211\307 \211\205\310!\262%!\311\302!D\207" [transient-current-command default-directory magit-patch-apply nil expand-file-name read-file-name "Apply patch: " magit-file-at-point file-relative-name transient-args] 9)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-patch-apply interactive-only t function-documentation "Apply the patch file FILE." transient--prefix transient-prefix :command :man-page "git-apply" transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-i" :description "Also apply to index" :argument "--index" :command transient:magit-patch-apply:--index)) (1 transient-switch (:key "-c" :description "Only apply to index" :argument "--cached" :command transient:magit-patch-apply:--cached)) (1 transient-switch (:key "-3" :description "Fall back on 3way merge" :shortarg "-3" :argument "--3way" :command transient:magit-patch-apply:--3way)))] [1 transient-column (:description "Actions") ((1 transient-suffix (:key "a" :description "Apply patch" :command magit-patch-apply)))])] 8) #@874 Write current diff into patch FILE. What arguments are used to create the patch depends on the value of `magit-patch-save-arguments' and whether a prefix argument is used. If the value is the symbol `buffer', then use the same arguments as the buffer. With a prefix argument use no arguments. If the value is a list beginning with the symbol `exclude', then use the same arguments as the buffer except for those matched by entries in the cdr of the list. The comparison is done using `string-prefix-p'. With a prefix argument use the same arguments as the buffer. If the value is a list of strings (including the empty list), then use those arguments. With a prefix argument use the same arguments as the buffer. Of course the arguments that are required to actually show the same differences as those shown in the buffer are always used. (fn FILE &optional ARG) (defalias 'magit-patch-save #[513 "\305\306!\204\n\307\310!\210 \n \f\311=\203\203:\312\262\202:\f\242\313=\2033\204:\314\fA\"\262\202:\204:\f\262\315\316\317\"\320\321\"\216r\211q\210\322\323\324\325 &\210)r\211q\210\326\312\211\312\327%\210*\266\330 \207" [magit-buffer-range magit-buffer-typearg magit-buffer-diff-args magit-buffer-diff-files magit-patch-save-arguments derived-mode-p magit-diff-mode user-error "Only diff buffers can be saved as patches" buffer nil exclude -difference generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] magit-git-insert "diff" "-p" "--" write-region 0 magit-refresh] 16 (#$ . 15056) (byte-code "\302\303\" D\207" [default-directory current-prefix-arg read-file-name "Write patch file: "] 3)]) #@318 Request upstream to pull from your public repository. URL is the url of your publicly accessible repository. START is a commit that already is in the upstream repository. END is the last commit, usually a branch name, which upstream is asked to pull. START has to be reachable from that commit. (fn URL START END) (defalias 'magit-request-pull #[771 "\301 \210\302 \210\303\304$\210\305\306!\207" [default-directory compose-mail message-goto-body magit-git-insert "request-pull" set-buffer-modified-p nil] 8 (#$ . 16763) (byte-code "\300\301\302\303!\304#\305\306\307 \"\305\310!E\207" [magit-get "remote" magit-read-remote "Remote" "url" magit-read-branch-or-commit "Start" magit-get-upstream-branch "End"] 4)]) (provide 'magit-patch)