;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; 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 #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 #1# 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\311\301\312\313\314\315D\312\316\317\320\321\322\314\323\310\324\257\320\321\325\314\326\310\327\257D#\312\316\317\320\321\330\314\331\310\332\257\320\321\333\314\334\310\335\257D#\312\316\317\320\321\336\314\337\310\340\257C#E#C\"\207" [put magit-patch interactive-only t function-documentation "Create or apply patches." transient--prefix transient-prefix :command transient--set-layout vector transient-columns :description "Actions" transient-column nil transient-suffix :key "c" "Create patches" magit-patch-create "w" "Apply patches" magit-am "a" "Apply plain patch" magit-patch-apply "s" "Save diff as patch" magit-patch-save "r" "Request pull" magit-request-pull] 17)#@25 (fn RANGE ARGS FILES) (defalias 'magit-patch-create #[771 "\204\300\301!\207\302\303\304%\210\305\235\205O\306 \307\310\"\216\311\312\313\314\"\211\205,\315\316\"\262\317P\320 \321\313\322 \"\211\262\203E\312\"\202F\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 t] 3] find-file expand-file-name transient-arg-value "--reroll-count=" format "v%s-" "0000-cover-letter.patch" magit-toplevel nil "--output-directory="] 12 (#$ . 1777) (byte-code "\301=\204 \302\211\211E\207\3032N\304\305!\211\2033\306\303\307\310\"\203*\311!@\312@Q\2021\313\314@@#\"\210\210\315\316!\211\205K\317\320\"\203F\211\202K\313\314\211#\2620\321\301!\322\323\"\324\325\"AD\262B\207" [transient-current-command magit-patch-create nil #1=#::cond-let2416 magit-region-values commit throw length> 1 last "^.." format "%s^..%s" magit-read-range-or-commit "Create patches for range or commit" string-search ".." transient-args seq-filter stringp assoc "--"] 7)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\315\301\316\317\320\321D\322\323\324\310\325\257\322\323\324\310\326\257\322\323\324\310\327\257\322\323\324\310\330\257\322\323\324\310\331\257\257#\316\317\320\332D\322\310\333E\322\310\334E\322\323\335\310\336\257\322\310\337E\322\310\340E\341\342\343\320\344\345\346\310\300\347\302\303#\210\300\347\350\351#\210\352\347\353\"\210\347\257 \341\342\354\320\355\345\356\310\300\357\302\303#\210\300\357\350\351#\210\352\357\353\"\210\357\257 \322\323\335\310\360\257\322\323\335\310\361\257\322\310\362E\257\n#\316\317\320\363D\322\310\364E\322\310\365E\322\310\366E\322\310\367E\322\310\370E\341\323\371\342\372\320\373\374\372\345\375\310\300\376\302\303#\210\300\376\350\351#\210\352\376\353\"\210\376\257 \341\323\371\342\377\320\201@\374\377\345\201A\310\300\201B\302\303#\210\300\201B\350\351#\210\352\201B\353\"\210\201B\257 \257#\316\317\320\201CD\322\342\201D\320\201E\310\301\257C#F\"\210\352\325\353\"\210\300\325\302\303#\210\300\325\350\351#\210\300\325\304\201F#\210\300\325\201G\201H\310\325\320\201I\342\201J\345\201K&#\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--set-layout vector transient-column :description "Mail arguments" transient-suffix :level 6 magit-format-patch:--in-reply-to magit-format-patch:--thread magit-format-patch:--from magit-format-patch:--to magit-format-patch:--cc "Patch arguments" magit-format-patch:--base magit-format-patch:--reroll-count 5 magit-format-patch:--interdiff magit-format-patch:--range-diff magit-format-patch:--subject-prefix transient-switch :key "C-m r " "RFC subject prefix" :argument "--rfc" transient:magit-patch-create:--rfc completion-predicate transient--suffix-only defalias transient--default-infix-command "C-m l " "Add cover letter" "--cover-letter" transient:magit-patch-create:--cover-letter magit-format-patch:--cover-from-description magit-format-patch:--notes magit-format-patch:--output-directory "Diff arguments" magit-diff:-U magit-diff:-M magit-diff:-C magit-diff:--diff-algorithm magit:-- 7 "-b" "Ignore whitespace changes" :shortarg "--ignore-space-change" transient:magit-patch-create:--ignore-space-change "-w" "Ignore all whitespace" "--ignore-all-space" transient:magit-patch-create:--ignore-all-space "Actions" "c" "Create patches" nil transient--suffix transient-option "In reply to" "C-m C-r" "--in-reply-to="] 29) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\207" [defalias magit-format-patch:--thread transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only 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\302D\303C\244\304\305!\306\307\310#\266\202\311\312!@\313\260\262\314\"\211\315\267\202-\316\202.\317\202.\320\262\321\322!\210\207" [read-char-choice "[d]eep" "[s]hallow" "[C-g] to abort" "Thread style " butlast ", " mapconcat identity ", or " last " " (100 115) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (100 37 115 41)) "deep" "shallow" nil message ""] 10 (#$ . 6244)]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\207" [defalias magit-format-patch:--base transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only 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\304\301&\207" [magit-completing-read "auto" magit-list-refnames nil any] 11 (#$ . 7240)]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324\325\326&\f#\210\300\327\302\"\210\303\327\304\305#\210\303\327\306\307#\210\303\327\310\311#\210\303\327\312\313\314\327\315\330\317\331\323\332\325\333&\n#\210\300\334\302\"\210\303\334\304\305#\210\303\334\306\307#\210\303\334\310\311#\210\303\334\312\313\314\334\315\335\317\336\323\337\325\340&\n#\207" [defalias magit-format-patch:--reroll-count transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only 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+ magit-format-patch:--interdiff "Insert interdiff" "C-m d i" "--interdiff=" magit-transient-read-revision magit-format-patch:--range-diff "Insert range-diff" "C-m d r" "--range-diff=" magit-format-patch-select-range-diff] 16)#@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-format-patch-select-range-diff #[771 "\300!\207" [magit-read-range-or-commit] 5 (#$ . 8461)]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322&#\210\300\323\302\"\210\303\323\304\305#\210\303\323\306\307#\210\303\323\310\311#\210\303\323\312\313\314\323\315\324\317\325\321\326\327\330&\n#\207" [defalias magit-format-patch:--subject-prefix transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Subject Prefix" :key "C-m p " :argument "--subject-prefix=" magit-format-patch:--cover-from-description "Use branch description" "C-m D " "--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\304F\305C\244\306\307!\310\311\312#\266\202\313\314!@\315\260\262\316\"\211\317\267\2027\320\2028\321\2028\322\2028\323\2028\324\262\325\326!\210\207" [read-char-choice "[m]essage" "[s]ubject" "[a]uto" "[n]othing" "[C-g] to abort" "Use description as " butlast ", " mapconcat identity ", or " last " " (109 115 97 110) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (109 39 115 43 97 47 110 51)) "message" "subject" "auto" "none" nil message ""] 10 (#$ . 9364)]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\210\300\325\302\"\210\303\325\304\305#\210\303\325\306\307#\210\303\325\310\311#\210\303\325\312\313\314\325\315\326\317\327\321\330\323\331&\n#\210\300\332\302\"\210\303\332\304\305#\210\303\332\306\307#\210\303\332\310\311#\210\303\332\312\313\314\332\315\333\317\334\321\335\323\331&\n#\210\300\336\302\"\210\303\336\304\305#\210\303\336\306\307#\210\303\336\310\311#\210\303\336\312\313\314\336\315\337\317\340\321\341\323\331&\n#\210\300\342\302\"\210\303\342\304\305#\210\303\342\306\307#\210\303\342\310\311#\210\303\342\312\313\314\342\315\343\317\344\345\346\321\347\323\350&\f#\207" [defalias magit-format-patch:--notes transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Insert commentary from notes" :key "C-m n " :argument "--notes=" :reader magit-notes-read-ref magit-format-patch:--from "From" "C-m C-f" "--from=" magit-transient-read-person magit-format-patch:--to "To" "C-m C-t" "--to=" magit-format-patch:--cc "CC" "C-m C-c" "--cc=" magit-format-patch:--output-directory "Output directory" "C-m o " :shortarg "-o" "--output-directory=" 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 (#$ . 11362) (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\313\301\314\315\316\317D\320\321\322\316\323\324\325\310\300\326\302\303#\210\300\326\327\330#\210\331\326\332\"\210\326\257 \320\321\333\316\334\324\335\310\300\336\302\303#\210\300\336\327\330#\210\331\336\332\"\210\336\257 \320\321\337\316\340\341\337\324\342\310\300\343\302\303#\210\300\343\327\330#\210\331\343\332\"\210\343\257 E#\314\315\316\344D\345\321\346\316\347\310\301\257C#D\"\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--set-layout vector transient-column :description "Arguments" transient-switch :key "-i" "Also apply to index" :argument "--index" transient:magit-patch-apply:--index completion-predicate transient--suffix-only defalias transient--default-infix-command "-c" "Only apply to index" "--cached" transient:magit-patch-apply:--cached "-3" "Fall back on 3way merge" :shortarg "--3way" transient:magit-patch-apply:--3way "Actions" transient-suffix "a" "Apply patch"] 21)#@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=\2035\204<\314\fA\315\316$\262\202<\204<\f\262\317\320\321\"\322\323\"\216r\211q\210\324\325\326\327&)\210r\211q\210\330\312\211 \312\331%*\266\332 \207" [magit-buffer-diff-range magit-buffer-diff-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 cl-set-difference :test equal 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] 15 (#$ . 12979) (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\302!\210\303 \210\304 \210\305\306$\210\307\310!\207" [default-directory require message compose-mail message-goto-body magit-git-insert "request-pull" set-buffer-modified-p nil] 8 (#$ . 14716) (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)