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

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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\201CDD\201D\326\201E\317\320\321\201F&    \210\311\201G\313\314\201HDD\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\203A\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 \325C#\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\202Ur\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\nB\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\310C\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\203rq\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\307F\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\202FB\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!\203Gr\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!\205ir\211q\210\306\307!)\211\205gr\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\203Fc\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\202B\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!\205Nrq\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\340rq\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)