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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&    \210\316\317\320\321\312\322%\210\316\323\324\325\312\322%\210\316\326\327\330\312\322%\207" [require magit custom-declare-variable magit-bisect-show-graph funcall function #[0 "\300\207" [t] 1] "Whether to use `--graph' in the log showing commits yet to be bisected." :package-version (magit . "2.8.0") :group magit-status :type boolean custom-declare-face magit-bisect-good ((t :foreground "DarkOliveGreen")) "Face for good bisect revisions." magit-faces magit-bisect-skip ((t :foreground "DarkGoldenrod")) "Face for skipped bisect revisions." magit-bisect-bad ((t :foreground "IndianRed4")) "Face for bad bisect revisions."] 10)
#@56 Popup console for bisect commands.
 
(fn &optional ARG)
(defalias 'magit-bisect-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-bisect-popup nil] 5 (#$ . 1117) "P"])
(defvar magit-bisect-popup (list :variable 'magit-bisect-arguments :man-page "git-bisect" :actions '((66 "Start" magit-bisect-start) (115 "Start script" magit-bisect-run)) :sequence-actions '((98 "Bad" magit-bisect-bad) (103 "Good" magit-bisect-good) (107 "Skip" magit-bisect-skip) (114 "Reset" magit-bisect-reset) (115 "Run script" magit-bisect-run)) :sequence-predicate 'magit-bisect-in-progress-p))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-bisect-popup custom-declare-variable magit-bisect-arguments funcall function #[0 "\301\302\"\207" [magit-bisect-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
(defalias 'magit-bisect-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-bisect-arguments magit-bisect-popup] 2])
(put 'magit-bisect-arguments 'definition-name 'magit-bisect-popup)
#@310 Start a bisect session.
 
Bisecting a bug means to find the commit that introduced it.
This command starts such a bisect session by asking for a know
good and a bad commit.  To move the session forward use the
other actions from the bisect popup (\<magit-status-mode-map>\[magit-bisect-popup]).
 
(fn BAD GOOD)
(defalias 'magit-bisect-start #[514 "\300\"\204 \301\302#\210\303 \203\301\304!\210\305\306D\307#\207" [magit-rev-ancestor-p user-error "The good revision (%s) has to be an ancestor of the bad one (%s)" magit-anything-modified-p "Cannot bisect with uncommitted changes" magit-git-bisect "start" t] 6 (#$ . 2267) (byte-code "\300 \203    \301\302!\207\303 \207" [magit-bisect-in-progress-p user-error "Already bisecting" magit-bisect-start-read-args] 2)])
(defalias 'magit-bisect-start-read-args #[0 "\300\301!\211\302\303\"D\207" [magit-read-branch-or-commit "Start bisect with bad revision" magit-read-other-branch-or-commit "Good revision"] 5])
#@73 After bisecting, cleanup bisection state and return to original `HEAD'.
(defalias 'magit-bisect-reset #[0 "\300\301!\210\302\303\304\"\210\3051\306\307\310!!0\207\210\311\207" [magit-confirm reset-bisect magit-run-git "bisect" "reset" (error) delete-file magit-git-dir "BISECT_CMD_OUTPUT" nil] 3 (#$ . 3237) nil])
#@138 While bisecting, mark the current commit as good.
Use this after you have asserted that the commit does not contain
the bug in question.
(defalias 'magit-bisect-good #[0 "\300\301!\207" [magit-git-bisect "good"] 2 (#$ . 3560) nil])
#@133 While bisecting, mark the current commit as bad.
Use this after you have asserted that the commit does contain the
bug in question.
(defalias 'magit-bisect-bad #[0 "\300\301!\207" [magit-git-bisect "bad"] 2 (#$ . 3799) nil])
#@164 While bisecting, skip the current commit.
Use this if for some reason the current commit is not a good one
to test.  This command lets Git choose a different one.
(defalias 'magit-bisect-skip #[0 "\300\301!\207" [magit-git-bisect "skip"] 2 (#$ . 4031) nil])
#@228 Bisect automatically by running commands after each step.
 
Unlike `git bisect run' this can be used before bisecting has
begun.  In that case it behaves like `git bisect start; git
bisect run'.
 
(fn CMDLINE &optional BAD GOOD)
(defalias 'magit-bisect-run #[769 "\203 \211\203 \302\"\210\303\304    E\"\207" [shell-file-name shell-command-switch magit-bisect-start magit-git-bisect "run"] 8 (#$ . 4296) (byte-code "\300 ?\205\301 \302\303!B\207" [magit-bisect-in-progress-p magit-bisect-start-read-args read-shell-command "Bisect shell command: "] 3)])
#@44 
 
(fn SUBCOMMAND &optional ARGS NO-ASSERT)
(defalias 'magit-git-bisect #[769 "\211\204 \301 \204 \302\303!\210\304 \211\203#\211\305\306\307!\310$)\202%\311 \207" [default-directory magit-bisect-in-progress-p user-error "Not bisecting" magit-toplevel magit-run-git-with-logfile magit-git-dir "BISECT_CMD_OUTPUT" "bisect" magit--not-inside-repository-error] 9 (#$ . 4862)])
(defalias 'magit-bisect-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "BISECT_LOG"] 3])
#@64 While bisecting, insert section with output from `git bisect'.
(defalias 'magit-insert-bisect-output #[0 "\306 \205\332\307\310\311!!\206\312\313\314\315F\316\317@\"\203$\211A\262\242\206X\320\321\322\203S\203S@\203<\320\262\202G\317\"\203G\211\262\210\211T\262A\262\202(\266\211\262\211\203`\323\202a\324\325!\203k\211\202s\211\236A\206s\326\327\325!\203\212\330\"@\206\213\331\332\300#\202\213\333\205\225\334\335\"\336\337 \340    &\341\342\343\344\"\211\203\255\211\345=\202\337\n\205\270\346\347!\n\"\211\203\303\350\342\"\202\335\351 \"\211\205\333\352!\203\330\211!\262\211\345=\262\262\262#\210\211\n\206\361    ?\205\361\f\3532\324\354\355\206\211A\262\242\356\357#!\210\211\203\211@\211\360\261\210A\266\202\202 \210\361\362!\210\363!\210\364\350\365\"\321\"\210\341\366\337 #\367\370\"\371\372\373\350\374\"\"!\371\372\375\350\374\"\"!\203UJ\206h\376!\203`J\206h\376!\205h\211J\212\350\365\"b\210`W\203\245\377`\326\"\206~\201A`\326\"\204\236\201B`\326\n$\210\203\236\201B`\370$\210\211b\266\202p)\266\211\f=\203\272\320@\201C!)\202\323\341\350\201D\"\201E\350\211\201D\"\201E\"C\244#0\210+\266\360c\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-bisect-in-progress-p magit-file-lines magit-git-dir "BISECT_CMD_OUTPUT" "Bisecting: (no saved bisect output)" "It appears you have invoked `git bisect' from a shell." "There is nothing wrong with that, we just cannot display" "anything useful here.  Consult the shell output instead." "^\\([a-z0-9]\\{40\\}\\) is the first bad commit$" string-match nil t 0 commit bisect-output class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value match-string 1 :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 propertize face magit-section-heading "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change magit-section-cache-visibility get-text-property put-text-property magit-section-show parent children] 16 (#$ . 5360)])
#@63 While bisecting, insert section visualizing the bisect state.
(defalias 'magit-insert-bisect-rest #[0 "\306 \205W\307\310!\203\211\202\211\236A\206\311\312\310!\203/\313\"@\2060\314\315\300#\2020\316\317\320\321 \322    &\323\324\325\326\"\211\203J\211\327=\202|\n\205U\330\331!\n\"\211\203`\332\324\"\202z\333 \"\211\205x\334!\203u\211!\262\211\327=\262\262\262#\210\211\n\206\216    ?\205\216\f\3352S\336\337!\210\340\341\342\343\"\344\345\346\347\350\351@\205\252\352&\210\353\354!\210\355!\210\356\332\357\"\360\"\210\323\361\321 #\362\363\"\364\365\366\332\367\"\"!\364\365\370\332\367\"\"!\203\344J\206\367\371!\203\357J\206\367\371!\205\367\211J\212\332\357\"b\210`W\203.\372`\311\"\206 \373`\311\"\204'\374`\311\n$\210\203'\374`\363$\210\211b\266\202\377)\266\211\f=\203A\317A\375!)\202R\323\332\376\"\377\332\211\376\"\377\"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-bisect-in-progress-p bisect-view 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-insert-heading "Bisect Rest:" magit-git-wash apply-partially magit-log-wash-log bisect-vis "bisect" "visualize" "git" "log" "--format=%h%d%x00%s" "--decorate=full" "--graph" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "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-bisect-show-graph magit-section-cache-visibility] 13 (#$ . 7892)])
#@58 While bisecting, insert section logging bisect progress.
(defalias 'magit-insert-bisect-log #[0 "\306 \205L\307\310!\203\211\202\211\236A\206\311\312\310!\203/\313\"@\2060\314\315\300#\2020\316\317\320\321 \322    &\323\324\325\326\"\211\203J\211\327=\202|\n\205U\330\331!\n\"\211\203`\332\324\"\202z\333 \"\211\205x\334!\203u\211!\262\211\327=\262\262\262#\210\211\n\206\216    ?\205\216\f\3352H\336\337!\210\340\341\342\343#\210\344c\210\345\346!\210\347!\210\350\332\351\"\352\"\210\323\353\321 #\354\355\"\356\357\360\332\361\"\"!\356\357\362\332\361\"\"!\203\331J\206\354\363!\203\344J\206\354\363!\205\354\211J\212\332\351\"b\210`W\203#\364`\311\"\206\365`\311\"\204\366`\311\n$\210\203\366`\355$\210\211b\266\202\364)\266\211\f=\2036\317:\367!)\202G\323\332\370\"\371\332\211\370\"\371\"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-bisect-in-progress-p bisect-log 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-insert-heading "Bisect Log:" magit-git-wash magit-wash-bisect-log "bisect" "log" 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "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] 13 (#$ . 9900)])
#@13 
 
(fn ARGS)
(defalias 'magit-wash-bisect-log #[257 "\306\307 \262\310\311\306\312#\203{\306\313\314\"\315 \210\214`}\210eb\210\316\317!\203(\211\2020\211\236A\2060\320\321\317!\203G\322\"@\206H\323\324\300#\202H\325\326\307 \327    &\330\331\332\333\"\211\203b\211\334=\202\230\n\205m\335\336!\n\"\211\203x\337\331\"\202\226\340 \"\211\203\223\341!\203\215\211!\262\211\334=\202\224\312\262\262\262#\210\211\n\206\252    ?\205\252\f\3422q\343\344\345#c\210\346 \210\347\350\351\352\353 #!\210\354c\210\355\356!\210\357!\210\360\337\361\"\312\"\210\330\362\307 #\363\364\"\365\366\367\337\370\"\"!\365\366\371\337\370\"\"!\203\376J\206\372!\203    J\206\372!\205\211J\212\337\361\"b\210`W\203H\373`\320\"\206'\374`\320\"\204A\375`\320\n$\210\203A\375`\364$\210\211b\266\202)\266\211\f=\203[\306@\376!)\202p\330\337\377\"\201A\337\211\377\"\201A\"C\244#0\210+\266)\266\202\310\201B\306\312#\205\326\306\313\314\"\315 \210\316\317!\203\230\211\202\240\211\236A\206\240\320\321\317!\203\267\322\"@\206\270\323\324\300#\202\270\325\306\326\307 \327    &\330\331\332\333\"\211\203\322\211\334=\202\n\205\335\335\336!\n\"\211\203\350\337\331\"\202\340 \"\211\205\341!\203\375\211!\262\211\334=\262\262\262#\210\211\n\206    ?\205\f\3422\316\201C\261\210\355\356!\210\357!\210\360\337\361\"\312\"\210\330\362\307 #\363\364\"\365\366\367\337\370\"\"!\365\366\371\337\370\"\"!\203[J\206n\372!\203fJ\206n\372!\205n\211J\212\337\361\"b\210`W\203\245\373`\320\"\206\204\374`\320\"\204\236\375`\320\n$\210\203\236\375`\364$\210\211b\266\202v)\266\211\f=\203\270\306@\376!)\202\315\330\337\377\"\201A\337\211\377\"\201A\"C\244#0\210+\262\262\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 nil point-marker re-search-forward "^\\(git bisect [^\n]+\n\\)" t match-string 1 magit-delete-match bisect-item class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start :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 propertize face magit-section-secondary-heading magit-insert-heading magit-wash-sequence apply-partially magit-log-wash-rev bisect-log magit-abbrev-length 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent magit-section-cache-visibility children "# first bad commit: \\[\\([a-z0-9]\\{40\\}\\)\\] [^\n]+\n" " is the first bad commit\n"] 17 (#$ . 11754)])
(provide 'magit-bisect)