;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require magit magit-diff] 2) (defalias 'magit-merge #[0 "\300\301!\207" [transient-setup magit-merge] 2 nil nil]) (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-merge interactive-only t function-documentation "Merge branches." transient--prefix transient-prefix :command :man-page "git-merge" :incompatible (("--ff-only" "--no-ff")) transient--layout ([1 transient-column (:description "Arguments" :if-not magit-merge-in-progress-p) ((1 transient-switch (:key "-f" :description "Fast-forward only" :argument "--ff-only" :command transient:magit-merge:--ff-only)) (1 transient-switch (:key "-n" :description "No fast-forward" :argument "--no-ff" :command transient:magit-merge:--no-ff)) (1 transient-suffix (:command magit-merge:--strategy)) (5 transient-suffix (:command magit-merge:--strategy-option)) (5 transient-suffix (:command magit-diff:--diff-algorithm :argument "-Xdiff-algorithm=")) (5 transient-suffix (:command magit:--gpg-sign)))] [1 transient-columns (:description "Actions" :if-not magit-merge-in-progress-p) ([1 transient-column nil ((1 transient-suffix (:key "m" :description "Merge" :command magit-merge-plain)) (1 transient-suffix (:key "e" :description "Merge and edit message" :command magit-merge-editmsg)) (1 transient-suffix (:key "n" :description "Merge but don't commit" :command magit-merge-nocommit)) (1 transient-suffix (:key "a" :description "Absorb" :command magit-merge-absorb)))] [1 transient-column nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Dissolve" :command magit-merge-into)))])] [1 transient-column (:description "Actions" :if magit-merge-in-progress-p) ((1 transient-suffix (:key "m" :description "Commit merge" :command magit-commit-create)) (1 transient-suffix (:key "a" :description "Abort merge" :command magit-merge-abort)))])] 10) (defalias 'magit-merge-arguments #[0 "\300\301!\207" [transient-args magit-merge] 2]) (defalias 'magit-merge:--strategy #[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-merge:--strategy interactive-only t function-documentation nil transient--suffix transient-option :command :description "Strategy" :key "-s" :argument "--strategy=" :choices ("resolve" "recursive" "octopus" "ours" "subtree")] 14) (defalias 'magit-merge:--strategy-option #[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-merge:--strategy-option interactive-only t function-documentation nil transient--suffix transient-option :command :description "Strategy Option" :key "-X" :argument "--strategy-option=" :choices ("ours" "theirs" "patience")] 14) #@409 Merge commit REV into the current branch; using default message. Unless there are conflicts or a prefix argument is used create a merge commit using a generic commit message and without letting the user inspect the result. With a prefix argument pretend the merge failed to give the user the opportunity to inspect the merge. (git merge --no-edit|--no-commit [ARGS] REV) (fn REV &optional ARGS NOCOMMIT) (defalias 'magit-merge-plain #[769 "\300 \210\301\302\203 \303\202\304$\207" [magit-merge-assert magit-run-git-async "merge" "--no-commit" "--no-edit"] 8 (#$ . 3331) (byte-code "\301\302!\303 E\207" [current-prefix-arg magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 3)]) #@198 Merge commit REV into the current branch; and edit message. Perform the merge and prepare a commit message but let the user edit it. (git merge --edit --no-ff [ARGS] REV) (fn REV &optional ARGS) (defalias 'magit-merge-editmsg #[513 "\300 \210\301\235\203 \211\202\301B\262\302\303\304\305\306\307\310\"C\"$\207" [magit-merge-assert "--no-ff" apply magit-run-git-with-editor "merge" "--edit" append delete "--ff-only"] 10 (#$ . 4043) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 2)]) #@244 Merge commit REV into the current branch; pretending it failed. Pretend the merge failed to give the user the opportunity to inspect the merge and change the commit message. (git merge --no-commit --no-ff [ARGS] REV) (fn REV &optional ARGS) (defalias 'magit-merge-nocommit #[513 "\300 \210\301\235\203 \211\202\301B\262\302\303\304$\207" [magit-merge-assert "--no-ff" magit-run-git-async "merge" "--no-commit"] 7 (#$ . 4599) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 2)]) #@467 Merge the current branch into BRANCH and remove the former. Before merging, force push the source branch to its push-remote, provided the respective remote branch already exists, ensuring that the respective pull-request (if any) won't get stuck on some obsolete version of the commits that are being merged. Finally if `forge-branch-pullreq' was used to create the merged branch, branch, then also remove the respective remote branch. (fn BRANCH &optional ARGS) (defalias 'magit-merge-into #[513 "\300 \301\302!\303\304\"\305U\205\203\306\"\207\307\310#\207" [magit-get-current-branch magit-rev-parse "HEAD" magit-call-git "checkout" 0 magit--merge-absorb magit-run-git-with-editor "merge"] 8 (#$ . 5145) (byte-code "\300\301\302\303 \206 \304\305!\"\306\307 \211\205\310!A\211\205\"\311!\205\"\211\266\202#\312 D\207" [magit-read-other-local-branch format "Merge `%s' into" magit-get-current-branch magit-rev-parse "HEAD" nil magit-get-upstream-branch magit-split-branch-name magit-branch-p magit-merge-arguments] 7)]) #@459 Merge BRANCH into the current branch and remove the former. Before merging, force push the source branch to its push-remote, provided the respective remote branch already exists, ensuring that the respective pull-request (if any) won't get stuck on some obsolete version of the commits that are being merged. Finally if `forge-branch-pullreq' was used to create the merged branch, then also remove the respective remote branch. (fn BRANCH &optional ARGS) (defalias 'magit-merge-absorb #[513 "\300\"\207" [magit--merge-absorb] 5 (#$ . 6193) (byte-code "\300\301!\302 D\207" [magit-read-other-local-branch "Absorb branch" magit-merge-arguments] 2)]) #@20 (fn BRANCH ARGS) (defalias 'magit--merge-absorb #[514 "\301 \232\203\302\303\304\"!\204\305\306!\210\307\310\"\211\203.\311\312C#\210\313\314\315#\"\207\316\"\207" [magit-this-process magit-main-branch yes-or-no-p format "Do you really want to merge `%s' into another branch? " user-error "Abort" magit-get-push-branch t magit-git-push "--force-with-lease" set-process-sentinel make-closure #[514 "\302!\303>\205$\304!\305U\204\306\"\207\307\310\311#\210\306\"\210\312\300\301\"\207" [V0 V1 process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit--merge-absorb-1] 6 "\n\n(fn PROCESS EVENT)"] magit--merge-absorb-1] 9 (#$ . 6852)]) #@20 (fn BRANCH ARGS) (defalias 'magit--merge-absorb-1 #[514 "\301\302\303#\211\203/\304\305\306\307\310\311 \211\312 \232\203\313\202\"\307\314\"\262$%\266\2028\304\305\315$\266\316\317\320\"\"\207" [magit-this-process magit-get "branch" "pullRequest" magit-run-git-async "merge" "-m" format "Merge branch '%s'%s [#%s]" magit-get-current-branch magit-main-branch "" " into %s" "--no-edit" set-process-sentinel make-closure #[514 "\301!\302>\205-\303!\304V\203\305\"\207\306\307\310#\210\305\"\210\311\300!\210\312\300!\210\313\314\315\300#\207" [V0 process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit-branch-maybe-delete-pr-remote magit-branch-unset-pushRemote magit-run-git "branch" "-D"] 6 "\n\n(fn PROCESS EVENT)"]] 14 (#$ . 7572)]) #@103 Squash commit REV into the current branch; don't create a commit. (git merge --squash REV) (fn REV) (defalias 'magit-merge-squash #[257 "\300 \210\301\302\303#\207" [magit-merge-assert magit-run-git-async "merge" "--squash"] 5 (#$ . 8403) (byte-code "\300\301!C\207" [magit-read-other-branch-or-commit "Squash"] 2)]) #@66 Preview result of merging REV into the current branch. (fn REV) (defalias 'magit-merge-preview #[257 "\300!\207" [magit-merge-preview-setup-buffer] 3 (#$ . 8729) (byte-code "\300\301!C\207" [magit-read-other-branch-or-commit "Preview merge"] 2)]) #@57 Abort the current merge operation. (git merge --abort) (defalias 'magit-merge-abort #[0 "\300\301\302!!\204\f\303\304!\210\305\306!\210\307\310\311\"\207" [file-exists-p magit-git-dir "MERGE_HEAD" user-error "No merge in progress" magit-confirm abort-merge magit-run-git-async "merge" "--abort"] 3 (#$ . 8984) nil]) #@80 During a conflict checkout and stage side, or restore conflict. (fn FILE ARG) (defalias 'magit-checkout-stage #[514 "\300\301!@AAB\211:\203\233\211\242\211\302\267\202\226\243\211:\203O\211\242\211\303=\203H\243\211:\203A\211\243\211\2049\304\305\306 #\207  \"\207\"\207\"\207\"\207\243\211:\203\217\211\243\211:\203\210\211\242\211\303=\203\201\243\211\204y\304\305\306 #\207  \"\207\"\207\"\207\"\207\"\207\"\207" [#[514 "\211\300\232\203 \301\302\300\303$\207\304\302\303$\210\301\305\306\303$\207" ["--merge" magit-run-git "checkout" "--" magit-call-git "add" "-u"] 7 "\n\n(fn FILE ARG)"] magit-file-status #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("--ours" 22 "--theirs" 86)) 68 magit-run-git "rm" "--"] 13 (#$ . 9308) (byte-code "\300\301\302 \303\211\211\304\305 &\211\306 \235\203\211\307!D\207\310\311\312\"!\203&\211\313D\207\314\315!\207" [magit-completing-read "Checkout file" magit-tracked-files nil magit-read-file-hist magit-current-file magit-unmerged-files magit-checkout-read-stage yes-or-no-p format "Restore conflicts in %s? " "--merge" user-error "Quit"] 8)]) (defalias 'magit-merge-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "MERGE_HEAD"] 3]) #@23 (fn &optional HEAD) (defalias 'magit--merge-range #[256 "\211\204\300\301\302\303!!@!\262\211\205\304\305\306\307$\310Q\207" [magit-get-shortname magit-file-lines magit-git-dir "MERGE_HEAD" magit-git-string "merge-base" "--octopus" "HEAD" ".."] 6 (#$ . 10625)]) (defalias 'magit-merge-assert #[0 "\300\301!?\206 \302\303\304\"\207" [magit-anything-modified-p t magit-confirm merge-dirty "Merging with dirty worktree is risky. Continue"] 3]) #@13 (fn FILE) (defalias 'magit-checkout-read-stage #[257 "\300\301\302\"\303\304\305\306\307E\310#\311Q\312\"\211\313\267\202#\314\202$\315\202$\316\202$\317\262\320\321!\210\207" [read-char-choice format "For %s checkout: " mapconcat identity "[o]ur stage" "[t]heir stage" "[c]onflict" ", " ", or [C-g] to abort " (111 116 99) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (111 23 116 27 99 31)) "--ours" "--theirs" "--merge" nil message ""] 8 (#$ . 11083)]) #@33 Keymap for `unmerged' sections. (defvar magit-unmerged-section-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-diff-dwim] 5) (#$ . 11592)) #@121 Insert section for the on-going merge. Display the heads that are being merged. If no merge is in progress, do nothing. (defalias 'magit-insert-merge-log #[0 "\306 \205f\307\310\311\312\313!!\"\314@!\315\316!\203\316\202#\316\236A\206#\317\320\315\316!\2032\321\316\"@\2063\316\322\323\324 \325 &\326\327\330\331\"\211\203M\211\332=\202\n\205X\333\334!\n\"\211\203c\335\327\"\202}\336 \"\211\205{\337!\203x\211!\262\211\332=\262\262\262#\210\211\n\206\221 ?\205\221\f\3402_\341\342\343\344\345\346#\"!\210\347>\350>\235\204\264\350B\262\211\262\"\210\351\352!\210\353!\210\354\335\355\"\356\"\210\326\357\324 #\360\361\"\362\342\363\335\364\"\"!\362\342\365\335\364\"\"!\203\360J\206\366!\203\373J\206\366!\205\211J\212\335\355\"b\210`W\203:\367`\317\"\206\370`\317\"\2043\371`\317\n$\210\2033\371`\361$\210\211b\266\202 )\266\211\f=\203M\372?\373!)\202^\326\335\374\"\375\335\211\374\"\375\"C\244#0\210+\211\262\266\202\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-merge-in-progress-p mapcar magit-get-shortname magit-file-lines magit-git-dir "MERGE_HEAD" magit--merge-range class-p unmerged magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading format "Merging %s:" mapconcat identity ", " magit-insert-log "--decorate=full" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-buffer-log-args magit-section-cache-visibility] 14 (#$ . 11798)]) (provide 'magit-merge)