mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (require 'magit)
16 #@55 Popup console for merge commands.
17
18 (fn &optional ARG)
19 (defalias 'magit-merge-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-merge-popup nil] 5 (#$ . 425) "P"])
20 (defvar magit-merge-popup (list :variable 'magit-merge-arguments :man-page "git-merge" :switches '((102 "Fast-forward only" "--ff-only") (110 "No fast-forward" "--no-ff")) :options '((115 "Strategy" "--strategy=")) :actions '((109 "Merge" magit-merge-plain) (112 "Preview merge" magit-merge-preview) (101 "Merge and edit message" magit-merge-editmsg) nil (110 "Merge but don't commit" magit-merge-nocommit) (115 "Squash merge" magit-merge-squash) (97 "Absorb" magit-merge-absorb) (105 "Merge into" magit-merge-into)) :sequence-actions '((109 "Commit merge" magit-commit-create) (97 "Abort merge" magit-merge-abort)) :sequence-predicate 'magit-merge-in-progress-p :default-action 'magit-merge :max-action-columns 2))
21 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-merge-popup custom-declare-variable magit-merge-arguments funcall function #[0 "\301\302\"\207" [magit-merge-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
22 (defalias 'magit-merge-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-merge-arguments magit-merge-popup] 2])
23 (put 'magit-merge-arguments 'definition-name 'magit-merge-popup)
24 #@409 Merge commit REV into the current branch; using default message.
25
26 Unless there are conflicts or a prefix argument is used create a
27 merge commit using a generic commit message and without letting
28 the user inspect the result.  With a prefix argument pretend the
29 merge failed to give the user the opportunity to inspect the
30 merge.
31
32 (git merge --no-edit|--no-commit [ARGS] REV)
33
34 (fn REV &optional ARGS NOCOMMIT)
35 (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 (#$ . 1877) (byte-code "\301\302!\303 E\207" [current-prefix-arg magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 3)])
36 #@198 Merge commit REV into the current branch; and edit message.
37 Perform the merge and prepare a commit message but let the user
38 edit it.
39
40 (git merge --edit --no-ff [ARGS] REV)
41
42 (fn REV &optional ARGS)
43 (defalias 'magit-merge-editmsg #[513 "\300 \210\301\235\203 \211\202\301B\262\302\303\304\305\306C\"$\207" [magit-merge-assert "--no-ff" apply magit-run-git-with-editor "merge" "--edit" append] 9 (#$ . 2589) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 2)])
44 #@244 Merge commit REV into the current branch; pretending it failed.
45 Pretend the merge failed to give the user the opportunity to
46 inspect the merge and change the commit message.
47
48 (git merge --no-commit --no-ff [ARGS] REV)
49
50 (fn REV &optional ARGS)
51 (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 (#$ . 3114) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Merge" magit-merge-arguments] 2)])
52 #@464 Merge the current branch into BRANCH and remove the former.
53
54 Before merging, force push the source branch to its push-remote,
55 provided the respective remote branch already exists, ensuring
56 that the respective pull-request (if any) won't get stuck on some
57 obsolete version of the commits that are being merged.  Finally
58 if `magit-branch-pull-request' was used to create the merged
59 branch, then also remove the respective remote branch.
60
61 (fn BRANCH &optional ARGS)
62 (defalias 'magit-merge-into #[513 "\300 \301\302\"\303U\205\304\"\207" [magit-get-current-branch magit-call-git "checkout" 0 magit--merge-absort] 6 (#$ . 3660) (byte-code "\300\301\302\303 \"\304\305 \211\205\306!A\211\205\307!\205\211\262\262#\310 D\207" [magit-read-other-local-branch format "Merge `%s' into" magit-get-current-branch nil magit-get-upstream-branch magit-split-branch-name magit-branch-p magit-merge-arguments] 7)])
63 #@464 Merge BRANCH into the current branch and remove the former.
64
65 Before merging, force push the source branch to its push-remote,
66 provided the respective remote branch already exists, ensuring
67 that the respective pull-request (if any) won't get stuck on some
68 obsolete version of the commits that are being merged.  Finally
69 if `magit-branch-pull-request' was used to create the merged
70 branch, then also remove the respective remote branch.
71
72 (fn BRANCH &optional ARGS)
73 (defalias 'magit-merge-absorb #[513 "\300\"\207" [magit--merge-absort] 5 (#$ . 4579) (byte-code "\300\301!\302 D\207" [magit-read-other-local-branch "Absorb branch" magit-merge-arguments] 2)])
74 #@20 
75
76 (fn BRANCH ARGS)
77 (defalias 'magit--merge-absort #[514 "\301\232\203\302\303!\204\304\305!\210\306\307\"\211\2034\310\311C#\210\312\313\314\315\316\317        \"\320\"\321\322%\"\2028\323\"\207" [magit-this-process "master" yes-or-no-p "Do you really want to merge `master' into another branch? " user-error "Abort" magit-get-push-branch t magit-git-push "--force-with-lease" set-process-sentinel make-byte-code 514 "\302!\303>\205$\304!\305U\204\306\"\207\307\310\311#\210\306\"\210\312\300\301\"\207" vconcat vector [process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit--merge-absort-1] 6 "\n\n(fn PROCESS EVENT)" magit--merge-absort-1] 12 (#$ . 5243)])
78 #@20 
79
80 (fn BRANCH ARGS)
81 (defalias 'magit--merge-absort-1 #[514 "\301\302\303$\210\304\305\306\307\310\311!\312\"\313\314%\"\207" [magit-this-process magit-run-git-async "merge" "--no-edit" set-process-sentinel make-byte-code 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" vconcat vector [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)"] 10 (#$ . 5982)])
82 #@103 Squash commit REV into the current branch; don't create a commit.
83
84 (git merge --squash REV)
85
86 (fn REV)
87 (defalias 'magit-merge-squash #[257 "\300 \210\301\302\303#\207" [magit-merge-assert magit-run-git-async "merge" "--squash"] 5 (#$ . 6604) (byte-code "\300\301!C\207" [magit-read-other-branch-or-commit "Squash"] 2)])
88 #@66 Preview result of merging REV into the current branch.
89
90 (fn REV)
91 (defalias 'magit-merge-preview #[257 "\300\301\"\207" [magit-mode-setup magit-merge-preview-mode] 4 (#$ . 6930) (byte-code "\300\301!C\207" [magit-read-other-branch-or-commit "Preview merge"] 2)])
92 (defvar magit-merge-preview-mode-hook nil)
93 (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [magit-merge-preview-mode-hook variable-documentation put "Hook run after entering Magit Merge mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp magit-merge-preview-mode-map definition-name magit-merge-preview-mode] 4)
94 (defvar magit-merge-preview-mode-map (make-sparse-keymap))
95 (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-merge-preview-mode-abbrev-table magit-merge-preview-mode-map variable-documentation put purecopy "Keymap for `magit-merge-preview-mode'." boundp magit-merge-preview-mode-syntax-table definition-name magit-merge-preview-mode (lambda (#1=#:def-tmp-var) (defvar magit-merge-preview-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-merge-preview-mode'." (lambda (#1#) (defvar magit-merge-preview-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-merge-preview-mode'." derived-mode-parent magit-diff-mode custom-mode-group magit-diff] 5)
96 #@252 Mode for previewing a merge.
97
98 In addition to any hooks its parent mode `magit-diff-mode' might have run,
99 this mode runs the hook `magit-merge-preview-mode-hook', as the final or penultimate step
100 during initialization.
101
102 \{magit-merge-preview-mode-map}
103 (defalias 'magit-merge-preview-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210)\332\333!\207" [delay-mode-hooks major-mode mode-name magit-merge-preview-mode-map magit-merge-preview-mode-syntax-table magit-merge-preview-mode-abbrev-table make-local-variable t magit-diff-mode magit-merge-preview-mode "Magit Merge" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer run-mode-hooks magit-merge-preview-mode-hook local-abbrev-table] 5 (#$ . 8581) nil])
104 #@12 
105
106 (fn REV)
107 (defalias 'magit-merge-preview-refresh-buffer #[257 "\306 \211\206    \307\310!\311\312\313\206\310#!\210\314\315!\203 \211\202(\211\236A\206(\316\317\315!\203?\320\"@\206@\321\322\300#\202@\323\324\325\326 \327    &\330\331\332\333\"\211\203Z\211\334=\202\214\n\205e\335\336!\n\"\211\203p\337\331\"\202\212\340 \"\211\205\210\341!\203\205\211!\262\211\334=\262\262\262#\210\211\n\206\236    ?\205\236\f\3422[\343\344\345\346\347\n#    %\210\350\351!\210\352!\210\353\337\354\"\355\"\210\330\356\326 #\357\360\"\361\312\362\337\363\"\"!\361\312\364\337\363\"\"!\203\354J\206\377\365!\203\367J\206\377\365!\205\377\211J\212\337\354\"b\210`W\2036\366`\316\"\206\367`\316\"\204/\370`\316\n$\210\203/\370`\360$\210\211b\266\202)\266\211\f=\203I\324<\371!)\202Z\330\337\372\"\373\337\211\372\"\373\"C\244#0\210+\262\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-get-current-branch magit-rev-verify "HEAD" magit-set-header-line-format format "Preview merge of %s into %s" diffbuf class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :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-git-wash magit-diff-wash-diffs "merge-tree" magit-git-string "merge-base" 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 magit-section-show parent children magit-section-cache-visibility] 16 (#$ . 9693)])
108 #@57 Abort the current merge operation.
109
110 (git merge --abort)
111 (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 (#$ . 11626) nil])
112 #@80 During a conflict checkout and stage side, or restore conflict.
113
114 (fn FILE ARG)
115 (defalias 'magit-checkout-stage #[514 "\211\300!@AAB\301:\203\334@\211\302\267\202\323A\211:\203w\211@\211\303=\203lA\211:\203a\211A\211\204;\304\305\306 #\202\\\307\232\203L\304\310\307\306\f$\202\\\311\310    \306\f$\210\304\312\313\306\f$\262\202g\"\262\202r\"\262\202}\"\262\202\327A\211:\203\310\211A\211:\203\275\211@\211\303=\203\262A\211\204\247\304\305\306 #\202\255        \"\262\202\270\"\262\202\303\"\262\202\316\"\262\202\327\"\262\202\340\211\"\207" [magit-file-status #[514 "\211\300\232\203 \301\302\300\303$\207\304\302\303$\210\301\305\306\303$\207" [#1="--merge" magit-run-git #2="checkout" "--" magit-call-git #3="add" #4="-u"] 7 "\n\n(fn FILE ARG)"] #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("--ours" 22 "--theirs" 130)) 68 magit-run-git "rm" "--" #1# #2# magit-call-git #3# #4#] 14 (#$ . 11951) (byte-code "\300\301\302 \303\211\211\304\305 &\211\306 \235\203\211\307!D\202-\310\311\312\"!\203*\211\313D\202-\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)])
116 (defalias 'magit-merge-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "MERGE_HEAD"] 3])
117 #@23 
118
119 (fn &optional HEAD)
120 (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 (#$ . 13458)])
121 (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])
122 #@13 
123
124 (fn FILE)
125 (defalias 'magit-checkout-read-stage #[257 "\300\301\302\"\303P\304\"\211\305\267\202\306\202\307\202\310\202\311\207" [read-char-choice format "For %s checkout: " "[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 15 116 19 99 23)) "--ours" "--theirs" "--merge" nil] 5 (#$ . 13916)])
126 #@33 Keymap for `unmerged' sections.
127 (defvar magit-unmerged-section-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-diff-dwim] 5) (#$ . 14341))
128 #@121 Insert section for the on-going merge.
129 Display the heads that are being merged.
130 If no merge is in progress, do nothing.
131 (defalias 'magit-insert-merge-log #[0 "\306 \205n\307\310\311\312\313!!\"\314@!\315\316!\203\211\202$\211\236A\206$\317\320\316!\203;\321\"@\206<\322\323\300#\202<\324\325\326 \327    &\330\331\332\333\"\211\203V\211\334=\202\210\n\205a\335\336!\n\"\211\203l\337\331\"\202\206\340 \"\211\205\204\341!\203\201\211!\262\211\334=\262\262\262#\210\211\n\206\232    ?\205\232\f\3422h\343\344\345\346\347\350#\"!\210\351@\352@\235\204\275\352B\262\211\262\"\210\353\354!\210\355!\210\356\337\357\"\360\"\210\330\361\326 #\362\363\"\364\344\365\337\366\"\"!\364\344\367\337\366\"\"!\203\371J\206\f\370!\203J\206\f\370!\205\f\211J\212\337\357\"b\210`W\203C\371`\317\"\206\"\372`\317\"\204<\373`\317\n$\210\203<\373`\363$\210\211b\266\202)\266\211\f=\203V\374A\375!)\202g\330\337\376\"\377\337\211\376\"\377\"C\244#0\210+\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 unmerged class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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-log-section-arguments magit-section-cache-visibility] 15 (#$ . 14551)])
132 (provide 'magit-merge)