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 (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)
16 #@56 Popup console for bisect commands.
17
18 (fn &optional ARG)
19 (defalias 'magit-bisect-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-bisect-popup nil] 5 (#$ . 1117) "P"])
20 (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))
21 (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)
22 (defalias 'magit-bisect-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-bisect-arguments magit-bisect-popup] 2])
23 (put 'magit-bisect-arguments 'definition-name 'magit-bisect-popup)
24 #@310 Start a bisect session.
25
26 Bisecting a bug means to find the commit that introduced it.
27 This command starts such a bisect session by asking for a know
28 good and a bad commit.  To move the session forward use the
29 other actions from the bisect popup (\<magit-status-mode-map>\[magit-bisect-popup]).
30
31 (fn BAD GOOD)
32 (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)])
33 (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])
34 #@73 After bisecting, cleanup bisection state and return to original `HEAD'.
35 (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])
36 #@138 While bisecting, mark the current commit as good.
37 Use this after you have asserted that the commit does not contain
38 the bug in question.
39 (defalias 'magit-bisect-good #[0 "\300\301!\207" [magit-git-bisect "good"] 2 (#$ . 3560) nil])
40 #@133 While bisecting, mark the current commit as bad.
41 Use this after you have asserted that the commit does contain the
42 bug in question.
43 (defalias 'magit-bisect-bad #[0 "\300\301!\207" [magit-git-bisect "bad"] 2 (#$ . 3799) nil])
44 #@164 While bisecting, skip the current commit.
45 Use this if for some reason the current commit is not a good one
46 to test.  This command lets Git choose a different one.
47 (defalias 'magit-bisect-skip #[0 "\300\301!\207" [magit-git-bisect "skip"] 2 (#$ . 4031) nil])
48 #@228 Bisect automatically by running commands after each step.
49
50 Unlike `git bisect run' this can be used before bisecting has
51 begun.  In that case it behaves like `git bisect start; git
52 bisect run'.
53
54 (fn CMDLINE &optional BAD GOOD)
55 (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)])
56 #@44 
57
58 (fn SUBCOMMAND &optional ARGS NO-ASSERT)
59 (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)])
60 (defalias 'magit-bisect-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "BISECT_LOG"] 3])
61 #@64 While bisecting, insert section with output from `git bisect'.
62 (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 #@63 While bisecting, insert section visualizing the bisect state.
64 (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)])
65 #@58 While bisecting, insert section logging bisect progress.
66 (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)])
67 #@13 
68
69 (fn ARGS)
70 (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)])
71 (provide 'magit-bisect)