| 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\344 J\206\367 \371!\203\357 J\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\317 A\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\331 J\206\354 \363!\203\344 J\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\376 J\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) | |
