| 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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\311\312\313\314\315DD\316\317\320\321\322&\210\311\323\313\314\324DD\325\326\327\317\320\321\330& \210\311\331\313\314\332DD\333\317\320\321\334&\210\311\335\313\314\336DD\337\326\340\317\320\321\341& \210\311\342\313\314\343DD\344\326\345\317\320\321\346& \210\311\347\313\314\350DD\351\326\352\317\320\321\353& \210\311\354\313\314\355DD\356\326\357\317\320\321\360& \210\311\361\313\314\362DD\363\326\364\317\320\321\365& \210\311\366\313\314\367DD\370\326\371\317\320\321\372\373\374& \210\311\375\313\314\376DD\377\326\201@ \317\320\321\201A & \210\311\201B \313\314\201C DD\201D \326\201E \317\320\321\201F & \210\311\201G \313\314\201H DD\201I \326\201J \317\320\321\201F & \210\201K \201L \201M \201N \317\201O %\210\201K \201P \201Q \201R \317\201O %\210\201K \201S \201T \201U \317\201O %\210\201K \201V \201W \201X \317\201O %\207" [require ansi-color cl-lib dash with-editor magit-utils magit-section magit-git magit-mode custom-declare-variable magit-process-connection-type funcall function #[0 "\301=?\207" [system-type cygwin] 2] "Connection type used for the Git process.\n\nIf nil, use pipes: this is usually more efficient, and works on Cygwin.\nIf t, use ptys: this enables Magit to prompt for passphrases when needed." :group magit-process :type (choice (const :tag "pipe" nil) (const :tag "pty" t)) magit-need-cygwin-noglob #[0 "\304=\205B \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316 \n\"\31711 \320 \321p\321\322\323\324\325&0\2029 \326\327\330\331$\262\210)\332 \333\232*\262\207" [system-type magit-git-environment process-environment magit-git-executable windows-nt generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 append (file-error) process-file nil "-c" "alias.echo=!echo" "echo" "x{0}" lwarn magit-process :warning "Could not run Git: %S" buffer-string "x0\n"] 10] "Whether to use a workaround for Cygwin's globbing behavior.\n\nIf non-nil, add environment variables to `process-environment' to\nprevent the git.exe distributed by Cygwin and MSYS2 from\nattempting to perform glob expansion when called from a native\nWindows build of Emacs. See #2246." :package-version (magit . "2.3.0") (choice (const :tag "Yes" t) (const :tag "No" nil)) magit-process-popup-time #[0 "\300\207" [-1] 1] "Popup the process buffer if a command takes longer than this many seconds." (choice (const :tag "Never" -1) (const :tag "Immediately" 0) (integer :tag "After this many seconds")) magit-process-log-max #[0 "\300\207" [32] 1] "Maximum number of sections to keep in a process log buffer.\nWhen adding a new section would go beyond the limit set here,\nthen the older half of the sections are remove. Sections that\nbelong to processes that are still running are never removed.\nWhen this is nil, no sections are ever removed." (magit . "2.1.0") (choice (const :tag "Never remove old sections" nil) integer) magit-process-error-tooltip-max-lines #[0 "\300\207" [20] 1] "The number of lines for `magit-process-error-lines' to return.\n\nThese are displayed in a tooltip for `mode-line-process' errors.\n\nIf `magit-process-error-tooltip-max-lines' is nil, the tooltip\ndisplays the text of `magit-process-error-summary' instead." (magit . "2.12.0") (choice (const :tag "Use summary line" nil) integer) magit-credential-cache-daemon-socket #[0 "\304\3051 \306 \"\307\n\310\311\312$)0\202 \210\304\313\314\203\231 \203\231 @\203- \304\262\202\215 \315!\211@A\211\211\205\207 \316\304\313\317#)\266\203\205\207 \304\211\211\313\304:\203 \262\211A\262\242\262@\262\320\230\203t \262\304\211\262\202u \313\203 A\262\202P \266\205\206\207 \321\322!\266\202\266\203\262\210\211T\262A\262\202 \266\211\207" [magit-git-environment process-environment magit-git-executable inhibit-changing-match-data nil (error) append process-lines "config" "--get-all" "credential.helper" t 0 split-string "\\`\\(?:\\(?:/.*/\\)?git-credential-\\)?cache\\'" string-match "--socket" expand-file-name "~/.git-credential-cache/socket"] 18] "If non-nil, start a credential cache daemon using this socket.\n\nWhen using Git's cache credential helper in the normal way, Emacs\nsends a SIGHUP to the credential daemon after the git subprocess\nhas exited, causing the daemon to also quit. This can be avoided\nby starting the `git-credential-cache--daemon' process directly\nfrom Emacs.\n\nThe function `magit-maybe-start-credential-cache-daemon' takes\ncare of starting the daemon if necessary, using the value of this\noption as the socket. If this option is nil, then it does not\nstart any daemon. Likewise if another daemon is already running,\nthen it starts no new daemon. This function has to be a member\nof the hook variable `magit-credential-hook' for this to work.\nIf an error occurs while starting the daemon, most likely because\nthe necessary executable is missing, then the function removes\nitself from the hook, to avoid further futile attempts." (magit . "2.3.0") (choice (file :tag "Socket") (const :tag "Don't start a cache daemon" nil)) magit-process-yes-or-no-prompt-regexp #[0 "\300\207" [#1=" [[(]\\([Yy]\\(?:es\\)?\\)[/|]\\([Nn]o?\\)[])] ?[?:] ?$"] 1 #1#] "Regexp matching Yes-or-No prompts of Git and its subprocesses." (magit . "2.1.0") regexp magit-process-password-prompt-regexps #[0 "\300\207" [("^\\(Enter \\)?[Pp]assphrase\\( for \\(RSA \\)?key '.*'\\)?: ?$" "^\\(Enter \\)?[Pp]assword\\( for '\\(https?://\\)?\\(?99:.*\\)'\\)?: ?$" "^.*'s password: ?$" "^Yubikey for .*: ?$" "^Enter PIN for .*: ?$")] 1] "List of regexps matching password prompts of Git and its subprocesses.\nAlso see `magit-process-find-password-functions'." (magit . "2.8.0") (repeat (regexp)) magit-process-find-password-functions #[0 "\300\207" [nil] 1] "List of functions to try in sequence to get a password.\n\nThese functions may be called when git asks for a password, which\nis detected using `magit-process-password-prompt-regexps'. They\nare called if and only if matching the prompt resulted in the\nvalue of the 99th submatch to be non-nil. Therefore users can\ncontrol for which prompts these functions should be called by\nputting the host name in the 99th submatch, or not.\n\nIf the functions are called, then they are called in the order\ngiven, with the host name as only argument, until one of them\nreturns non-nil. If they are not called or none of them returns\nnon-nil, then the password is read from the user instead." (magit . "2.3.0") hook :options (magit-process-password-auth-source) magit-process-username-prompt-regexps #[0 "\300\207" [("^Username for '.*': ?$")] 1] "List of regexps matching username prompts of Git and its subprocesses." (magit . "2.1.0") (repeat (regexp)) magit-process-ensure-unix-line-ending #[0 "\300\207" [t] 1] "Whether Magit should ensure a unix coding system when talking to Git." (magit . "2.6.0") boolean magit-process-display-mode-line-error #[0 "\300\207" [t] 1] "Whether Magit should retain and highlight process errors in the mode line." (magit . "2.12.0") custom-declare-face magit-process-ok ((t :inherit magit-section-heading :foreground "green")) "Face for zero exit-status." magit-faces magit-process-ng ((t :inherit magit-section-heading :foreground "red")) "Face for non-zero exit-status." magit-mode-line-process ((t :inherit mode-line-emphasis)) "Face for `mode-line-process' status when Git is running for side-effects." magit-mode-line-process-error ((t :inherit error)) "Face for `mode-line-process' error status.\n\nUsed when `magit-process-display-mode-line-error' is non-nil."] 12) | |
| 16 | #@34 Keymap for `magit-process-mode'. | |
| 17 | (defvar magit-process-mode-map (byte-code "\301 \302\"\210\211\207" [magit-mode-map make-sparse-keymap set-keymap-parent] 4) (#$ . 8120)) | |
| 18 | (defvar magit-process-mode-hook nil) | |
| 19 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-process-mode-hook variable-documentation put "Hook run after entering Magit Process 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-process-mode-map definition-name magit-process-mode] 4) | |
| 20 | (defvar magit-process-mode-map (make-sparse-keymap)) | |
| 21 | (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-process-mode-abbrev-table magit-process-mode-map variable-documentation put purecopy "Keymap for `magit-process-mode'." boundp magit-process-mode-syntax-table definition-name magit-process-mode (lambda (#1=#:def-tmp-var) (defvar magit-process-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-process-mode'." (lambda (#1#) (defvar magit-process-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-process-mode'." derived-mode-parent magit-mode custom-mode-group magit-process] 5) | |
| 22 | #@246 Mode for looking at Git process output. | |
| 23 | ||
| 24 | In addition to any hooks its parent mode `magit-mode' might have run, | |
| 25 | this mode runs the hook `magit-process-mode-hook', as the final or penultimate step | |
| 26 | during initialization. | |
| 27 | ||
| 28 | \{magit-process-mode-map} | |
| 29 | (defalias 'magit-process-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 \325 C#\210\327 !\210\330\f!\210 \331 \210\332 \333 )\334\335!\207" [delay-mode-hooks major-mode mode-name magit-process-mode-map magit-process-mode-syntax-table magit-process-mode-abbrev-table make-local-variable t magit-mode magit-process-mode "Magit Process" 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 magit-imenu--process-prev-index-position-function magit-imenu--process-extract-index-name-function run-mode-hooks magit-process-mode-hook local-abbrev-table imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 9597) nil]) | |
| 30 | #@221 Display the current repository's process buffer. | |
| 31 | ||
| 32 | If that buffer doesn't exist yet, then create it. | |
| 33 | Non-interactively return the buffer and unless | |
| 34 | optional NODISPLAY is non-nil also display it. | |
| 35 | ||
| 36 | (fn &optional NODISPLAY) | |
| 37 | (defalias 'magit-process-buffer #[256 "\306 \211\204' \307\310!\211\203& \262\310\232\204% \262\311\312!!\262\202 \210)\310\313 \314\315\203a \203a @\203@ \310\262\202U r\211q\210 \316=\205N \232)\203U \211\262\210\211T\262A\262\202, \266\211\262\206o \211\317\316!)r\211q\210\n\203\201 \203\321\320 \210\202\321\316 \210\314\310\211 @\321\322!\210\323\324!\203\232 \211\202\243 \211\236A\206\243 \325\326\324!\203\273 \327\"@\206\274 \330\331\332#\202\274 \333\310\334\335 \336 &\337\340\341\342\"\211\203\326 \211\343=\202 \f\205\341 \344\345!\f\"\211\203\354 \346\340\"\202\347A\"\211\205\350!\203\211!\262\211\343=\262\262\262#\210\211\f\206 ?\205\n B\3512\314\352c\210\353\354!\210\355!\210\356\346\357\"\314\"\210\337\360\335 #\361\362\"\363\364\365\346\366\"\"!\363\364\367\346\366\"\"!\203]J\206p\370!\203hJ\206p\370!\205p\211J\212\346\357\"b\210`W\203\247\371`\325\"\206\206\372`\325\"\204\240\373`\325\n$\210\203\240\373`\362$\210\211b\266\202x)\266\211\n=\203\272\310 C\374!)\202\313\337\346\375\"\376\346\211\375\"\376\"C\244#0\210+\266+)\204\332\377!\210\211\262\207" [default-directory major-mode magit-root-section magit-process-log-max magit-insert-section--oldroot magit-insert-section--parent magit-toplevel magit--safe-default-directory nil file-name-directory directory-file-name buffer-list t 0 magit-process-mode magit-generate-new-buffer magit-process-truncate-log make-local-variable text-property-default-nonsticky processbuf class-p magit-section :type rassq error "BUG: No entry for %s in %s" magit--section-type-alist :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 "\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 get-text-property put-text-property magit-section-show parent children magit-display-buffer inhibit-read-only magit-section-initial-visibility-alist magit-insert-section--current magit-section-cache-visibility] 17 (#$ . 10845) nil]) | |
| 38 | #@28 Kill the process at point. | |
| 39 | (defalias 'magit-process-kill #[0 "\300\301!\211\205 \302!\303=\204 \304\305!\210\306\307!\210\307!\207" [magit-section-value-if process process-status run user-error "Process isn't running" magit-confirm kill-process] 3 (#$ . 13420) nil]) | |
| 40 | (defvar magit-process-raise-error nil) | |
| 41 | #@368 Call Git synchronously in a separate process, for side-effects. | |
| 42 | ||
| 43 | Option `magit-git-executable' specifies the Git executable. | |
| 44 | The arguments ARGS specify arguments to Git, they are flattened | |
| 45 | before use. | |
| 46 | ||
| 47 | Process output goes into a new section in the buffer returned by | |
| 48 | `magit-process-buffer'. If Git exits with a non-zero status, | |
| 49 | then raise an error. | |
| 50 | ||
| 51 | (fn &rest ARGS) | |
| 52 | (defalias 'magit-git #[128 "\301\302!)\207" [magit-process-raise-error t magit-call-git] 3 (#$ . 13737)]) | |
| 53 | #@503 Call Git synchronously in a separate process, and refresh. | |
| 54 | ||
| 55 | Option `magit-git-executable' specifies the Git executable and | |
| 56 | option `magit-git-global-arguments' specifies constant arguments. | |
| 57 | The arguments ARGS specify arguments to Git, they are flattened | |
| 58 | before use. | |
| 59 | ||
| 60 | After Git returns, the current buffer (if it is a Magit buffer) | |
| 61 | as well as the current repository's status buffer are refreshed. | |
| 62 | ||
| 63 | Process output goes into a new section in the buffer returned by | |
| 64 | `magit-process-buffer'. | |
| 65 | ||
| 66 | (fn &rest ARGS) | |
| 67 | (defalias 'magit-run-git #[128 "\301\211BC\302!\210\211@\303\235\203 \304\305 )\207" [magit--refresh-cache 0 magit-call-git ("init" "clone") nil magit-refresh] 3 (#$ . 14219)]) | |
| 68 | (defvar magit-pre-call-git-hook nil) | |
| 69 | #@360 Call Git synchronously in a separate process. | |
| 70 | ||
| 71 | Option `magit-git-executable' specifies the Git executable and | |
| 72 | option `magit-git-global-arguments' specifies constant arguments. | |
| 73 | The arguments ARGS specify arguments to Git, they are flattened | |
| 74 | before use. | |
| 75 | ||
| 76 | Process output goes into a new section in the buffer returned by | |
| 77 | `magit-process-buffer'. | |
| 78 | ||
| 79 | (fn &rest ARGS) | |
| 80 | (defalias 'magit-call-git #[128 "\302\303!\210\304 \305\306 \307!#)\207" [default-process-coding-system magit-git-executable run-hooks magit-pre-call-git-hook magit--process-coding-system apply magit-call-process magit-process-git-arguments] 6 (#$ . 14946)]) | |
| 81 | #@165 Call PROGRAM synchronously in a separate process. | |
| 82 | Process output goes into a new section in the buffer returned by | |
| 83 | `magit-process-buffer'. | |
| 84 | ||
| 85 | (fn PROGRAM &rest ARGS) | |
| 86 | (defalias 'magit-call-process #[385 "\302\"\211@A\211\303\304\305\306 \307\307\f&)p %\266\202\207" [inhibit-read-only default-directory magit-process-setup magit-process-finish t apply magit-process-file nil] 15 (#$ . 15573)]) | |
| 87 | #@233 Process files synchronously in a separate process. | |
| 88 | Identical to `process-file' but temporarily enable Cygwin's | |
| 89 | "noglob" option during the call and ensure unix eol | |
| 90 | conversion. | |
| 91 | ||
| 92 | (fn PROCESS &optional INFILE BUFFER DISPLAY &rest ARGS) | |
| 93 | (defalias 'magit-process-file #[1153 "\302 \303 \304\305&*\207" [default-process-coding-system process-environment magit-process-environment magit--process-coding-system apply process-file] 12 (#$ . 15983)]) | |
| 94 | (defalias 'magit-process-environment #[0 "\306!?\307 \205 \310\n \"A\205 \f\205 \311\312\313\" $\207" [default-directory magit-git-environment magit-git-executable magit-git-w32-path-hack magit-need-cygwin-noglob process-environment file-remote-p append assoc mapcar #[257 "\211\300\301!\211\203 \211\302P\202 \303\262Q\207" ["=" getenv " noglob" "noglob"] 6 "\n\n(fn VAR)"] ("CYGWIN" "MSYS")] 7]) | |
| 95 | (defvar magit-this-process nil) | |
| 96 | #@389 Call Git in a separate process. | |
| 97 | ARGS is flattened and then used as arguments to Git. | |
| 98 | ||
| 99 | The current buffer's content is used as the process' standard | |
| 100 | input. | |
| 101 | ||
| 102 | Option `magit-git-executable' specifies the Git executable and | |
| 103 | option `magit-git-global-arguments' specifies constant arguments. | |
| 104 | The remaining arguments ARGS specify arguments to Git, they are | |
| 105 | flattened before use. | |
| 106 | ||
| 107 | (fn &rest ARGS) | |
| 108 | (defalias 'magit-run-git-with-input #[128 "\306=\203\f \307ed\310#\210\311 !\203+ \312p\"\210\n\205* \313\n!\314=\205_ \315\316!\210\202 \207\317\320!\210\321 \322 \323!\324 \"\211@A\211\325 \326\327\330ed \331\331&\331 %)\266\202*\266\204\207" [system-type default-directory magit-this-process process-environment default-process-coding-system magit-git-executable windows-nt encode-coding-region utf-8-unix file-remote-p magit-start-git process-status run sleep-for 0.005 run-hooks magit-pre-call-git-hook magit-process-environment magit--process-coding-system magit-process-git-arguments magit-process-setup t magit-process-finish apply call-process-region nil inhibit-read-only] 17 (#$ . 16883)]) | |
| 109 | #@125 Call Git in a separate process and log its output to FILE. | |
| 110 | This function might have a short halflive. | |
| 111 | ||
| 112 | (fn FILE &rest ARGS) | |
| 113 | (defalias 'magit-run-git-with-logfile #[385 "\301\302\303\304D\303\305!&\210\306 \207" [magit-git-executable apply magit-process-file nil :file magit-process-git-arguments magit-refresh] 10 (#$ . 17997)]) | |
| 114 | #@432 Start Git, prepare for refresh, and return the process object. | |
| 115 | ARGS is flattened and then used as arguments to Git. | |
| 116 | ||
| 117 | Display the command line arguments in the echo area. | |
| 118 | ||
| 119 | After Git returns some buffers are refreshed: the buffer that was | |
| 120 | current when this function was called (if it is a Magit buffer | |
| 121 | and still alive), as well as the respective Magit status buffer. | |
| 122 | ||
| 123 | See `magit-start-process' for more information. | |
| 124 | ||
| 125 | (fn &rest ARGS) | |
| 126 | (defalias 'magit-run-git-async #[128 "\301\302\303\304\305!\306#\307\310G\311$\210\211\262#\210\312\313\"\207" [magit-git-executable message "Running %s %s" mapconcat identity -flatten " " remove-list-of-text-properties 0 (face) magit-start-git nil] 10 (#$ . 18339)]) | |
| 127 | #@476 Export GIT_EDITOR and start Git. | |
| 128 | Also prepare for refresh and return the process object. | |
| 129 | ARGS is flattened and then used as arguments to Git. | |
| 130 | ||
| 131 | Display the command line arguments in the echo area. | |
| 132 | ||
| 133 | After Git returns some buffers are refreshed: the buffer that was | |
| 134 | current when this function was called (if it is a Magit buffer | |
| 135 | and still alive), as well as the respective Magit status buffer. | |
| 136 | ||
| 137 | See `magit-start-process' and `with-editor' for more information. | |
| 138 | ||
| 139 | (fn &rest ARGS) | |
| 140 | (defalias 'magit-run-git-with-editor #[128 "\306 \210\307\310=\203 \204 \311\202 \n\f \f\312 \210\313!,\207" [system-type magit-cygwin-mount-points shell-file-name magit-process-popup-time magit-with-editor-envvar process-environment magit--record-separated-gitdir -1 windows-nt "cmdproxy" with-editor--setup magit-run-git-async with-editor--envvar] 4 (#$ . 19052)]) | |
| 141 | #@598 Export GIT_EDITOR and start Git. | |
| 142 | Also prepare for refresh and return the process object. | |
| 143 | ARGS is flattened and then used as arguments to Git. | |
| 144 | ||
| 145 | Display the command line arguments in the echo area. | |
| 146 | ||
| 147 | After Git returns some buffers are refreshed: the buffer that was | |
| 148 | current when this function was called (if it is a Magit buffer | |
| 149 | and still alive), as well as the respective Magit status buffer. | |
| 150 | If the sequence stops at a commit, make the section representing | |
| 151 | that commit the current section by moving `point' there. | |
| 152 | ||
| 153 | See `magit-start-process' and `with-editor' for more information. | |
| 154 | ||
| 155 | (fn &rest ARGS) | |
| 156 | (defalias 'magit-run-git-sequencer #[128 "\301\302\"\210\303\304\"\210\207" [magit-this-process apply magit-run-git-with-editor set-process-sentinel magit-sequencer-process-sentinel] 4 (#$ . 19911)]) | |
| 157 | (defvar magit-pre-start-git-hook nil) | |
| 158 | #@684 Start Git, prepare for refresh, and return the process object. | |
| 159 | ||
| 160 | If INPUT is non-nil, it has to be a buffer or the name of an | |
| 161 | existing buffer. The buffer content becomes the processes | |
| 162 | standard input. | |
| 163 | ||
| 164 | Option `magit-git-executable' specifies the Git executable and | |
| 165 | option `magit-git-global-arguments' specifies constant arguments. | |
| 166 | The remaining arguments ARGS specify arguments to Git, they are | |
| 167 | flattened before use. | |
| 168 | ||
| 169 | After Git returns some buffers are refreshed: the buffer that was | |
| 170 | current when this function was called (if it is a Magit buffer | |
| 171 | and still alive), as well as the respective Magit status buffer. | |
| 172 | ||
| 173 | See `magit-start-process' for more information. | |
| 174 | ||
| 175 | (fn INPUT &rest ARGS) | |
| 176 | (defalias 'magit-start-git #[385 "\302\303!\210\304 \305\306 \307!$)\207" [default-process-coding-system magit-git-executable run-hooks magit-pre-start-git-hook magit--process-coding-system apply magit-start-process magit-process-git-arguments] 8 (#$ . 20756)]) | |
| 177 | #@829 Start PROGRAM, prepare for refresh, and return the process object. | |
| 178 | ||
| 179 | If optional argument INPUT is non-nil, it has to be a buffer or | |
| 180 | the name of an existing buffer. The buffer content becomes the | |
| 181 | processes standard input. | |
| 182 | ||
| 183 | The process is started using `start-file-process' and then setup | |
| 184 | to use the sentinel `magit-process-sentinel' and the filter | |
| 185 | `magit-process-filter'. Information required by these functions | |
| 186 | is stored in the process object. When this function returns the | |
| 187 | process has not started to run yet so it is possible to override | |
| 188 | the sentinel and filter. | |
| 189 | ||
| 190 | After the process returns, `magit-process-sentinel' refreshes the | |
| 191 | buffer that was current when `magit-start-process' was called (if | |
| 192 | it is a Magit buffer and still alive), as well as the respective | |
| 193 | Magit status buffer. | |
| 194 | ||
| 195 | (fn PROGRAM &optional INPUT &rest ARGS) | |
| 196 | (defalias 'magit-start-process #[641 "\306\"\211@A\211?\205 \307 \310 \311\312\313\n! \n%+\314\315\"\210\316\317\"\210\320\"\210\f\321=\203? \322\323\"\210\324\325#\210\324\326p#\210\324\327 #\210\"\203\\ \324\330\331#\210\332\333#\210rq\210\334!`\335\223\210)\203\203 rq\210\336ed#\210\337!\210)\211#\332\340#\210\341!\210\211\262\266\202\207" [magit-process-connection-type default-process-coding-system process-environment process-connection-type system-type default-directory magit-process-setup magit-process-environment magit--process-coding-system apply start-file-process file-name-nondirectory with-editor-set-process-filter magit-process-filter set-process-sentinel magit-process-sentinel set-process-buffer windows-nt set-process-coding-system utf-8-unix process-put section command-buf default-dir inhibit-refresh t eieio-oset process process-mark nil process-send-region process-send-eof value magit-process-display-buffer inhibit-magit-refresh magit-this-process] 14 (#$ . 21711)]) | |
| 197 | #@19 | |
| 198 | ||
| 199 | (fn &rest ARGS) | |
| 200 | (defalias 'magit-parse-git-async #[128 "\306!\262p\307\310!\311 rq\210\211\312\313 \314 \315\316\317\f%+\320\321#\210\320\322`#\210\211\211\262)\207" [default-directory default-process-coding-system process-environment process-connection-type magit-git-executable magit-this-process magit-process-git-arguments generate-new-buffer " *temp*" magit-toplevel nil magit-process-environment magit--process-coding-system apply start-file-process "git" process-put command-buf parsed] 10 (#$ . 23582)]) | |
| 201 | #@21 | |
| 202 | ||
| 203 | (fn PROGRAM ARGS) | |
| 204 | (defalias 'magit-process-setup #[514 "\301\"\210\302\303!\211rq\210\304\305\211%\306u\210)B\207" [default-directory magit-process-set-mode-line magit-process-buffer t magit-process-insert-section nil -1] 11 (#$ . 24118)]) | |
| 205 | #@50 | |
| 206 | ||
| 207 | (fn PWD PROGRAM ARGS &optional ERRCODE ERRLOG) | |
| 208 | (defalias 'magit-process-insert-section #[1283 "\306\307dSb\210\310\311!\203 \211\202 \211\f\236A\206 \312\313\311!\2034 \314\f\"@\2065 \315\316\304#\2025 \317\307\320\321 \322\n&\323\324\325\326\"\211\203O \211\327=\202\201 \205Z \330\331! \"\211\203e \332\324\"\202 \333 \"\211\205} \334!\203z \211!\262\211\327=\262\262\262#\210\211 \206\223 \n?\205\223 @\3352 \203\255 \336\337\340\341!\342\343#\"\202\256 \344c\210\345!\345A!\232\204\306 \346A\"\347\261\210\203\fB\232\203\f\350CG\"\262\340\351!\342\352#\353\261\210\340\354D!\342\352\355\356\357 @\353#%c\210\353c\210\340\356\360A@\353#\342\352#c\210\202;\203#E\232\203#\340A@\342\352#c\210\202;\340\351!\342\352#\353\261\210\340\356\360\353#\342\352#c\210\361 \210\203J\362!\210dSb\210\363c\210\364\365!\210\366!\210\367\332\370\"\306\"\210\323\371\321 #\372\373\"\374\336\375\332\376\"\"!\374\336\377\332\376\"\"!\203\204J\206\233\201G !\203\221J\206\233\201G !\205\233\211J\212\332\370\"b\210`W\203\332\201H `\312\"\206\263\201I `\312\"\204\323\201J `\312\n$\210\203\323\201J `\373$\210\211b\266\202\243)\266\211=\203\357\307 F\201K !)\202\323\332\201L \"\201M \332\211\201L \"\201M \"C\244#0\210+\262+\207" [magit-root-section magit-insert-section--oldroot magit-insert-section--parent inhibit-read-only magit--section-type-alist magit-section-initial-visibility-alist t nil process 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 format "%3s " propertize number-to-string face magit-process-ng "run " expand-file-name file-relative-name 32 -split-at file-name-nondirectory magit-section-heading " " char-to-string help-echo mapconcat identity shell-quote-argument magit-insert-heading insert-file-contents "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" magit-insert-section--current default-directory magit-git-executable magit-git-global-arguments magit-ellipsis shell-file-name magit-section-cache-visibility boundp next-single-property-change get-text-property put-text-property magit-section-show parent children] 18 (#$ . 24375)]) | |
| 209 | (defalias 'magit-process-truncate-log #[0 "\303\304\305\"\211G\211T V\205\\ A\203R \211 \306\245V\203R \307@\304\310\"\211\203F \311!\312>\203A \304\313\"\304\314\"T|\210S\262\202F B\262)\266\211A\262\210\202 \315\305\316!\244#\207" [magit-root-section magit-process-log-max inhibit-read-only nil eieio-oref children 2 t process process-status (exit signal) start end eieio-oset reverse] 9]) | |
| 210 | #@69 Default sentinel used by `magit-start-process'. | |
| 211 | ||
| 212 | (fn PROCESS EVENT) | |
| 213 | (defalias 'magit-process-sentinel #[514 "\302!\303>\205f \211\304\305O\262\306\307\"\203 \310\311\312!!\313P!\210\314!\210=\203+ \315\316\317\"?\205f \316\320\"\321!\203G r\211q\210\322 )\202d \323\324!r\211q\210\325\304\326\327\330!\331\"\332$\216\316\333\"\322 *\262\262\207" [magit-this-process default-directory process-status (exit signal) 0 -1 string-match "^finished" message capitalize process-name " finished" magit-process-finish nil process-get inhibit-refresh command-buf buffer-live-p magit-refresh generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 default-dir] 10 (#$ . 27347)]) | |
| 214 | #@73 Special sentinel used by `magit-run-git-sequencer'. | |
| 215 | ||
| 216 | (fn PROCESS EVENT) | |
| 217 | (defalias 'magit-sequencer-process-sentinel #[514 "\301!\302>\205k \303\"\210\304!\211\205i \305!\205i r\211q\210\306\307!)\211\205g r\211q\210\310\311\312\313!B\314GT\315!\"A@@\211\316\235\203F \317\202Q \211\320\235\203P \321\202Q \322\262C\323BB!\211\205d \324\325\"b\210\326 \262)\262\262\207" [magit-git-global-arguments process-status (exit signal) magit-process-sentinel process-buffer buffer-live-p magit-mode-get-buffer magit-status-mode magit-get-section commit magit-rev-parse "HEAD" -split-at process-command ("am" "rebase") rebase-sequence ("revert" "cherry-pick") sequence nil ((status)) eieio-oref start magit-section-update-highlight] 10 (#$ . 28100)]) | |
| 218 | #@65 Default filter used by `magit-start-process'. | |
| 219 | ||
| 220 | (fn PROC STRING) | |
| 221 | (defalias 'magit-process-filter #[514 "r\301!q\210\302\303\"\210\304\"\210\305\"\210\306!b\210\307\310\311\312\"#\262\211G\211S\211\262\313Y\203: H\314U\203( \211\313W\203F c\210\202R \315 `|\210T\316Oc\210\210\306!`\316\223*\207" [inhibit-read-only process-buffer t magit-process-yes-or-no-prompt magit-process-username-prompt magit-process-password-prompt process-mark propertize magit-section process-get section 0 13 line-beginning-position nil] 8 (#$ . 28860)]) | |
| 222 | #@24 | |
| 223 | ||
| 224 | (fn PROC &rest BODY) | |
| 225 | (defalias 'magit-process-kill-on-abort '(macro . #[385 "\300 \301\302BC\303\304BB\305\306\307\310\311\312\313 DD\314BBBBF\301\315DCBB\257\207" [cl-gensym let ((make-sparse-keymap)) set-keymap-parent (minibuffer-local-map) define-key "" lambda nil (interactive) ignore-errors kill-process ((abort-recursive-edit)) minibuffer-local-map] 15 (#$ . 29416)])) | |
| 226 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit-process-kill-on-abort lisp-indent-function 1 put edebug-form-spec (form body)] 5) | |
| 227 | #@61 Forward Yes-or-No prompts to the user. | |
| 228 | ||
| 229 | (fn PROCESS STRING) | |
| 230 | (defalias 'magit-process-yes-or-no-prompt #[514 "\303\"\211\205U \304\305\306\307 \310\311\312\313\314!\315\"\316$\216\317 \320\n\"\210\321\322\310\311\323\313\314!\324\"\325\326\211&#\210\211\327\311O!)\262)\262\203M \330\202N \325\"\331P\227\")\207" [magit-process-yes-or-no-prompt-regexp max-mini-window-height minibuffer-local-map string-match 30 process-send-string match-string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 make-sparse-keymap set-keymap-parent define-key "" "\3011 \302\300!0\202 \210\202 \210\303 \207" [(error) kill-process abort-recursive-edit] 2 nil yes-or-no-p 1 "\n"] 18 (#$ . 29963)]) | |
| 231 | #@610 Use `auth-source-search' to get a password. | |
| 232 | If found, return the password. Otherwise, return nil. | |
| 233 | ||
| 234 | To use this function add it to the appropriate hook | |
| 235 | (add-hook 'magit-process-find-password-functions | |
| 236 | 'magit-process-password-auth-source) | |
| 237 | ||
| 238 | KEY typically derives from a prompt such as: | |
| 239 | Password for 'https://tarsius@bitbucket.org' | |
| 240 | in which case it would be the string | |
| 241 | tarsius@bitbucket.org | |
| 242 | which matches the ~/.authinfo.gpg entry | |
| 243 | machine bitbucket.org login tarsius password 12345 | |
| 244 | or iff that is undefined, for backward compatibility | |
| 245 | machine tarsius@bitbucket.org password 12345 | |
| 246 | ||
| 247 | (fn KEY) | |
| 248 | (defalias 'magit-process-password-auth-source #[257 "\300\301!\210\302\303\"\2059 \304\305\"\304\306\"\307\310\311\305\312\313&\206( \310\311\305\312$@\314\"\315!\2036 \211 \2027 \211\266\203\207" [require auth-source string-match "\\`\\([^@]+\\)@\\([^@]+\\)\\'" match-string 1 2 plist-get auth-source-search :max :host :user :secret functionp] 11 (#$ . 30714)]) | |
| 249 | #@349 Find a password based on prompt STRING and send it to git. | |
| 250 | Use `magit-process-password-prompt-regexps' to find a known | |
| 251 | prompt. If and only if one is found, then call functions in | |
| 252 | `magit-process-find-password-functions' until one of them returns | |
| 253 | the password. If all function return nil, then read the password | |
| 254 | from the user. | |
| 255 | ||
| 256 | (fn PROCESS STRING) | |
| 257 | (defalias 'magit-process-password-prompt #[514 "\302\"\211\205B \303\304 \305 \"\210\306\307\310\311\312\313\314 !\315\"\316\317\211&#\210\211\320\321\"\211\2054 \322\323\"\262\206< \324!\325P)\262\"\207" [magit-process-password-prompt-regexps minibuffer-local-map magit-process-match-prompt process-send-string make-sparse-keymap set-keymap-parent define-key "" make-byte-code 0 "\3011 \302\300!0\202 \210\202 \210\303 \207" vconcat vector [(error) kill-process abort-recursive-edit] 2 nil match-string 99 run-hook-with-args-until-success magit-process-find-password-functions read-passwd "\n"] 16 (#$ . 31703)]) | |
| 258 | #@60 Forward username prompts to the user. | |
| 259 | ||
| 260 | (fn PROCESS STRING) | |
| 261 | (defalias 'magit-process-username-prompt #[514 "\302\"\211\2054 \303\304 \305 \"\210\306\307\310\311\312\313\314 !\315\"\316\317\211&#\210\211\320\317\211\321 $\322P)\262\"\207" [magit-process-username-prompt-regexps minibuffer-local-map magit-process-match-prompt process-send-string make-sparse-keymap set-keymap-parent define-key "" make-byte-code 0 "\3011 \302\300!0\202 \210\202 \210\303 \207" vconcat vector [(error) kill-process abort-recursive-edit] 2 nil read-string user-login-name "\n"] 16 (#$ . 32689)]) | |
| 262 | #@128 Match STRING against PROMPTS and set match data. | |
| 263 | Return the matched string suffixed with ": ", if needed. | |
| 264 | ||
| 265 | (fn PROMPTS STRING) | |
| 266 | (defalias 'magit-process-match-prompt #[514 "\300\301\302\303\203, \203, @\203 \301\262\202 \304\"\262\210\211T\262A\262\202 \266\211\262!\205V \305\303\"\306\307\"\203D \211\202T \306\310\"\203Q \211\311P\202T \211\307P\262\207" [---truthy\? nil t 0 string-match match-string string-suffix-p ": " ":" " "] 11 (#$ . 33285)]) | |
| 267 | (defalias 'magit--process-coding-system #[0 "\206 @ A\n\203 \303\304\"\303\304\"B\202 B\207" [magit-git-output-coding-system default-process-coding-system magit-process-ensure-unix-line-ending coding-system-change-eol-conversion unix] 6]) | |
| 268 | #@40 Hook run before Git needs credentials. | |
| 269 | (defvar magit-credential-hook nil (#$ . 34013)) | |
| 270 | (defvar magit-credential-cache-daemon-process nil) | |
| 271 | #@258 Maybe start a `git-credential-cache--daemon' process. | |
| 272 | ||
| 273 | If such a process is already running or if the value of option | |
| 274 | `magit-credential-cache-daemon-socket' is nil, then do nothing. | |
| 275 | Otherwise start the process passing the value of that options | |
| 276 | as argument. | |
| 277 | (defalias 'magit-maybe-start-credential-cache-daemon #[0 "?\206 \304 !\206 \305 >?\205r \306\305 \307\310\203T \203T @\203, \306\262\202H \311!\312\236A\313\236A\314\230\205@ \211\n\230\266\203\203H \211\262\210\211T\262A\262\202 \266\211\262\206p \3151k \316\314\317 \320%0\202p \210\321\322\323\"\211\207" [magit-credential-cache-daemon-socket magit-credential-cache-daemon-process user-login-name magit-git-executable process-live-p list-system-processes nil t 0 process-attributes comm user "git-credential-cache--daemon" (debug error) start-process " *git-credential-cache--daemon*" "credential-cache--daemon" remove-hook magit-credential-hook magit-maybe-start-credential-cache-daemon] 10 (#$ . 34158)]) | |
| 278 | (add-hook 'magit-credential-hook 'magit-maybe-start-credential-cache-daemon) | |
| 279 | #@42 | |
| 280 | ||
| 281 | (fn FN NAME BUFFER PROGRAM &rest ARGS) | |
| 282 | (defalias 'tramp-sh-handle-start-file-process--magit-tramp-process-environment #[1156 "\203 \301@\302AB\"%\207\301%\207" [magit-tramp-process-environment apply append] 14 (#$ . 35230)]) | |
| 283 | (advice-add 'tramp-sh-handle-start-file-process :around 'tramp-sh-handle-start-file-process--magit-tramp-process-environment) | |
| 284 | #@67 | |
| 285 | ||
| 286 | (fn FN PROGRAM &optional INFILE DESTINATION DISPLAY &rest ARGS) | |
| 287 | (defalias 'tramp-sh-handle-process-file--magit-tramp-process-environment #[1410 "\203 \301\302\303\f B\"&\207\301&\207" [magit-tramp-process-environment apply "env" append] 16 (#$ . 35605)]) | |
| 288 | (advice-add 'tramp-sh-handle-process-file :around 'tramp-sh-handle-process-file--magit-tramp-process-environment) | |
| 289 | #@33 Keymap for `mode-line-process'. | |
| 290 | (defvar magit-mode-line-process-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [mode-line mouse-1] magit-process-buffer] 5) (#$ . 36009)) | |
| 291 | #@79 Display the git command (sans arguments) in the mode line. | |
| 292 | ||
| 293 | (fn PROGRAM ARGS) | |
| 294 | (defalias 'magit-process-set-mode-line #[514 "\232\203\f G\233\262\304\305\306!\205 \304@PP\307\310\311\n\312\313\314\315& P\316\303\"\210\317 \211\203@ \211@r\211q\210)A\266\202\202, \210\320\321!\207" [magit-git-executable magit-git-global-arguments magit-mode-line-process-map mode-line-process " " propertize file-name-nondirectory mouse-face highlight keymap help-echo "mouse-1: Show process buffer" face magit-mode-line-process magit-repository-local-set magit-mode-get-buffers force-mode-line-update t] 13 (#$ . 36218)]) | |
| 295 | #@232 Apply an error face to the string set by `magit-process-set-mode-line'. | |
| 296 | ||
| 297 | If ERROR is supplied, include it in the `mode-line-process' tooltip. | |
| 298 | ||
| 299 | If STR is supplied, it replaces the `mode-line-process' text. | |
| 300 | ||
| 301 | (fn &optional ERROR STR) | |
| 302 | (defalias 'magit-process-set-mode-line-error-status #[512 "\211\206 \302\301!\262\211\205v \303\304;\203 \305P\202 \306\"\262\307\310\311\312\"\313\314\315\316 \317\320& P\262\321\301\"\210\322 \211\203M \211@r\211q\210)A\266\202\2029 \210\323\324!\210\325 \326C\211\327\330\331\332\333\"\334\"\335$\240\210\321\336\324#\210\337\340\242\"\262\262\207" [magit-mode-line-process-map mode-line-process magit-repository-local-get format "%smouse-1: Show process buffer" "\n\n" "" " " propertize substring-no-properties 1 mouse-face highlight keymap help-echo face magit-mode-line-process-error magit-repository-local-set magit-mode-get-buffers force-mode-line-update t magit-repository-local-repository nil make-byte-code 0 "\302\303\301\242\"\210\304\305\306\300#\207" vconcat vector [remove-hook pre-command-hook magit-repository-local-set inhibit-magit-process-unset-mode-line nil] 4 inhibit-magit-process-unset-mode-line add-hook pre-command-hook] 13 (#$ . 36844)]) | |
| 303 | #@53 Remove any current error status from the mode line. | |
| 304 | (defalias 'magit-process-unset-mode-line-error-status #[0 "\206 \301\300!\211\205 \302\303\304#\305=\205 \306 \207" [mode-line-process magit-repository-local-get get-text-property 1 face magit-mode-line-process-error magit-process-unset-mode-line] 5 (#$ . 38070)]) | |
| 305 | #@44 Remove the git command from the mode line. | |
| 306 | (defalias 'magit-process-unset-mode-line #[0 "\301\302!?\205& \303\300\304\"\210\305 \211\203\" \211@r\211q\210\304)A\266\202\202 \210\306\307!\207" [mode-line-process magit-repository-local-get inhibit-magit-process-unset-mode-line magit-repository-local-set nil magit-mode-get-buffers force-mode-line-update t] 3 (#$ . 38398)]) | |
| 307 | (defvar magit-process-error-message-regexps (list "^\\*ERROR\\*: Canceled by user$" "^\\(?:error\\|fatal\\|git\\): \\(.*\\)$" "^\\(Cannot rebase:.*\\)$")) | |
| 308 | (define-error 'magit-git-error "Git error") | |
| 309 | #@76 A one-line error summary from the given SECTION. | |
| 310 | ||
| 311 | (fn PROCESS-BUF SECTION) | |
| 312 | (defalias 'magit-process-error-summary #[514 "\300!\203- rq\210\301\302\"\205) \212\301\303\"b\210\304\305\306\307\310\311\312!\313\"\314\315%\"))\206. \316\207" [buffer-live-p eieio-oref content end run-hook-wrapped magit-process-error-message-regexps make-byte-code 257 "\212\302\303\300\304\"\305#\205 \306\307!\206 ?\205 \310)\207" vconcat vector [magit-process-raise-error re-search-backward eieio-oref start t match-string-no-properties 1 suppressed] 6 "\n\n(fn RE)" "Git failed"] 10 (#$ . 38979)]) | |
| 313 | #@137 Returns the text from SECTION of the PROCESS-BUF buffer. | |
| 314 | ||
| 315 | Limited by `magit-process-error-tooltip-max-lines'. | |
| 316 | ||
| 317 | (fn PROCESS-BUF SECTION) | |
| 318 | (defalias 'magit-process-error-tooltip #[514 "\250\205N \301V\205N \302!\205N rq\210\212\303\304\"\206! \303\305\"b\210\306`\212y\210`\303\307\"V\2039 \303\307\"\202: `b\210\310\311\303\305\"\312#\203J \313u\210`)\"*\207" [magit-process-error-tooltip-max-lines 0 buffer-live-p eieio-oref content start buffer-substring-no-properties end re-search-backward "[^[:space:]\n]" t 1] 9 (#$ . 39577)]) | |
| 319 | (defvar magit-this-error nil nil) | |
| 320 | (make-variable-buffer-local 'magit-this-error) | |
| 321 | (defvar magit-process-finish-apply-ansi-colors nil) | |
| 322 | #@66 | |
| 323 | ||
| 324 | (fn ARG &optional PROCESS-BUF COMMAND-BUF DEFAULT-DIR SECTION) | |
| 325 | (defalias 'magit-process-finish #[1281 "\250\204! \305!\262\306\307\"\262\306\310\"\262\306\311\"\262\312!\262\313\314!\203+ \314!\210\315!\203\340 rq\210\316\317\320\"\211b\210\212\321\322!\210\323\324\"\210\325\326\327 \"\330\331 \332U\203] \333\202^ \334%c\210\323\316\"\210) \203v \335\317\336\"\317\337\"\"\210\317\337\"\340 \341\\U\203\226 \212\340 Tb\210\321\342!\210\343\336\324#\210)\202\334 \344\316!\332U\203\333 \345\324\346 \316\332\203\316 \203\316 @\203\272 \324\262\202\302 \347!=\262\210\211T\262A\262\202\246 \266\211\262!\204\333 \350!\210\210)\266)\332U\203\354 \351 \210\202c\352\"\n\203\353\354\"\206\376 !\210\202\351 \210 \203\355\356\326\357#C\"\210\202b\211\360=\204b\315!\2038rq\210\361\362!\211\2036r\211q\210)\210)\363\364\315!\205Lrq\210\365\344!@)\211\203Y\326\366\367!\"\202Z\370\262\371 !$\210\210\207" [inhibit-read-only magit-process-finish-apply-ansi-colors magit-process-display-mode-line-error magit-process-raise-error magit-this-error process-buffer process-get command-buf default-dir section process-exit-status fboundp dired-uncache buffer-live-p t eieio-oref start delete-char 3 set-marker-insertion-type nil propertize format "%3s" magit-section face 0 magit-process-ok magit-process-ng ansi-color-apply-on-region content end line-end-position 2 -1 eieio-oset magit-process-buffer ---truthy\? window-list window-buffer magit-section-hide magit-process-unset-mode-line magit-process-error-summary magit-process-set-mode-line-error-status magit-process-error-tooltip signal magit-git-error "%s (in %s)" suppressed magit-mode-get-buffer magit-status-mode message "%s ... [%s buffer %s for details]" where-is-internal "Hit %s to see" key-description "See" buffer-name] 16 (#$ . 40257)]) | |
| 326 | #@16 | |
| 327 | ||
| 328 | (fn PROCESS) | |
| 329 | (defalias 'magit-process-display-buffer #[257 "\301!\2055 \302!\303!?\2063 \304U\203' \305 \203! \306!\2023 \307!\2023 \304V\2053 \310\311\312$\262\207" [magit-process-popup-time process-live-p process-buffer buffer-live-p 0 minibufferp switch-to-buffer-other-window pop-to-buffer run-with-timer nil #[257 "\300!\301=\205! \302!\303!\205 \304 \203 \305!\202 \306!\262\207" [process-status run process-buffer buffer-live-p minibufferp switch-to-buffer-other-window pop-to-buffer] 4 "\n\n(fn P)"]] 7 (#$ . 42137)]) | |
| 330 | #@26 | |
| 331 | ||
| 332 | (fn SUMMARY LINE LIST) | |
| 333 | (defalias 'magit--log-action #[771 "\306\211A\203 !\262\307\"\262\202 @!\262r\310\311!q\210dSb\210\311\312\313!\2032 \211\202: \211 \236A\206: \314\315\313!\203Q \316 \"@\206R \317\320\301#\202R \321\306\322\323 \324\n&\325\326\327\330\"\211\203l \211\331=\202\236 \205w \332\333! \"\211\203\202 \334\326\"\202\234 \335\f\"\211\205\232 \336!\203\227 \211!\262\211\331=\262\262\262#\210\211 \206\260 \n?\205\260 9\3372\340\341P!\210\203\331 \211\203\325 \211@\211\342\261\210A\266\202\202\303 \210\342c\210\343\344!\210\345!\210\346\334\347\"\311\"\210\325\350\323 #\351\352\"\353\354\355\334\356\"\"!\353\354\357\334\356\"\"!\203J\206#\360!\203J\206#\360!\205#\211J\212\334\347\"b\210`W\203Z\361`\314\"\2069\362`\314\"\204S\363`\314\n$\210\203S\363`\352$\210\211b\266\202+)\266\211 =\203m\306 :\364!)\202~\325\334\365\"\366\334\211\365\"\366\"C\244#0\210+\266)\311 ;\203\220B\262\312\367\370\342#!*\207" [inhibit-read-only magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section nil mapcar magit-process-buffer t message 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 " * " "\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 get-text-property put-text-property magit-section-show parent children mapconcat identity magit-insert-section--current magit-section-cache-visibility inhibit-message] 18 (#$ . 42690)]) | |
| 334 | (provide 'magit-process) | |
