;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib dash magit-utils magit-section] 2)
|
(defvar magit-tramp-process-environment nil)
|
(custom-declare-group 'magit-process nil "Git and other external processes used by Magit." :group 'magit)
|
#@55 Prepended to `process-environment' while running git.
|
(defvar magit-git-environment (byte-code "\301\302\"C\207" [emacs-version format "INSIDE_EMACS=%s,magit"] 3) (#$ . 676))
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable magit-git-output-coding-system funcall function #[0 "\301=\205 \302\207" [system-type windows-nt utf-8] 2] "Coding system for receiving output from Git.\n\nIf non-nil, the Git config value `i18n.logOutputEncoding' should\nbe set via `magit-git-global-arguments' to value consistent with\nthis." :package-version (magit . "2.9.0") :group magit-process :type (choice (coding-system :tag "Coding system to decode Git output") (const :tag "Use system default" nil))] 10)
|
#@174 Alist of (EXE . (PATHENTRY)).
|
This specifies what additional PATH setting needs to be added to
|
the environment in order to run the non-wrapper git executables
|
successfully.
|
(defvar magit-git-w32-path-hack nil (#$ . 1423))
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\317\306\307\310\320&\207" [custom-declare-variable magit-git-executable funcall function #[0 "\302=\203F \303\304!\211\205A \3051? \306\307\310\311\304%@\312 \"\313\306\307\314\315$@PC\2032 \241\210\2028 B B\266\2030\202A \210\316\262\206G \304\207" [system-type magit-git-w32-path-hack windows-nt executable-find "git" (error) process-lines "-c" "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x" "X" assoc "PATH=" "alias.P=!cygpath -wp \"$PATH\"" "P" nil] 9] "The Git executable used by Magit." :group magit-process :type string magit-git-global-arguments #[0 "\301\302\303\304\303\305\306=\205 \303\307DBBBBBB\207" [system-type "--no-pager" "--literal-pathspecs" "-c" "core.preloadindex=true" "log.showSignature=false" windows-nt "i18n.logOutputEncoding=UTF-8"] 8] "Global Git arguments.\n\nThe arguments set here are used every time the git executable is\nrun as a subprocess. They are placed right after the executable\nitself and before the git command - as in `git HERE... COMMAND\nREST'. See the manpage `git(1)' for valid arguments.\n\nBe careful what you add here, especially if you are using Tramp\nto connect to servers with ancient Git versions. Never remove\nanything that is part of the default value, unless you really\nknow what you are doing. And think very hard before adding\nsomething; it will be used every time Magit runs Git for any\npurpose." :package-version (magit . "2.9.0") magit-git-arguments (repeat string)] 12)
|
#@719 Whether to enable additional reporting of git errors.
|
|
Magit basically calls git for one of these two reasons: for
|
side-effects or to do something with its standard output.
|
|
When git is run for side-effects then its output, including error
|
messages, go into the process buffer which is shown when using \<magit-status-mode-map>\[magit-process].
|
|
When git's output is consumed in some way, then it would be too
|
expensive to also insert it into this buffer, but when this
|
option is non-nil and git returns with a non-zero exit status,
|
then at least its standard error is inserted into this buffer.
|
|
This is only intended for debugging purposes. Do not enable this
|
permanently, that would negatively affect performance.
|
(defvar magit-git-debug nil (#$ . 3215))
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\320\312\321& \207" [custom-declare-variable magit-prefer-remote-upstream funcall function #[0 "\300\207" [nil] 1] "Whether to favor remote branches when reading the upstream branch.\n\nThis controls whether commands that read a branch from the user\nand then set it as the upstream branch, offer a local or a remote\nbranch as default completion candidate, when they have the choice.\n\nThis affects all commands that use `magit-read-upstream-branch'\nor `magit-read-starting-point', which includes all commands that\nchange the upstream and many which create new branches." :package-version (magit . "2.4.2") :group magit-commands :type boolean magit-list-refs-sortby #[0 "\300\207" [nil] 1] "How to sort the ref collection in the prompt.\n\nThis affects commands that read a ref. More specifically, it\ncontrols the order of refs returned by `magit-list-refs', which\nis called by functions like `magit-list-branch-names' to generate\nthe collection of refs. By default, refs are sorted according to\ntheir full refname (i.e., 'refs/...').\n\nAny value accepted by the `--sort' flag of `git for-each-ref' can\nbe used. For example, \"-creatordate\" places refs with more\nrecent committer or tagger dates earlier in the list. A list of\nstrings can also be given in order to pass multiple sort keys to\n`git for-each-ref'.\n\nNote that, depending on the completion framework you use, this\nmay not be sufficient to change the order in which the refs are\ndisplayed. It only controls the order of the collection passed\nto `magit-completing-read' or, for commands that support reading\nmultiple strings, `read-from-minibuffer'. The completion\nframework ultimately determines how the collection is displayed." (magit . "2.11.0") magit-miscellanous (choice string (repeat string))] 10)
|
(defvar magit--refresh-cache nil)
|
#@23
|
|
(fn KEY &rest BODY)
|
(defalias 'magit--with-refresh-cache '(macro . #[385 "\300 \301\302\303DC\304\305\306BB\307\310\303\311\312\f!DC\313\314\f\315BB\316BB\317BBB\257EBBB\207" [cl-gensym if magit--refresh-cache let --if-let assoc ((cdr magit--refresh-cache)) (progn (cl-incf (caar magit--refresh-cache)) (cdr it)) (cl-incf (cdar magit--refresh-cache)) value macroexp-progn push cons (value) ((cdr magit--refresh-cache)) (value)] 17 (#$ . 5913)]))
|
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit--with-refresh-cache lisp-indent-function 1 put edebug-form-spec (form body)] 5)
|
#@199 The environment variable exported by `magit-with-editor'.
|
Set this to "GIT_SEQUENCE_EDITOR" if you do not want to use
|
Emacs to edit commit messages but would like to do so to edit
|
rebase sequences.
|
(defvar magit-with-editor-envvar "GIT_EDITOR" (#$ . 6529))
|
#@125 Like `with-editor' but let-bind some more variables.
|
Also respect the value of `magit-with-editor-envvar'.
|
|
(fn &rest BODY)
|
(defalias 'magit-with-editor '(macro . #[128 "\300\301\302\303BBE\207" [let ((magit-process-popup-time -1) (shell-file-name (if (and (eq system-type 'windows-nt) (not magit-cygwin-mount-points)) "cmdproxy" shell-file-name))) with-editor* magit-with-editor-envvar] 6 (#$ . 6793)]))
|
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit-with-editor lisp-indent-function 0 put edebug-form-spec (body)] 5)
|
#@347 Prepare ARGS for a function that invokes Git.
|
|
Magit has many specialized functions for running Git; they all
|
pass arguments through this function before handing them to Git,
|
to do the following.
|
|
* Flatten ARGS, removing nil arguments.
|
* Prepend `magit-git-global-arguments' to ARGS.
|
* On w32 systems, encode to `w32-ansi-code-page'.
|
|
(fn ARGS)
|
(defalias 'magit-process-git-arguments #[257 "\302\303!\"\262 \304=\203 \305\306!\203 \307\310\"\207\207" [magit-git-global-arguments system-type append -flatten windows-nt boundp w32-ansi-code-page mapcar #[257 "\301\302\303\304\"!\"\207" [w32-ansi-code-page encode-coding-string intern format "cp%d"] 7 "\n\n(fn ARG)"]] 5 (#$ . 7345)])
|
#@66 Execute Git with ARGS, returning its exit code.
|
|
(fn &rest ARGS)
|
(defalias 'magit-git-exit-code #[128 "\301\302\303\211\211\304!&\207" [magit-git-executable apply magit-process-file nil magit-process-git-arguments] 9 (#$ . 8043)])
|
#@76 Execute Git with ARGS, returning t if its exit code is 0.
|
|
(fn &rest ARGS)
|
(defalias 'magit-git-success #[128 "\300!\301U\207" [magit-git-exit-code 0] 3 (#$ . 8284)])
|
#@76 Execute Git with ARGS, returning t if its exit code is 1.
|
|
(fn &rest ARGS)
|
(defalias 'magit-git-failure #[128 "\300!\301U\207" [magit-git-exit-code 1] 3 (#$ . 8458)])
|
#@233 Execute Git with ARGS, returning the first line of its output.
|
If there is no output, return nil. If the output begins with a
|
newline, return an empty string. Like `magit-git-string' but
|
ignore `magit-git-debug'.
|
|
(fn &rest ARGS)
|
(defalias 'magit-git-str #[128 "\303!\262\203r B\304A\"\211\203$ \211@@@T\240\266\211A\202o \211@@AT\241\266\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\317\n\320\321\320D\320\322\n!&\210o?\205] eb\210\323`\324 \"*\262B\211AB\241\266\211\262\262\207\305\306!r\211q\210\307\310\311\312\313!\325\"\315$\216\316\317\n\320\321\320D\320\322!&\210o?\205\241 eb\210\323`\324 \"*\207" [magit--refresh-cache default-directory magit-git-executable -flatten assoc generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 |