| 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!\207" [require cl-lib dash magit-utils magit-section] 2) | |
| 16 | (defvar magit-tramp-process-environment nil) | |
| 17 | (custom-declare-group 'magit-process nil "Git and other external processes used by Magit." :group 'magit) | |
| 18 | #@55 Prepended to `process-environment' while running git. | |
| 19 | (defvar magit-git-environment (byte-code "\301\302\"C\207" [emacs-version format "INSIDE_EMACS=%s,magit"] 3) (#$ . 676)) | |
| 20 | (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) | |
| 21 | #@174 Alist of (EXE . (PATHENTRY)). | |
| 22 | This specifies what additional PATH setting needs to be added to | |
| 23 | the environment in order to run the non-wrapper git executables | |
| 24 | successfully. | |
| 25 | (defvar magit-git-w32-path-hack nil (#$ . 1423)) | |
| 26 | (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) | |
| 27 | #@719 Whether to enable additional reporting of git errors. | |
| 28 | ||
| 29 | Magit basically calls git for one of these two reasons: for | |
| 30 | side-effects or to do something with its standard output. | |
| 31 | ||
| 32 | When git is run for side-effects then its output, including error | |
| 33 | messages, go into the process buffer which is shown when using \<magit-status-mode-map>\[magit-process]. | |
| 34 | ||
| 35 | When git's output is consumed in some way, then it would be too | |
| 36 | expensive to also insert it into this buffer, but when this | |
| 37 | option is non-nil and git returns with a non-zero exit status, | |
| 38 | then at least its standard error is inserted into this buffer. | |
| 39 | ||
| 40 | This is only intended for debugging purposes. Do not enable this | |
| 41 | permanently, that would negatively affect performance. | |
| 42 | (defvar magit-git-debug nil (#$ . 3215)) | |
| 43 | (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) | |
| 44 | (defvar magit--refresh-cache nil) | |
| 45 | #@23 | |
| 46 | ||
| 47 | (fn KEY &rest BODY) | |
| 48 | (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)])) | |
| 49 | (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) | |
| 50 | #@199 The environment variable exported by `magit-with-editor'. | |
| 51 | Set this to "GIT_SEQUENCE_EDITOR" if you do not want to use | |
| 52 | Emacs to edit commit messages but would like to do so to edit | |
| 53 | rebase sequences. | |
| 54 | (defvar magit-with-editor-envvar "GIT_EDITOR" (#$ . 6529)) | |
| 55 | #@125 Like `with-editor' but let-bind some more variables. | |
| 56 | Also respect the value of `magit-with-editor-envvar'. | |
| 57 | ||
| 58 | (fn &rest BODY) | |
| 59 | (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)])) | |
| 60 | (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) | |
| 61 | #@347 Prepare ARGS for a function that invokes Git. | |
| 62 | ||
| 63 | Magit has many specialized functions for running Git; they all | |
| 64 | pass arguments through this function before handing them to Git, | |
| 65 | to do the following. | |
| 66 | ||
| 67 | * Flatten ARGS, removing nil arguments. | |
| 68 | * Prepend `magit-git-global-arguments' to ARGS. | |
| 69 | * On w32 systems, encode to `w32-ansi-code-page'. | |
| 70 | ||
| 71 | (fn ARGS) | |
| 72 | (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)]) | |
| 73 | #@66 Execute Git with ARGS, returning its exit code. | |
| 74 | ||
| 75 | (fn &rest ARGS) | |
| 76 | (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)]) | |
| 77 | #@76 Execute Git with ARGS, returning t if its exit code is 0. | |
| 78 | ||
| 79 | (fn &rest ARGS) | |
| 80 | (defalias 'magit-git-success #[128 "\300!\301U\207" [magit-git-exit-code 0] 3 (#$ . 8284)]) | |
| 81 | #@76 Execute Git with ARGS, returning t if its exit code is 1. | |
| 82 | ||
| 83 | (fn &rest ARGS) | |
| 84 | (defalias 'magit-git-failure #[128 "\300!\301U\207" [magit-git-exit-code 1] 3 (#$ . 8458)]) | |
| 85 | #@233 Execute Git with ARGS, returning the first line of its output. | |
| 86 | If there is no output, return nil. If the output begins with a | |
| 87 | newline, return an empty string. Like `magit-git-string' but | |
| 88 | ignore `magit-git-debug'. | |
| 89 | ||
| 90 | (fn &rest ARGS) | |
| 91 | (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 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply magit-process-file nil t magit-process-git-arguments buffer-substring-no-properties line-end-position [buffer-name kill-buffer]] 12 (#$ . 8633)]) | |
| 92 | #@63 Execute Git with ARGS, returning its output. | |
| 93 | ||
| 94 | (fn &rest ARGS) | |
| 95 | (defalias 'magit-git-output #[128 "\303!\262\203i B\304A\"\211\203$ \211@@@T\240\266\211A\202f \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!&\210\323ed\"*\262B\211AB\241\266\211\262\262\207\305\306!r\211q\210\307\310\311\312\313!\324\"\315$\216\316\317\n\320\321\320D\320\322!&\210\323ed\"*\207" [magit--refresh-cache default-directory magit-git-executable -flatten assoc generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply magit-process-file nil t magit-process-git-arguments buffer-substring-no-properties [buffer-name kill-buffer]] 12 (#$ . 9641)]) | |
| 96 | (define-error 'magit-invalid-git-boolean "Not a Git boolean") | |
| 97 | #@171 Execute Git with ARGS, returning t if it prints "true". | |
| 98 | If it prints "false", then return nil. For any other output | |
| 99 | signal `magit-invalid-git-boolean'. | |
| 100 | ||
| 101 | (fn &rest ARGS) | |
| 102 | (defalias 'magit-git-true #[128 "\300!\211\301\235\203 \302\202 \211\303\235\203 \304\202 \211\305\306\"\262\207" [magit-git-output ("true\n" "true") t ("false\n" "false") nil signal magit-invalid-git-boolean] 6 (#$ . 10488)]) | |
| 103 | #@171 Execute Git with ARGS, returning t if it prints "false". | |
| 104 | If it prints "true", then return nil. For any other output | |
| 105 | signal `magit-invalid-git-boolean'. | |
| 106 | ||
| 107 | (fn &rest ARGS) | |
| 108 | (defalias 'magit-git-false #[128 "\300!\211\301\235\203 \302\202 \211\303\235\203 \304\202 \211\305\306\"\262\207" [magit-git-output ("true\n" "true") nil ("false\n" "false") t signal magit-invalid-git-boolean] 6 (#$ . 10899)]) | |
| 109 | #@186 Execute Git with ARGS, inserting its output at point. | |
| 110 | If Git exits with a non-zero exit status, then show a message and | |
| 111 | add a section in the respective process buffer. | |
| 112 | ||
| 113 | (fn &rest ARGS) | |
| 114 | (defalias 'magit-git-insert #[128 "\303!\262\203\223 \304C\305\306\307\310\311!\312\"\313$\216\211\314\315!\240\210\316\242!\210\317\320 \304\321\242D\304&\211\306V\203\216 \322\323\242!\203\210 \324\325!r\211q\210\305\306\326\310\311!\327\"\313$\216\330\242!\210db\210\331!\203e \332 !\202o \333\334\335\"\205o \336\337!*\262\262\304r\340\321!q\210\341\n \242%\210*\342\343\"\266\211\262)\207\317\320 \304\321\304D\304&\207" [magit-git-debug magit-git-executable default-directory magit-process-git-arguments nil make-byte-code 0 "\3011\n \302\300\242!0\207\210\303\207" vconcat vector [(error) delete-file nil] 2 make-temp-file "magit-stderr" delete-file apply magit-process-file t "Git failed" file-exists-p generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] insert-file-contents functionp buffer-string run-hook-wrapped magit-process-error-message-regexps #[257 "\300\301\302#\207" [re-search-backward nil t] 5 "\n\n(fn RE)"] match-string-no-properties 1 magit-process-buffer magit-process-insert-section message "%s"] 11 (#$ . 11311)]) | |
| 115 | #@178 Execute Git with ARGS, returning the first line of its output. | |
| 116 | If there is no output, return nil. If the output begins with a | |
| 117 | newline, return an empty string. | |
| 118 | ||
| 119 | (fn &rest ARGS) | |
| 120 | (defalias 'magit-git-string #[128 "\302!\262\203h B\303A\"\211\203$ \211@@@T\240\266\211A\202e \211@@AT\241\266\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\"\210o?\205S eb\210\317`\320 \"*\262B\211AB\241\266\211\262\262\207\304\305!r\211q\210\306\307\310\311\312!\321\"\314$\216\315\316\"\210o?\205\215 eb\210\317`\320 \"*\207" [magit--refresh-cache default-directory -flatten assoc generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply magit-git-insert buffer-substring-no-properties line-end-position [buffer-name kill-buffer]] 10 (#$ . 12609)]) | |
| 121 | #@252 Execute Git with ARGS, returning its output as a list of lines. | |
| 122 | Empty lines anywhere in the output are omitted. | |
| 123 | ||
| 124 | If Git exits with a non-zero exit status, then report show a | |
| 125 | message and add a section in the respective process buffer. | |
| 126 | ||
| 127 | (fn &rest ARGS) | |
| 128 | (defalias 'magit-git-lines #[128 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\210\313\314 \315\316#*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply magit-git-insert split-string buffer-string "\n" t] 8 (#$ . 13459)]) | |
| 129 | #@258 Execute Git with ARGS, returning its null-separated output as a list. | |
| 130 | Empty items anywhere in the output are omitted. | |
| 131 | ||
| 132 | If Git exits with a non-zero exit status, then report show a | |
| 133 | message and add a section in the respective process buffer. | |
| 134 | ||
| 135 | (fn &rest ARGS) | |
| 136 | (defalias 'magit-git-items #[128 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\210\313\314 \315\316#*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply magit-git-insert split-string buffer-string " " t] 8 (#$ . 14044)]) | |
| 137 | #@330 Execute Git with ARGS, inserting washed output at point. | |
| 138 | Actually first insert the raw output at point. If there is no | |
| 139 | output, call `magit-cancel-section'. Otherwise temporarily narrow | |
| 140 | the buffer to the inserted text, move to its beginning, and then | |
| 141 | call function WASHER with ARGS as its sole argument. | |
| 142 | ||
| 143 | (fn WASHER &rest ARGS) | |
| 144 | (defalias 'magit-git-wash #[385 "`\300!\262\301!\210`U\203 \302 \202; n\204 \303c\210\214\211`}\210\211b\210!\210)`U\2046 `TU\2039 \302 \210\304 \207" [-flatten magit-git-insert magit-cancel-section "\n" magit-maybe-make-margin-overlay] 5 (#$ . 14634)]) | |
| 145 | (byte-code "\300\301\302\303#\300\207" [function-put magit-git-wash lisp-indent-function 1] 4) | |
| 146 | #@22 | |
| 147 | ||
| 148 | (fn &optional RAW) | |
| 149 | (defalias 'magit-git-version #[256 "\301\3021 \303\304!\305\301O0\202 \210\301)\211\205* \203 \211\202* \306\307\"\205* \310\311\"\207" [magit-git-global-arguments nil (error) magit-git-string "version" 12 string-match "^\\([0-9]+\\.[0-9]+\\.[0-9]+\\)" match-string 1] 5 (#$ . 15328)]) | |
| 150 | #@12 | |
| 151 | ||
| 152 | (fn KEY) | |
| 153 | (defalias 'magit-config-get-from-cached-list #[257 "\301\302\303\304\305\211%\302\306\304\305\211%\262\262\203\222 \307 \310B\311A\"\211\2034 \211@@@T\240\266\211A\202\213 \211@@AT\241\266\312\313\314\"\315\316\317\320#\211\203x \211@\321\322\"\323O\203a T\324O\202b \325\326\301 \"C\244#\266A\266\202\202G \210\211\262B\211AB\241\266\211\262\262\262\202\320 \312\313\314\"\315\316\317\320#\211\203\314 \211@\321\322\"\323O\203\265 T\324O\202\266 \325\326\301 \"C\244#\266A\266\202\202\233 \210\211\262\"\207" [magit--refresh-cache gethash replace-regexp-in-string "\\`[^.]+" downcase t "[^.]+\\'" magit-toplevel config assoc make-hash-table :test equal magit-git-items "config" "--list" "-z" cl-position 10 0 nil "" puthash] 16 (#$ . 15648)]) | |
| 154 | #@74 Return the value of the Git variable specified by KEYS. | |
| 155 | ||
| 156 | (fn &rest KEYS) | |
| 157 | (defalias 'magit-get #[128 "\300\301\302\"!@\207" [last apply magit-get-all] 5 (#$ . 16462)]) | |
| 158 | #@75 Return all values of the Git variable specified by KEYS. | |
| 159 | ||
| 160 | (fn &rest KEYS) | |
| 161 | (defalias 'magit-get-all #[128 "\302@\203 \303\304@\"\205 \211A\262\242\305\306\307# \203) \204) \310!\2020 \311\312\313\314%)\207" [magit-git-debug magit--refresh-cache nil string-prefix-p "--" mapconcat identity "." magit-config-get-from-cached-list magit-git-items "config" "-z" "--get-all"] 10 (#$ . 16636)]) | |
| 162 | #@82 Return the boolean value of the Git variable specified by KEYS. | |
| 163 | ||
| 164 | (fn &rest KEYS) | |
| 165 | (defalias 'magit-get-boolean #[128 "\301\302\303#\203 \304\305!!@\306\232\202 \307\310\311#\306\232\207" [magit--refresh-cache mapconcat identity "." last magit-config-get-from-cached-list "true" magit-git-str "config" "--bool"] 6 (#$ . 17042)]) | |
| 166 | #@86 Set the value of the Git variable specified by KEYS to VALUE. | |
| 167 | ||
| 168 | (fn VALUE &rest KEYS) | |
| 169 | (defalias 'magit-set #[385 "\211@\203 \300\301@\"\205 \211A\262\242\302\303\304#\203' \305\306$\210\202. \305\306\307$\210\207" [string-prefix-p "--" mapconcat identity "." magit-git-success "config" "--unset"] 9 (#$ . 17381)]) | |
| 170 | (byte-code "\300\301\302\303#\300\207" [function-put magit-get gv-expander #[385 "\300\301\302$\207" [gv--defsetter magit-get #[385 "\300BB\207" [magit-set] 5 "\n\n(fn VAL &rest KEYS)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4) | |
| 171 | #@89 Set all values of the Git variable specified by KEYS to VALUES. | |
| 172 | ||
| 173 | (fn VALUES &rest KEYS) | |
| 174 | (defalias 'magit-set-all #[385 "\211@\203 \300\301@\"\205 \211A\262\242\302\303\304#\305!\203% \306\307\310$\210\211\205< \211@\306\307\311%\210A\266\202\202& \262\207" [string-prefix-p "--" mapconcat identity "." magit-get magit-call-git "config" "--unset-all" "--add"] 12 (#$ . 17937)]) | |
| 175 | #@23 | |
| 176 | ||
| 177 | (fn &optional FILE) | |
| 178 | (defalias 'magit--safe-default-directory #[256 "\30120 \302\303\206 !!\304\305!\204, \306\307!!\262\232\203& \310\301\304\"\210\262\202 \266\2020\207" [default-directory unsafe-default-dir file-name-as-directory expand-file-name nil magit-file-accessible-directory-p file-name-directory directory-file-name throw] 6 (#$ . 18336)]) | |
| 179 | #@24 | |
| 180 | ||
| 181 | (fn FILE &rest BODY) | |
| 182 | (defalias 'magit--with-safe-default-directory '(macro . #[385 "\300\301\302DDCBB\207" [when-let default-directory magit--safe-default-directory] 6 (#$ . 18707)])) | |
| 183 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit--with-safe-default-directory lisp-indent-function 1 put edebug-form-spec (form body)] 5) | |
| 184 | #@338 Return the absolute and resolved path of the .git directory. | |
| 185 | ||
| 186 | If the `GIT_DIR' environment variable is define then return that. | |
| 187 | Otherwise return the .git directory for DIRECTORY, or if that is | |
| 188 | nil, then for `default-directory' instead. If the directory is | |
| 189 | not located inside a Git repository, then return nil. | |
| 190 | ||
| 191 | (fn &optional DIRECTORY) | |
| 192 | (defalias 'magit-gitdir #[256 "\211\206 \301 )\207" [default-directory magit-git-dir] 2 (#$ . 19063)]) | |
| 193 | #@286 Return the absolute and resolved path of the .git directory. | |
| 194 | ||
| 195 | If the `GIT_DIR' environment variable is define then return that. | |
| 196 | Otherwise return the .git directory for `default-directory'. If | |
| 197 | the directory is not located inside a Git repository, then return | |
| 198 | nil. | |
| 199 | ||
| 200 | (fn &optional PATH) | |
| 201 | (defalias 'magit-git-dir #[256 "\203p \302E\303A\"\211\203 \211@@@T\240\266\211A\202m \211@@AT\241\266\304\305!\211\205] \306\307!\211\205[ \310\311!!\262\312!\204M \312 !P\262\203Z \313\314!\"\202[ \211\262)B\211AB\241\266\211\262\262\207\304\305!\211\205\243 \306\307!\211\205\241 \310\311!!\262\312!\204\223 \312 !P\262\203\240 \313\314!\"\202\241 \211\262)\207" [magit--refresh-cache default-directory magit-git-dir assoc magit--safe-default-directory nil magit-rev-parse-safe "--git-dir" file-name-as-directory magit-expand-git-file-name file-remote-p expand-file-name convert-standard-filename] 10 (#$ . 19513)]) | |
| 202 | (defvar magit--separated-gitdirs nil) | |
| 203 | (defalias 'magit--record-separated-gitdir #[0 "\301 \302 \303\304!!\203 \305!\262\306\307\310\311\312&\313\314\315\"!\232?\205. BB\211\207" [magit--separated-gitdirs magit-toplevel magit-git-dir file-symlink-p directory-file-name file-truename cl-delete :key car :test equal file-name-as-directory expand-file-name ".git"] 9]) | |
| 204 | #@911 Return the absolute path to the toplevel of the current repository. | |
| 205 | ||
| 206 | From within the working tree or control directory of a repository | |
| 207 | return the absolute path to the toplevel directory of the working | |
| 208 | tree. As a special case, from within a bare repository return | |
| 209 | the control directory instead. When called outside a repository | |
| 210 | then return nil. | |
| 211 | ||
| 212 | When optional DIRECTORY is non-nil then return the toplevel for | |
| 213 | that directory instead of the one for `default-directory'. | |
| 214 | ||
| 215 | Try to respect the option `find-file-visit-truename', i.e. when | |
| 216 | the value of that option is nil, then avoid needlessly returning | |
| 217 | the truename. When a symlink to a sub-directory of the working | |
| 218 | tree is involved, or when called from within a sub-directory of | |
| 219 | the gitdir or from the toplevel of a gitdir, which itself is not | |
| 220 | located within the working tree, then it is not possible to avoid | |
| 221 | returning the truename. | |
| 222 | ||
| 223 | (fn &optional DIRECTORY) | |
| 224 | (defalias 'magit-toplevel #[256 "\203\374 \211\206 \304B\305A\"\211\203# \211@@@T\240\266\211A\202\371 \211@@AT\241\266\306!\211\205\351 \307\310!\211\203\222 \311\312!\262\n\204\206 \313\314!\204\206 \315\307\316!!\262\317!\203a \320 !P\202d \321!\262\211\307\316!\322\230\205~ \307\310!\211\205| \312!\230\262)\203\206 \211\202\215 \320 !\315!P\262\202\347 \307\323!\211\205\345 \315\317!\203\252 \320 !\312!P\202\255 \321!!\262\324 \203\271 \211\202\345 \321\325\"\326!\205\306 \327!\211\203\326 \211\330\232\204\326 \331!\202\343 \332 \"@\206\343 \331\333!!\266\202\262\262)B\211AB\241\266\211\262\262\207\306!\211\205\270\307\310!\211\203a\311\312!\262\n\204U\313\314!\204U\315\307\316!!\262\317!\2030\320 !P\2023\321!\262\211\307\316!\322\230\205M\307\310!\211\205K\312!\230\262)\203U\211\202\\\320 !\315!P\262\202\266\307\323!\211\205\264\315\317!\203y\320 !\312!P\202|\321!!\262\324 \203\210\211\202\264\321\325\"\326!\205\225\327!\211\203\245\211\330\232\204\245\331!\202\262\332 \"@\206\262\331\333!!\266\202\262\262)\207" [magit--refresh-cache default-directory find-file-visit-truename magit--separated-gitdirs magit-toplevel assoc magit--safe-default-directory magit-rev-parse-safe "--show-toplevel" nil magit-expand-git-file-name getenv "GIT_WORK_TREE" file-name-as-directory "--show-cdup" file-name-absolute-p file-remote-p expand-file-name "" "--git-dir" magit-bare-repo-p "gitdir" file-exists-p magit-file-line ".git" file-name-directory rassoc directory-file-name] 11 (#$ . 20843)]) | |
| 225 | #@19 | |
| 226 | ||
| 227 | (fn &rest BODY) | |
| 228 | (defalias 'magit-with-toplevel '(macro . #[128 "\300\301!\302\303BC\304\302\305DCBB\306BBBE\207" [cl-gensym "toplevel" let ((magit-toplevel)) if default-directory ((magit--not-inside-repository-error))] 9 (#$ . 23354)])) | |
| 229 | (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\313\"\207" [function-put magit-with-toplevel lisp-indent-function defun put edebug-form-spec (body) define-error magit-outside-git-repo "Not inside Git repository" magit-git-executable-not-found "Git executable cannot be found (see https://magit.vc/goto/e6a78ed2)"] 5) | |
| 230 | (defalias 'magit--not-inside-repository-error #[0 "\302!\203 \303\304 \"\207\303\305\"\207" [magit-git-executable default-directory executable-find signal magit-outside-git-repo magit-git-executable-not-found] 3]) | |
| 231 | #@246 Return t if `default-directory' is below the repository directory. | |
| 232 | If it is below the working directory, then return nil. | |
| 233 | If it isn't below either, then signal an error unless NOERROR | |
| 234 | is non-nil, in which case return nil. | |
| 235 | ||
| 236 | (fn &optioal NOERROR) | |
| 237 | (defalias 'magit-inside-gitdir-p #[514 "\301!\205! \302 \211\203 \303\"\202 \203 \304\202 \305\306\"\262\207" [default-directory magit--assert-default-directory magit-git-dir file-in-directory-p nil signal magit-outside-git-repo] 6 (#$ . 24169)]) | |
| 238 | #@247 Return t if `default-directory' is below the working directory. | |
| 239 | If it is below the repository directory, then return nil. | |
| 240 | If it isn't below either, then signal an error unless NOERROR | |
| 241 | is non-nil, in which case return nil. | |
| 242 | ||
| 243 | (fn &optional NOERROR) | |
| 244 | (defalias 'magit-inside-worktree-p #[256 "\301!\205 \3021 \303\304!0\207\210\211?\205 \305\306\"\207" [default-directory magit--assert-default-directory (magit-invalid-git-boolean) magit-rev-parse-true "--is-inside-work-tree" signal magit-outside-git-repo] 4 (#$ . 24678)]) | |
| 245 | #@233 Return t if the current repository is bare. | |
| 246 | If it is non-bare, then return nil. If `default-directory' | |
| 247 | isn't below a Git repository, then signal an error unless | |
| 248 | NOERROR is non-nil, in which case return nil. | |
| 249 | ||
| 250 | (fn &optional NOERROR) | |
| 251 | (defalias 'magit-bare-repo-p #[256 "\301!\205 \3021 \303\304!0\207\210\211?\205 \305\306\"\207" [default-directory magit--assert-default-directory (magit-invalid-git-boolean) magit-rev-parse-true "--is-bare-repository" signal magit-outside-git-repo] 4 (#$ . 25210)]) | |
| 252 | #@26 | |
| 253 | ||
| 254 | (fn &optional NOERROR) | |
| 255 | (defalias 'magit--assert-default-directory #[256 "\301!\206' \211?\205' \302!\303\203 \304\202 \305\306\203! \307\202\" \310E\"\262\207" [default-directory file-directory-p file-exists-p signal file-error file-missing "Running git in directory" "Not a directory" "No such file or directory"] 7 (#$ . 25720)]) | |
| 256 | #@164 Return t if DIRECTORY is a Git repository. | |
| 257 | When optional NON-BARE is non-nil also return nil if DIRECTORY is | |
| 258 | a bare repository. | |
| 259 | ||
| 260 | (fn DIRECTORY &optional NON-BARE) | |
| 261 | (defalias 'magit-git-repo-p #[513 "\300!\2055 \301\302\303\"!\2065 \300\302\303\"!\2065 \211?\2055 \301\302\304\"!\2055 \300\302\305\"!\2055 \300\302\306\"!\207" [file-directory-p file-regular-p expand-file-name ".git" "HEAD" "refs" "objects"] 6 (#$ . 26069)]) | |
| 262 | (defvar magit-buffer-revision nil nil) | |
| 263 | (make-variable-buffer-local 'magit-buffer-revision) | |
| 264 | (defvar magit-buffer-refname nil nil) | |
| 265 | (make-variable-buffer-local 'magit-buffer-refname) | |
| 266 | (defvar magit-buffer-file-name nil nil) | |
| 267 | (byte-code "\300\301!\210\302\303\304\305#\210\302\306\304\305#\210\302\301\304\305#\207" [make-variable-buffer-local magit-buffer-file-name put magit-buffer-revision permanent-local t magit-buffer-refname] 4) | |
| 268 | #@352 Return the path of FILE relative to the repository root. | |
| 269 | ||
| 270 | If optional FILE is nil or omitted, return the relative path of | |
| 271 | the file being visited in the current buffer, if any, else nil. | |
| 272 | If the file is not inside a Git repository, then return nil. | |
| 273 | ||
| 274 | If TRACKED is non-nil, return the path only if it matches a | |
| 275 | tracked file. | |
| 276 | ||
| 277 | (fn &optional FILE TRACKED) | |
| 278 | (defalias 'magit-file-relative-name #[512 "\204 r\303 \206 pq\210\206 \206 \304\305!\205 \n\262)\205B \211\203/ \306\307!!\205B \310\311\312\313!!!!\211\205@ \307\"\262\207" [magit-buffer-file-name buffer-file-name default-directory buffer-base-buffer derived-mode-p dired-mode magit-file-tracked-p file-relative-name magit-toplevel magit--safe-default-directory directory-file-name file-name-directory] 7 (#$ . 26936)]) | |
| 279 | #@13 | |
| 280 | ||
| 281 | (fn FILE) | |
| 282 | (defalias 'magit-file-tracked-p #[257 "\300\301\302#\207" [magit-git-success "ls-files" "--error-unmatch"] 5 (#$ . 27729)]) | |
| 283 | #@19 | |
| 284 | ||
| 285 | (fn &rest ARGS) | |
| 286 | (defalias 'magit-list-files #[128 "\300\301\302\303\304%\207" [apply magit-git-items "ls-files" "-z" "--full-name"] 7 (#$ . 27872)]) | |
| 287 | (defalias 'magit-tracked-files #[0 "\300\301!\207" [magit-list-files "--cached"] 2]) | |
| 288 | #@28 | |
| 289 | ||
| 290 | (fn &optional ALL FILES) | |
| 291 | (defalias 'magit-untracked-files #[512 "\300\301?\205 \302\303$\207" [magit-list-files "--other" "--exclude-standard" "--"] 7 (#$ . 28115)]) | |
| 292 | #@34 | |
| 293 | ||
| 294 | (fn &optional NOMODULES FILES) | |
| 295 | (defalias 'magit-unstaged-files #[512 "\300\301\302\303\205 \304\305&\207" [magit-git-items "diff-files" "-z" "--name-only" "--ignore-submodules" "--"] 9 (#$ . 28292)]) | |
| 296 | #@34 | |
| 297 | ||
| 298 | (fn &optional NOMODULES FILES) | |
| 299 | (defalias 'magit-staged-files #[512 "\300\301\302\303\304\205 \305\306 \307&\207" [magit-git-items "diff-index" "-z" "--name-only" "--cached" "--ignore-submodules" magit-headish "--"] 11 (#$ . 28505)]) | |
| 300 | #@19 | |
| 301 | ||
| 302 | (fn &rest ARGS) | |
| 303 | (defalias 'magit-binary-files #[128 "\300\301\302\303\300\304\305\306\307\310\n&\"\"\207" [apply append mapcar #[257 "\300\301\"\205\f \302\303\"C\207" [string-match "^- - \\(.+\\)" match-string 1] 4 "\n\n(fn IT)"] magit-git-items "diff" "-z" "--numstat" "--ignore-submodules"] 12 (#$ . 28752)]) | |
| 304 | (defalias 'magit-unmerged-files #[0 "\300\301\302\303\304$\207" [magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=U"] 5]) | |
| 305 | (defalias 'magit-ignored-files #[0 "\300\301\302\303\304\305\306&\207" [magit-git-items "ls-files" "-z" "--others" "--ignored" "--exclude-standard" "--directory"] 7]) | |
| 306 | #@12 | |
| 307 | ||
| 308 | (fn REV) | |
| 309 | (defalias 'magit-revision-files #[257 "\301 \211\203 \211\302\303\304\305\306%)\202 \307 \207" [default-directory magit-toplevel magit-git-items "ls-tree" "-z" "-r" "--name-only" magit--not-inside-repository-error] 8 (#$ . 29380)]) | |
| 310 | #@292 Return list of files the have changed between two revisions. | |
| 311 | If OTHER-REV is non-nil, REV-OR-RANGE should be a revision, not a | |
| 312 | range. Otherwise, it can be any revision or range accepted by | |
| 313 | "git diff" (i.e., <rev>, <revA>..<revB>, or <revA>...<revB>). | |
| 314 | ||
| 315 | (fn REV-OR-RANGE &optional OTHER-REV) | |
| 316 | (defalias 'magit-changed-files #[513 "\301 \211\203 \211\302\303\304\305%)\202 \306 \207" [default-directory magit-toplevel magit-git-items "diff" "-z" "--name-only" magit--not-inside-repository-error] 9 (#$ . 29635)]) | |
| 317 | #@18 | |
| 318 | ||
| 319 | (fn REVA REVB) | |
| 320 | (defalias 'magit-renamed-files #[514 "\300\301\302\303\304\305\306\307\310\311 &\"\"\207" [mapcar #[257 "\211A@\3008B\207" [2] 4 "\n\n(fn IT)"] -partition 3 magit-git-items "diff-tree" "-r" "--diff-filter=R" "-z" "-M"] 14 (#$ . 30158)]) | |
| 321 | #@19 | |
| 322 | ||
| 323 | (fn &rest ARGS) | |
| 324 | (defalias 'magit-file-status #[128 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\212\311\312\313#\210)`\314\315\314w\303V\203a fTf\316\\`{\314u\210\317>\203P `\262\315\314w\210\211`{FB\262\314u\210\202Y \211\314FB\262\266`\262\202 \262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-git-insert "status" "-z" nil "[:print:]" 3 (82 67)] 11 (#$ . 30423)]) | |
| 325 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable magit-cygwin-mount-points funcall function #[0 "\305=\2056 \306\307\310\311 \n\"\312\313 \314\"@\315\316 \317#)\266\203?\2050 \3201. \313\321!0\2020 \210\315)\"\322\323\324$\207" [system-type magit-git-environment process-environment magit-git-executable inhibit-changing-match-data windows-nt cl-sort mapcar #[257 "\300\301\"\203 \302\303\304\"!\302\303\305\"!B\207\306\307\310\311$\207" [string-match "^\\(.*\\) on \\(.*\\) type" file-name-as-directory match-string 2 1 lwarn (magit) :error "Failed to parse Cygwin mount: %S"] 6 "\n\n(fn IT)"] append "\\`[a-zA-Z]:" process-lines "--exec-path" nil t string-match (error) "mount" > :key #[257 "\211@A\211\211G\266\202\207" [] 6 "\n\n(fn ARG0)"]] 10] "Alist of (CYGWIN . WIN32) directory names.\nSorted from longest to shortest CYGWIN name." :package-version (magit . "2.3.0") :group magit-process :type (alist :key-type string :value-type directory)] 10) | |
| 326 | #@17 | |
| 327 | ||
| 328 | (fn FILENAME) | |
| 329 | (defalias 'magit-expand-git-file-name #[257 "\301!\204 \302!\262\303\304\305$\211\203: \211A\262\242\211\2034 \211\203. \211G\306OP\202/ \262\2025 \262\202; \207" [magit-cygwin-mount-points file-name-absolute-p expand-file-name cl-assoc :test #[514 "\300\"\207" [string-prefix-p] 5 "\n\n(fn F CYG)"] nil] 8 (#$ . 31931)]) | |
| 330 | #@192 Convert FILENAME so that it can be passed to git. | |
| 331 | 1. If it's a remote filename, then remove the remote part. | |
| 332 | 2. Deal with an `windows-nt' Emacs vs. Cygwin Git incompatibility. | |
| 333 | ||
| 334 | (fn FILENAME) | |
| 335 | (defalias 'magit-convert-filename-for-git #[257 "\301!\203L \302\303\304$\211\203C \211A\262\242\211\2036 \211\203) G\305OP\2021 \306\307\"\2061 \262\202> \306\307\"\206> \262\202K \306\307\"\206K \207\207" [magit-cygwin-mount-points file-name-absolute-p cl-rassoc :test #[514 "\300\"\207" [string-prefix-p] 5 "\n\n(fn F WIN)"] nil file-remote-p localname] 8 (#$ . 32294)]) | |
| 336 | #@13 | |
| 337 | ||
| 338 | (fn PATH) | |
| 339 | (defalias 'magit-decode-git-path #[257 "\211\302H\303=\203 \304\305!\206 @\306#\207\207" [magit-git-output-coding-system default-process-coding-system 0 34 decode-coding-string read t] 5 (#$ . 32884)]) | |
| 340 | (defalias 'magit-file-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\"\202\" \211\205\" \301\305\"\205\" \306!\207" [magit-current-section magit-section-match-1 file eieio-oref value hunk magit-section-parent-value] 4]) | |
| 341 | (defalias 'magit-current-file #[0 "\301 \206 \302 \206 \303\304!\205 \3058@\207" [magit-refresh-args magit-file-relative-name magit-file-at-point derived-mode-p magit-log-mode 2] 2]) | |
| 342 | #@63 Return t if there is no commit in the current Git repository. | |
| 343 | (defalias 'magit-no-commit-p #[0 "\300\301!?\207" [magit-rev-verify "HEAD"] 2 (#$ . 33527)]) | |
| 344 | #@52 Return t if COMMIT is a merge commit. | |
| 345 | ||
| 346 | (fn COMMIT) | |
| 347 | (defalias 'magit-merge-commit-p #[257 "\300!G\301V\207" [magit-commit-parents 1] 3 (#$ . 33688)]) | |
| 348 | #@168 Return t if there are any staged changes. | |
| 349 | If optional FILES is non-nil, then only changes to those files | |
| 350 | are considered. | |
| 351 | ||
| 352 | (fn &optional IGNORE-SUBMODULES &rest FILES) | |
| 353 | (defalias 'magit-anything-staged-p #[384 "\300\301\302\303\205 \304\305&\207" [magit-git-failure "diff" "--quiet" "--cached" "--ignore-submodules" "--"] 9 (#$ . 33845)]) | |
| 354 | #@170 Return t if there are any unstaged changes. | |
| 355 | If optional FILES is non-nil, then only changes to those files | |
| 356 | are considered. | |
| 357 | ||
| 358 | (fn &optional IGNORE-SUBMODULES &rest FILES) | |
| 359 | (defalias 'magit-anything-unstaged-p #[384 "\300\301\302\205 \303\304%\207" [magit-git-failure "diff" "--quiet" "--ignore-submodules" "--"] 8 (#$ . 34194)]) | |
| 360 | #@180 Return t if there are any staged or unstaged changes. | |
| 361 | If optional FILES is non-nil, then only changes to those files | |
| 362 | are considered. | |
| 363 | ||
| 364 | (fn &optional IGNORE-SUBMODULES &rest FILES) | |
| 365 | (defalias 'magit-anything-modified-p #[384 "\300\301#\206 \300\302#\207" [apply magit-anything-staged-p magit-anything-unstaged-p] 6 (#$ . 34530)]) | |
| 366 | #@143 Return t if there are any merge conflicts. | |
| 367 | If optional FILES is non-nil, then only conflicts in those files | |
| 368 | are considered. | |
| 369 | ||
| 370 | (fn &rest FILES) | |
| 371 | (defalias 'magit-anything-unmerged-p #[128 "\300\301\302#\205 \303\207" [magit-git-string "ls-files" "--unmerged" t] 5 (#$ . 34869)]) | |
| 372 | #@15 | |
| 373 | ||
| 374 | (fn MODULE) | |
| 375 | (defalias 'magit-module-worktree-p #[257 "\301 \211\203 \211\302\303\211\304\"!!)\202 \305 \207" [default-directory magit-toplevel file-exists-p expand-file-name ".git" magit--not-inside-repository-error] 7 (#$ . 35153)]) | |
| 376 | #@15 | |
| 377 | ||
| 378 | (fn MODULE) | |
| 379 | (defalias 'magit-module-no-worktree-p #[257 "\300!?\207" [magit-module-worktree-p] 3 (#$ . 35399)]) | |
| 380 | (defalias 'magit-ignore-submodules-p #[0 "\301\302\"\207" [magit-diff-section-arguments cl-find-if #[257 "\300\301\"\207" [string-prefix-p "--ignore-submodules"] 4 "\n\n(fn ARG)"]] 3]) | |
| 381 | #@115 Execute `git rev-parse ARGS', returning first line of output. | |
| 382 | If there is no output, return nil. | |
| 383 | ||
| 384 | (fn &rest ARGS) | |
| 385 | (defalias 'magit-rev-parse #[128 "\300\301\302#\207" [apply magit-git-string "rev-parse"] 5 (#$ . 35708)]) | |
| 386 | #@169 Execute `git rev-parse ARGS', returning first line of output. | |
| 387 | If there is no output, return nil. Like `magit-rev-parse' but | |
| 388 | ignore `magit-git-debug'. | |
| 389 | ||
| 390 | (fn &rest ARGS) | |
| 391 | (defalias 'magit-rev-parse-safe #[128 "\300\301\302#\207" [apply magit-git-str "rev-parse"] 5 (#$ . 35937)]) | |
| 392 | #@159 Execute `git rev-parse ARGS', returning t if it prints "true". | |
| 393 | If it prints "false", then return nil. For any other output | |
| 394 | signal an error. | |
| 395 | ||
| 396 | (fn &rest ARGS) | |
| 397 | (defalias 'magit-rev-parse-true #[128 "\300\301\"\207" [magit-git-true "rev-parse"] 4 (#$ . 36222)]) | |
| 398 | #@159 Execute `git rev-parse ARGS', returning t if it prints "false". | |
| 399 | If it prints "true", then return nil. For any other output | |
| 400 | signal an error. | |
| 401 | ||
| 402 | (fn &rest ARGS) | |
| 403 | (defalias 'magit-rev-parse-false #[128 "\300\301\"\207" [magit-git-false "rev-parse"] 4 (#$ . 36489)]) | |
| 404 | #@178 Execute `git rev-parse ARGS', returning t if it prints "true". | |
| 405 | Return t if the first (and usually only) output line is the | |
| 406 | string "true", otherwise return nil. | |
| 407 | ||
| 408 | (fn &rest ARGS) | |
| 409 | (defalias 'magit-rev-parse-p #[128 "\300\301\"\302\232\207" [magit-git-str "rev-parse" "true"] 4 (#$ . 36758)]) | |
| 410 | #@12 | |
| 411 | ||
| 412 | (fn REV) | |
| 413 | (defalias 'magit-rev-verify #[257 "\300\301\"\207" [magit-rev-parse-safe "--verify"] 4 (#$ . 37054)]) | |
| 414 | #@68 Return full hash for REV if it names an existing commit. | |
| 415 | ||
| 416 | (fn REV) | |
| 417 | (defalias 'magit-rev-verify-commit #[257 "\300\301P!\207" [magit-rev-verify "^{commit}"] 4 (#$ . 37174)]) | |
| 418 | #@12 | |
| 419 | ||
| 420 | (fn A B) | |
| 421 | (defalias 'magit-rev-equal #[514 "\300\301\302$\207" [magit-git-success "diff" "--quiet"] 7 (#$ . 37354)]) | |
| 422 | #@12 | |
| 423 | ||
| 424 | (fn A B) | |
| 425 | (defalias 'magit-rev-eq #[514 "\300!\300!\205 \211\205 \232\207" [magit-rev-verify] 6 (#$ . 37480)]) | |
| 426 | #@66 Return non-nil if commit A is an ancestor of commit B. | |
| 427 | ||
| 428 | (fn A B) | |
| 429 | (defalias 'magit-rev-ancestor-p #[514 "\300\301\302$\207" [magit-git-success "merge-base" "--is-ancestor"] 7 (#$ . 37605)]) | |
| 430 | #@12 | |
| 431 | ||
| 432 | (fn REV) | |
| 433 | (defalias 'magit-rev-head-p #[257 "\211\301\232\206\" \211\205\" \302\303\304\305#)\266\203?\205\" \306!\306\301!\232\207" [inhibit-changing-match-data "HEAD" "\\.\\." nil t string-match magit-rev-parse] 8 (#$ . 37802)]) | |
| 434 | #@185 Return t if the user is the author of REV. | |
| 435 | More precisely return t if `user.name' is equal to the author | |
| 436 | name of REV and/or `user.email' is equal to the author email | |
| 437 | of REV. | |
| 438 | ||
| 439 | (fn REV) | |
| 440 | (defalias 'magit-rev-author-p #[257 "\300\301!\302\303\"\232\206 \300\304!\302\305\"\232\207" [magit-get "user.name" magit-rev-format "%an" "user.email" "%ae"] 5 (#$ . 38047)]) | |
| 441 | #@362 Return a symbolic name for REV. | |
| 442 | PATTERN is passed to the `--refs' flag of `git-name-rev' and can | |
| 443 | be used to limit the result to a matching ref. When structured | |
| 444 | as "refs/<subdir>/*", PATTERN is taken as a namespace. In this | |
| 445 | case, the name returned by `git-name-rev' is discarded if it | |
| 446 | corresponds to a ref outside of the namespace. | |
| 447 | ||
| 448 | (fn REV &optional PATTERN) | |
| 449 | (defalias 'magit-rev-name #[513 "\301\302\303\304\205 \305P%\211\205K \203J \306\307\310\311#)\266\203\203J \312\313O\211\307\310\311#)\266\203\205@ \314P!??\205E \262\202K \211\207" [inhibit-changing-match-data magit-git-string "name-rev" "--name-only" "--no-undefined" "--refs=" "\\`refs/[^/]+/\\*\\'" nil t string-match 0 -1 magit-rev-verify] 11 (#$ . 38418)]) | |
| 450 | #@12 | |
| 451 | ||
| 452 | (fn REV) | |
| 453 | (defalias 'magit-rev-branch #[257 "\301\302\"\211\205 \303\304\305\306#)\266\203?\205 \211\207" [inhibit-changing-match-data magit-rev-name "refs/heads/*" "[~^]" nil t string-match] 9 (#$ . 39170)]) | |
| 454 | #@12 | |
| 455 | ||
| 456 | (fn REV) | |
| 457 | (defalias 'magit-get-shortname #[257 "\300\301\"\211\302!\206 \211\303!\206 \211\304!\211\204 \305\306\"\202< \307\310\"\2039 \311\312\313\"!\2032 \211\202< \312\313\"\202< \314!\207" [apply-partially magit-rev-name "refs/tags/*" "refs/heads/*" "refs/remotes/*" magit-rev-parse "--short" string-match "^\\(?:tags\\|remotes\\)/\\(.+\\)" magit-ref-ambiguous-p match-string 1 magit-ref-maybe-qualify] 7 (#$ . 39394)]) | |
| 458 | #@26 | |
| 459 | ||
| 460 | (fn REV &optional LAX) | |
| 461 | (defalias 'magit-name-branch #[513 "\300!\206 \301!\206 \211\205 \300\302\"\206 \301\302\"\207" [magit-name-local-branch magit-name-remote-branch t] 5 (#$ . 39835)]) | |
| 462 | #@26 | |
| 463 | ||
| 464 | (fn REV &optional LAX) | |
| 465 | (defalias 'magit-name-local-branch #[513 "\301\302\"\211\205 \204 \303\304\305\306#)\266\203?\205 \211\207" [inhibit-changing-match-data magit-rev-name "refs/heads/*" "[~^]" nil t string-match] 10 (#$ . 40040)]) | |
| 466 | #@26 | |
| 467 | ||
| 468 | (fn REV &optional LAX) | |
| 469 | (defalias 'magit-name-remote-branch #[513 "\301\302\"\211\205! \204 \303\304\305\306#)\266\203?\205! \211\307\304O\207" [inhibit-changing-match-data magit-rev-name "refs/remotes/*" "[~^]" nil t string-match 8] 10 (#$ . 40293)]) | |
| 470 | #@26 | |
| 471 | ||
| 472 | (fn REV &optional LAX) | |
| 473 | (defalias 'magit-name-tag #[513 "\301\302\"\211\205! \204 \303\304\305\306#)\266\203?\205! \211\307\304O\207" [inhibit-changing-match-data magit-rev-name "refs/tags/*" "[~^]" nil t string-match 5] 10 (#$ . 40560)]) | |
| 474 | #@139 Return fully qualified refname for NAME. | |
| 475 | If NAME is ambiguous, return nil. NAME may include suffixes such | |
| 476 | as "^1" and "~3". | |
| 477 | ||
| 478 | (fn NAME) | |
| 479 | (defalias 'magit-ref-fullname #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\203+ \312\313\314\315\"\"\211\205& \211\314\316\"P\262\202. \317\320!)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\\`\\([^^~]+\\)\\(.*\\)" magit-rev-parse "--symbolic-full-name" match-string 1 2 error "`name' has an unrecognized format"] 8 (#$ . 40815)]) | |
| 480 | #@13 | |
| 481 | ||
| 482 | (fn NAME) | |
| 483 | (defalias 'magit-ref-ambiguous-p #[257 "\300!?\207" [magit-ref-fullname] 3 (#$ . 41378)]) | |
| 484 | #@84 If NAME is ambiguous, prepend PREFIX to it. | |
| 485 | ||
| 486 | (fn NAME &optional (PREFIX "heads/")) | |
| 487 | (defalias 'magit-ref-maybe-qualify #[385 "\211\203 \211A\262\242\202 \300\203 \301\302\303\304G\\D\"\210\305!\205# \211P\207" ["heads/" signal wrong-number-of-arguments magit-ref-maybe-qualify 2 magit-ref-ambiguous-p] 8 (#$ . 41487)]) | |
| 488 | #@12 | |
| 489 | ||
| 490 | (fn REF) | |
| 491 | (defalias 'magit-ref-exists-p #[257 "\300\301\302#\207" [magit-git-success "show-ref" "--verify"] 5 (#$ . 41820)]) | |
| 492 | #@165 Return t if the refs A and B are `equal'. | |
| 493 | A symbolic-ref pointing to some ref, is `equal' to that ref, | |
| 494 | as are two symbolic-refs pointing to the same ref. | |
| 495 | ||
| 496 | (fn A B) | |
| 497 | (defalias 'magit-ref-equal #[514 "\300!\300!\232\207" [magit-ref-fullname] 5 (#$ . 41954)]) | |
| 498 | #@176 Return t if the refs A and B are `eq'. | |
| 499 | A symbolic-ref is `eq' to itself, but not to the ref it points | |
| 500 | to, or to some other symbolic-ref that points to the same ref. | |
| 501 | ||
| 502 | (fn A B) | |
| 503 | (defalias 'magit-ref-eq #[514 "\300!\300!\203 \211\203 \232\206\" ?\205\" \211?\205\" \301\"\207" [magit-symbolic-ref-p magit-ref-equal] 7 (#$ . 42219)]) | |
| 504 | #@68 Return "HEAD" or if that doesn't exist the hash of the empty tree. | |
| 505 | (defalias 'magit-headish #[0 "\300 \203 \301\302!\207\303\207" [magit-no-commit-p magit-git-string "mktree" "HEAD"] 2 (#$ . 42564)]) | |
| 506 | (defalias 'magit-branch-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\"\202* \211\205* \301\305\"\205* \306 \206* \307\303\304\"!\207" [magit-current-section magit-section-match-1 branch eieio-oref value commit magit--painted-branch-at-point magit-name-branch] 5]) | |
| 507 | #@23 | |
| 508 | ||
| 509 | (fn &optional TYPE) | |
| 510 | (defalias 'magit--painted-branch-at-point #[256 "\211\300=\204 \301`\302\"\303\304D>\203 \305\306\307\310\"!A\2061 \211\311=?\2051 \301`\302\"\312\313D>\2051 \306\307\310\"\207" [remote get-text-property face magit-branch-local magit-branch-current magit-split-branch-name thing-at-point git-revision t local magit-branch-remote magit-branch-remote-head] 5 (#$ . 43048)]) | |
| 511 | (defalias 'magit-local-branch-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\305\"!\211\306 \235\205 \211\262\2027 \211\2057 \301\307\"\2057 \310\311!\2067 \312\304\305\"!\207" [magit-current-section magit-section-match-1 branch magit-ref-maybe-qualify eieio-oref value magit-list-local-branch-names commit magit--painted-branch-at-point local magit-name-local-branch] 5]) | |
| 512 | (defalias 'magit-remote-branch-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\"\211\305 \235\205 \211\262\2025 \211\2055 \301\306\"\2055 \307\310!\2065 \311\303\304\"!\207" [magit-current-section magit-section-match-1 branch eieio-oref value magit-list-remote-branch-names commit magit--painted-branch-at-point remote magit-name-remote-branch] 5]) | |
| 513 | (defalias 'magit-commit-at-point #[0 "\301\302!\206 \303\304!\205 @\207" [magit-refresh-args magit-section-value-if commit derived-mode-p magit-revision-mode] 2]) | |
| 514 | (defalias 'magit-branch-or-commit-at-point #[0 "\206g \302 \211\203 \303\304\"\203 \305\306\307\"!\202R \211\203@ \303\310\"\203@ \311 \206R \306\307\"\312!\206; \313!\206; \211\262\202R \211\205R \303\314\"\205R \305\306\307\"\315\"\262\206g \316\317\320\"\206g \321\322\323\"\205g @\207" [magit-buffer-refname magit-refresh-args magit-current-section magit-section-match-1 branch magit-ref-maybe-qualify eieio-oref value commit magit--painted-branch-at-point magit-name-branch magit-get-shortname tag "tags/" thing-at-point git-revision t derived-mode-p magit-revision-mode magit-merge-preview-mode] 5]) | |
| 515 | (defalias 'magit-tag-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\"\202% \211\205% \301\305\"\205% \306\303\304\"!\207" [magit-current-section magit-section-match-1 tag eieio-oref value commit magit-name-tag] 5]) | |
| 516 | (defalias 'magit-stash-at-point #[0 "\300\301!\207" [magit-section-value-if stash] 2]) | |
| 517 | (defalias 'magit-remote-at-point #[0 "\300 \211\203 \301\302\"\203 \303\304\"\202\" \211\205\" \301\305\"\205\" \306!\207" [magit-current-section magit-section-match-1 remote eieio-oref value branch magit-section-parent-value] 4]) | |
| 518 | #@28 | |
| 519 | ||
| 520 | (fn &optional PREDICATE) | |
| 521 | (defalias 'magit-module-at-point #[256 "\300\301!\205 \302\303 \304\"\203 !\205 \211\262\207" [magit-section-match magit-module-section eieio-oref magit-current-section value] 4 (#$ . 45533)]) | |
| 522 | #@107 Return the refname of the currently checked out branch. | |
| 523 | Return nil if no branch is currently checked out. | |
| 524 | (defalias 'magit-get-current-branch #[0 "\300\301\302\303#\207" [magit-git-string "symbolic-ref" "--short" "HEAD"] 4 (#$ . 45767)]) | |
| 525 | #@85 Maximum time to spend in `magit-get-previous-branch'. | |
| 526 | Given as a number of seconds. | |
| 527 | (defvar magit-get-previous-branch-timeout 0.5 (#$ . 46011)) | |
| 528 | #@263 Return the refname of the previously checked out branch. | |
| 529 | Return nil if no branch can be found in the `HEAD' reflog | |
| 530 | which is different from the current branch and still exists. | |
| 531 | The amount of time spent searching is limited by | |
| 532 | `magit-get-previous-branch-timeout'. | |
| 533 | (defalias 'magit-get-previous-branch #[0 "\301 \302 \303\304\301 ZV\203 \304\211\262\202. \305\306\307\"!\211\262\2038 \310!\211\262\2031 \211\232\2038 T\262\202 \207" [magit-get-previous-branch-timeout float-time magit-get-current-branch 1 nil magit-rev-verify format "@{-%i}" magit-rev-branch] 8 (#$ . 46162)]) | |
| 534 | #@25 | |
| 535 | ||
| 536 | (fn &optional BRANCH) | |
| 537 | (defalias 'magit-get-upstream-ref #[256 "\211\204\f \300 \211\262\2059 \301\302\303#\301\302\304#\2057 \211\2057 \305\230\203( \211\2027 \306\307\"\2057 \310\311\312\313OR\266\202\207" [magit-get-current-branch magit-get "branch" "remote" "merge" "." string-prefix-p "refs/heads/" "refs/remotes/" "/" 11 nil] 9 (#$ . 46755)]) | |
| 538 | #@24 | |
| 539 | ||
| 540 | (fn BRANCH UPSTREAM) | |
| 541 | (defalias 'magit-set-upstream-branch #[514 "\211\203( \300!\211@A\211\301\302\"\303\"\266\301\304\"\303\305P\"\262\266\202\207\306\307\310#\207" [magit-split-branch-name format "branch.%s.remote" magit-set "branch.%s.merge" "refs/heads/" magit-call-git "branch" "--unset-upstream"] 11 (#$ . 47119)]) | |
| 542 | #@32 | |
| 543 | ||
| 544 | (fn &optional BRANCH VERIFY) | |
| 545 | (defalias 'magit-get-upstream-branch #[512 "\204\f \301 \211\262\205i \302\303\304#\211\205 \302\303\305#\211\205g \306\307\"\205g \211\310\311O\312\230\2037 \313\314\315#\202Z \316\311\317\320#)\266\203\203R \313\321Q\314\322#\202Z \313\323Q\314\322#\203d \324!\205e \211\266\202\266\202\207" [inhibit-changing-match-data magit-get-current-branch magit-get "branch" "remote" "merge" string-prefix-p "refs/heads/" 11 nil "." propertize face magit-branch-local "[@:]" t string-match " " magit-branch-remote "/" magit-rev-verify] 12 (#$ . 47462)]) | |
| 546 | #@31 | |
| 547 | ||
| 548 | (fn BRANCH &optional FORCE) | |
| 549 | (defalias 'magit-get-indirect-upstream-branch #[513 "\302\303\304#\211\205{ \211\305\232?\205{ \204_ \306\307\310\203W \203W @\203, \306\262\202K \311\312\313#\203; \211\232\202I \211\306\307\314#)\266\203\262\210\211T\262A\262\202 \266\211\262\205{ \315!\211\205y \211GT\306O\232\205y \316\"\205y \211\262\207" [magit-branch-prefer-remote-upstream inhibit-changing-match-data magit-get "branch" "remote" "." nil t 0 magit-git-success "check-ref-format" "--branch" string-match magit-get-upstream-branch magit-rev-ancestor-p] 15 (#$ . 48064)]) | |
| 550 | #@35 | |
| 551 | ||
| 552 | (fn &optional BRANCH NON-LOCAL) | |
| 553 | (defalias 'magit-get-upstream-remote #[512 "\204 \300 \262\205 \301\302\303#\205 \211\304\232?\205 \211\262\207" [magit-get-current-branch magit-get "branch" "remote" "."] 6 (#$ . 48674)]) | |
| 554 | #@25 | |
| 555 | ||
| 556 | (fn &optional BRANCH) | |
| 557 | (defalias 'magit-get-push-remote #[256 "\211\204\f \300 \211\262\203 \301\302\303#\206 \301\304!\207" [magit-get-current-branch magit-get "branch" "pushRemote" "remote.pushDefault"] 5 (#$ . 48913)]) | |
| 558 | #@32 | |
| 559 | ||
| 560 | (fn &optional BRANCH VERIFY) | |
| 561 | (defalias 'magit-get-push-branch #[512 "\204\f \300 \211\262\205, \301!\211\205 \211\302Q\211\205* \203% \303!\205* \304\305\306#\266\202\207" [magit-get-current-branch magit-get-push-remote "/" magit-rev-verify propertize face magit-branch-remote] 8 (#$ . 49146)]) | |
| 562 | #@25 | |
| 563 | ||
| 564 | (fn &optional BRANCH) | |
| 565 | (defalias 'magit-get-@{push}-branch #[256 "\300\301\302P\"\211\205 \303\304\"\205 \211\305\306O\207" [magit-rev-parse "--symbolic-full-name" "@{push}" string-prefix-p "refs/remotes/" 13 nil] 5 (#$ . 49457)]) | |
| 566 | #@25 | |
| 567 | ||
| 568 | (fn &optional BRANCH) | |
| 569 | (defalias 'magit-get-remote #[256 "\211\204\f \300 \211\262\205 \301\302\303#\211\304\232?\205 \211\262\207" [magit-get-current-branch magit-get "branch" "remote" "."] 5 (#$ . 49699)]) | |
| 570 | #@25 | |
| 571 | ||
| 572 | (fn &optional BRANCH) | |
| 573 | (defalias 'magit-get-some-remote #[256 "\300!\206 \301\302!\203 \300\302!\206 \303 \304\235@\206 \211@\262\207" [magit-get-remote magit-branch-p "master" magit-list-remotes "origin"] 4 (#$ . 49919)]) | |
| 574 | #@475 Return non-nil if BRANCH is merged into its upstream and TARGET. | |
| 575 | ||
| 576 | TARGET defaults to the current branch. If `HEAD' is detached and | |
| 577 | TARGET is nil, then always return nil. As a special case, if | |
| 578 | TARGET is t, then return non-nil if BRANCH is merged into any one | |
| 579 | of the other local branches. | |
| 580 | ||
| 581 | If, and only if, BRANCH has an upstream, then only return non-nil | |
| 582 | if BRANCH is merged into both TARGET (as described above) as well | |
| 583 | as into its upstream. | |
| 584 | ||
| 585 | (fn BRANCH &optional TARGET) | |
| 586 | (defalias 'magit-branch-merged-p #[513 "\300!\205 \301!\211\203 \302\303\304$\202 \305\262\205= \211\305=\203+ \306\307!\310!\"\207\211\2061 \311 \211\205; \302\303\304$\262\207" [magit-branch-p magit-get-upstream-branch magit-git-success "merge-base" "--is-ancestor" t delete magit-name-local-branch magit-list-containing-branches magit-get-current-branch] 8 (#$ . 50157)]) | |
| 587 | #@15 | |
| 588 | ||
| 589 | (fn BRANCH) | |
| 590 | (defalias 'magit-split-branch-name #[257 "\211\300 \235\203 \301B\207\302\303\"\203& \304\303\"\211@A\211@A\211B\266\202\207\302\305\"\205Z \211\306\211\224O\307 \310\306\311\312\313!\314\"\315$\216\316 \235)\262\203T \211\306\225\317OB\202X \320\321\"\262\207" [magit-list-local-branch-names "." string-match " " split-string "/" 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 magit-list-remotes nil error "Invalid branch name %s"] 10 (#$ . 51025)]) | |
| 591 | #@357 Return the closest tag reachable from REV. | |
| 592 | ||
| 593 | If optional REV is nil, then default to `HEAD'. | |
| 594 | If optional WITH-DISTANCE is non-nil then return (TAG COMMITS), | |
| 595 | if it is `dirty' return (TAG COMMIT DIRTY). COMMITS is the number | |
| 596 | of commits in `HEAD' but not in TAG and DIRTY is t if there are | |
| 597 | uncommitted changes, nil otherwise. | |
| 598 | ||
| 599 | (fn &optional REV WITH-DISTANCE) | |
| 600 | (defalias 'magit-get-current-tag #[512 "\300\301\302\303\304=\205 \305%\211\205L \306 \307\310\311\312\313!\314\"\315$\216\316\317\"\210\203E \320\321\"\322\320\323\"\2066 \324!\320\315\"\205@ \325CBB\202I \320\321\")\262\207" [magit-git-str "describe" "--long" "--tags" dirty "--dirty" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\\(.+\\)-\\(?:0[0-9]*\\|\\([0-9]+\\)\\)-g[0-9a-z]+\\(-dirty\\)?$" match-string 1 string-to-number 2 "0" t] 10 (#$ . 51559)]) | |
| 601 | #@387 Return the closest tag from which REV is reachable. | |
| 602 | ||
| 603 | If optional REV is nil, then default to `HEAD'. | |
| 604 | If no such tag can be found or if the distance is 0 (in which | |
| 605 | case it is the current tag, not the next), return nil instead. | |
| 606 | If optional WITH-DISTANCE is non-nil, then return (TAG COMMITS) | |
| 607 | where COMMITS is the number of commits in TAG but not in REV. | |
| 608 | ||
| 609 | (fn &optional REV WITH-DISTANCE) | |
| 610 | (defalias 'magit-get-next-tag #[512 "\300\301\302\206 \303#\211\205D \304 \305\306\307\310\311!\312\"\313$\216\314\315\"\205A \316\306\"\262\317!\232?\205A \203@ \320\"@D\202A )\262\207" [magit-git-str "describe" "--contains" "HEAD" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^[^^~]+" match-string magit-get-current-tag magit-rev-diff-count] 10 (#$ . 52453)]) | |
| 611 | (defvar magit-list-refs-namespaces '("refs/heads" "refs/remotes" "refs/tags" "refs/pull")) | |
| 612 | #@490 Return list of references. | |
| 613 | ||
| 614 | When NAMESPACES is non-nil, list refs from these namespaces | |
| 615 | rather than those from `magit-list-refs-namespaces'. | |
| 616 | ||
| 617 | FORMAT is passed to the `--format' flag of `git for-each-ref' | |
| 618 | and defaults to "%(refname)". If the format is "%(refname)" | |
| 619 | or "%(refname:short)", then drop the symbolic-ref "HEAD". | |
| 620 | ||
| 621 | SORTBY is a key or list of keys to pass to the `--sort' flag of | |
| 622 | `git for-each-ref'. When nil, use `magit-list-refs-sortby' | |
| 623 | ||
| 624 | (fn &optional NAMESPACES FORMAT SORTBY) | |
| 625 | (defalias 'magit-list-refs #[768 "\204 \303\262\304\305\306P\307\310\206 \211;\203 \211\211C\262\202- \211<\203, \211\211\262\202- \311\262\"\2066 $\312\235\203p \311\313\203g @\314\311\315\316#)\266\203\204[ \211B\262\210\211T\262A\262\202@ \266\211\237\262\202q \211\207" [magit-list-refs-sortby magit-list-refs-namespaces inhibit-changing-match-data "%(refname)" magit-git-lines "for-each-ref" "--format=" mapcar #[257 "\300P\207" ["--sort="] 3 "\n\n(fn IT)"] nil ("%(refname)" "%(refname:short)") 0 "\\(\\`\\|/\\)HEAD\\'" t string-match] 15 (#$ . 53376)]) | |
| 626 | (defalias 'magit-list-branches #[0 "\300\301\302D!\207" [magit-list-refs "refs/heads" "refs/remotes"] 3]) | |
| 627 | (defalias 'magit-list-local-branches #[0 "\300\301!\207" [magit-list-refs "refs/heads"] 2]) | |
| 628 | #@25 | |
| 629 | ||
| 630 | (fn &optional REMOTE) | |
| 631 | (defalias 'magit-list-remote-branches #[256 "\300\301P!\207" [magit-list-refs "refs/remotes/"] 4 (#$ . 54660)]) | |
| 632 | #@38 | |
| 633 | ||
| 634 | (fn RELATION &optional COMMIT ARG) | |
| 635 | (defalias 'magit-list-related-branches #[769 "\301\302\303\304\305$\"\306\2034 @\307\301\310\311#)\266\203\204( \211B\262\210\211T\262A\262\202 \266\211\237\207" [inhibit-changing-match-data nil mapcar #[257 "\211\300\301O\207" [2 nil] 4 "\n\n(fn IT)"] magit-git-lines "branch" 0 "\\(\\`(HEAD\\|HEAD -> \\)" t string-match] 14 (#$ . 54803)]) | |
| 636 | #@29 | |
| 637 | ||
| 638 | (fn &optional COMMIT ARG) | |
| 639 | (defalias 'magit-list-containing-branches #[512 "\300\301#\207" [magit-list-related-branches "--contains"] 6 (#$ . 55207)]) | |
| 640 | #@25 | |
| 641 | ||
| 642 | (fn &optional COMMIT) | |
| 643 | (defalias 'magit-list-publishing-branches #[256 "\301\302\203! @\303\"\203 \211B\262\210\211T\262A\262\202 \266\211\237\207" [magit-published-branches nil 0 magit-rev-ancestor-p] 8 (#$ . 55367)]) | |
| 644 | #@29 | |
| 645 | ||
| 646 | (fn &optional COMMIT ARG) | |
| 647 | (defalias 'magit-list-merged-branches #[512 "\300\301#\207" [magit-list-related-branches "--merged"] 6 (#$ . 55606)]) | |
| 648 | #@29 | |
| 649 | ||
| 650 | (fn &optional COMMIT ARG) | |
| 651 | (defalias 'magit-list-unmerged-branches #[512 "\300\301#\207" [magit-list-related-branches "--no-merged"] 6 (#$ . 55760)]) | |
| 652 | (defalias 'magit-list-unmerged-to-upstream-branches #[0 "\300\301 \302\203, @\303!\211\205 \304!\235\262\203 \211B\262\210\211T\262A\262\202 \266\211\237\207" [nil magit-list-local-branch-names 0 magit-get-upstream-branch magit-list-unmerged-branches] 8]) | |
| 653 | #@15 | |
| 654 | ||
| 655 | (fn COMMIT) | |
| 656 | (defalias 'magit-list-branches-pointing-at #[257 "\300\301\302!\"\303\304\305!\306\203= @\307\"\205' \310\311\"\312\313\"?\205% \211\262\211\2030 \211B\262\266\211T\262A\262\202 \266\211\237\262\207" [format "\\`%s refs/\\(heads\\|remotes\\)/\\(.*\\)\\'" magit-rev-verify nil magit-git-lines "show-ref" 0 string-match match-string 2 string-suffix-p "HEAD"] 10 (#$ . 56190)]) | |
| 657 | #@29 | |
| 658 | ||
| 659 | (fn &optional NAMESPACES) | |
| 660 | (defalias 'magit-list-refnames #[256 "\300\301\"\207" [magit-list-refs "%(refname:short)"] 4 (#$ . 56602)]) | |
| 661 | (defalias 'magit-list-branch-names #[0 "\300\301\302D!\207" [magit-list-refnames "refs/heads" "refs/remotes"] 3]) | |
| 662 | (defalias 'magit-list-local-branch-names #[0 "\300\301!\207" [magit-list-refnames "refs/heads"] 2]) | |
| 663 | #@34 | |
| 664 | ||
| 665 | (fn &optional REMOTE RELATIVE) | |
| 666 | (defalias 'magit-list-remote-branch-names #[512 "\203# \211\203# \300\301\"\302\303\304\305\306\307\310\311!\312\"\313\314%\315!\"\"\207\316\317P!\207" [format "^refs/remotes/%s/\\(.+\\)" apply append mapcar make-byte-code 257 "\301\300\"\205\f \302\303\"C\207" vconcat vector [string-match match-string 1] 4 "\n\n(fn IT)" magit-list-remote-branches magit-list-refnames "refs/remotes/"] 12 (#$ . 56959)]) | |
| 667 | #@26 | |
| 668 | ||
| 669 | (fn FORMAT &rest ARGS) | |
| 670 | (defalias 'magit-format-refs #[385 "\301\302\303P\206 \304\305\306E#\307\310\311\312#)\266\203\203% \313\314\"\202& \211\207" [inhibit-changing-match-data magit-git-lines "for-each-ref" "--format=" "refs/heads" "refs/remotes" "refs/tags" "\f" nil t string-match mapcar #[257 "\300\301\"\207" [split-string "\f"] 4 "\n\n(fn IT)"]] 10 (#$ . 57412)]) | |
| 671 | (defalias 'magit-list-remotes #[0 "\300\301!\207" [magit-git-lines "remote"] 2]) | |
| 672 | (defalias 'magit-list-tags #[0 "\300\301!\207" [magit-git-lines "tag"] 2]) | |
| 673 | #@25 | |
| 674 | ||
| 675 | (fn &optional FORMAT) | |
| 676 | (defalias 'magit-list-stashes #[256 "\300\301\302\303\206 \304P#\207" [magit-git-lines "stash" "list" "--format=" "%gd"] 6 (#$ . 57957)]) | |
| 677 | #@72 Return notes refs according to `core.notesRef' and `notes.displayRef'. | |
| 678 | (defalias 'magit-list-active-notes-refs #[0 "\300\301\302\303\304!\206\n \305\306\307!$\207" [magit-git-lines "for-each-ref" "--format=%(refname)" magit-get "core.notesRef" "refs/notes/commits" magit-get-all "notes.displayRef"] 6 (#$ . 58127)]) | |
| 679 | (defalias 'magit-list-notes-refnames #[0 "\300\301\302\303!\"\207" [mapcar #[257 "\211\300\301O\207" [6 nil] 4 "\n\n(fn IT)"] magit-list-refnames "refs/notes"] 4]) | |
| 680 | #@15 | |
| 681 | ||
| 682 | (fn REMOTE) | |
| 683 | (defalias 'magit-remote-list-tags #[257 "\301\302\303\304#\305\2038 @\306\301\307\310#)\266\203?\205\" \211\311\301O\211\203+ \211B\262\266\211T\262A\262\202 \266\211\237\207" [inhibit-changing-match-data nil magit-git-lines "ls-remote" "--tags" 0 "\\^{}$" t string-match 51] 12 (#$ . 58613)]) | |
| 684 | #@15 | |
| 685 | ||
| 686 | (fn REMOTE) | |
| 687 | (defalias 'magit-remote-list-branches #[257 "\301\302\303\304#\305\2038 @\306\301\307\310#)\266\203?\205\" \211\311\301O\211\203+ \211B\262\266\211T\262A\262\202 \266\211\237\207" [inhibit-changing-match-data nil magit-git-lines "ls-remote" "--heads" 0 "\\^{}$" t string-match 52] 12 (#$ . 58943)]) | |
| 688 | #@15 | |
| 689 | ||
| 690 | (fn REMOTE) | |
| 691 | (defalias 'magit-remote-list-refs #[257 "\301\302\303\"\304\2037 @\305\301\306\307#)\266\203?\205! \211\310\301O\211\203* \211B\262\266\211T\262A\262\202 \266\211\237\207" [inhibit-changing-match-data nil magit-git-lines "ls-remote" 0 "\\^{}$" t string-match 41] 12 (#$ . 59278)]) | |
| 692 | (defalias 'magit-list-module-paths #[0 "\300\301\302\303\304\305\306\307#\"\"\207" [apply append mapcar #[257 "\300\301\"\205\f \302\303\"C\207" [string-match "^160000 [0-9a-z]\\{40\\} 0 \\(.+\\)$" match-string 1] 4 "\n\n(fn IT)"] magit-git-items "ls-files" "-z" "--stage"] 8]) | |
| 693 | #@103 Return the name of the submodule at PATH. | |
| 694 | PATH has to be relative to the super-repository. | |
| 695 | ||
| 696 | (fn PATH) | |
| 697 | (defalias 'magit-get-submodule-name #[257 "\300\301\302\303\304\305\306\307 \"\310\311\312\313\314 !!\315Q&\206 \316\317\"@\320\"A@\207" [split-string magit-git-items "config" "-z" "-f" expand-file-name ".gitmodules" magit-toplevel "--get-regexp" "^submodule\\..*\\.path$" "^" regexp-quote directory-file-name "$" error "No such submodule `%s'" "\n"] 13 (#$ . 59876)]) | |
| 698 | (defalias 'magit-list-worktrees #[0 "\302\211\303\304\"\305\306\307\310#)\211\203\252 \211@\311\306\"\203, \211\312\302O\302\211\211F\211\262B\262\202\243 \211\313\230\203u @\314\315!?\205? \316\317!\211\203i \320\321!!\203i \211\321!\240\266AA\211\322\323!\240\266\324\233\211\325 \240\266\202p A\211\326\240\266)\210\202\243 \311\323\"\203\212 AA\211\327\302O\240\266\202\243 \311\330\"\203\237 \324\233\211\331\302O\240\266\202\243 \211\332\230\210A\266\202\202 \210\237\207" [magit-git-global-arguments default-directory nil remove "--no-pager" magit-git-lines "worktree" "list" "--porcelain" string-prefix-p 9 "bare" magit-get-boolean "core.bare" magit-get "core.worktree" file-exists-p expand-file-name magit-rev-parse "HEAD" 3 magit-get-current-branch t 5 "branch" 18 "detached"] 9]) | |
| 699 | #@13 | |
| 700 | ||
| 701 | (fn NAME) | |
| 702 | (defalias 'magit-symbolic-ref-p #[257 "\300\301\302#\207" [magit-git-success "symbolic-ref" "--quiet"] 5 (#$ . 61177)]) | |
| 703 | #@12 | |
| 704 | ||
| 705 | (fn REV) | |
| 706 | (defalias 'magit-ref-p #[257 "\211\300 \235@\206 \211\301 \235@\207" [magit-list-refs magit-list-refnames] 3 (#$ . 61316)]) | |
| 707 | #@12 | |
| 708 | ||
| 709 | (fn REV) | |
| 710 | (defalias 'magit-branch-p #[257 "\211\300 \235@\206 \211\301 \235@\207" [magit-list-branches magit-list-branch-names] 3 (#$ . 61458)]) | |
| 711 | #@12 | |
| 712 | ||
| 713 | (fn REV) | |
| 714 | (defalias 'magit-local-branch-p #[257 "\211\300 \235@\206 \211\301 \235@\207" [magit-list-local-branches magit-list-local-branch-names] 3 (#$ . 61611)]) | |
| 715 | #@12 | |
| 716 | ||
| 717 | (fn REV) | |
| 718 | (defalias 'magit-remote-branch-p #[257 "\211\300 \235@\206 \211\301 \235@\207" [magit-list-remote-branches magit-list-remote-branch-names] 3 (#$ . 61782)]) | |
| 719 | #@15 | |
| 720 | ||
| 721 | (fn BRANCH) | |
| 722 | (defalias 'magit-branch-set-face #[257 "\300\301\302!\203 \303\202 \304#\207" [propertize face magit-local-branch-p magit-branch-local magit-branch-remote] 6 (#$ . 61956)]) | |
| 723 | #@12 | |
| 724 | ||
| 725 | (fn REV) | |
| 726 | (defalias 'magit-tag-p #[257 "\211\300 \235@\207" [magit-list-tags] 3 (#$ . 62153)]) | |
| 727 | #@15 | |
| 728 | ||
| 729 | (fn STRING) | |
| 730 | (defalias 'magit-remote-p #[257 "\211\300 \235@\207" [magit-list-remotes] 3 (#$ . 62255)]) | |
| 731 | #@103 Return the commits in A but not B and vice versa. | |
| 732 | Return a list of two integers: (A>B B>A). | |
| 733 | ||
| 734 | (fn A B) | |
| 735 | (defalias 'magit-rev-diff-count #[514 "\300\301\302\303\304\305\306\307 Q$\310\"\"\207" [mapcar string-to-number split-string magit-git-string "rev-list" "--count" "--left-right" "..." " "] 12 (#$ . 62367)]) | |
| 736 | (defalias 'magit-abbrev-length #[0 "\300\301!\211\203 \302!\202. \303\304\305\"\211\203 \211G\202 \306\262\303\304\307\"\211\203* \211G\202+ \306\262^\207" [magit-get "core.abbrev" string-to-number magit-rev-parse "--short" "HEAD" 7 "HEAD~"] 5]) | |
| 737 | #@22 | |
| 738 | ||
| 739 | (fn &optional ARG) | |
| 740 | (defalias 'magit-abbrev-arg #[256 "\300\301\206 \302\303 #\207" [format "--%s=%d" "abbrev" magit-abbrev-length] 5 (#$ . 62938)]) | |
| 741 | #@12 | |
| 742 | ||
| 743 | (fn REV) | |
| 744 | (defalias 'magit-rev-abbrev #[257 "\300\301\302!\"\207" [magit-rev-parse magit-abbrev-arg "short"] 4 (#$ . 63096)]) | |
| 745 | #@30 | |
| 746 | ||
| 747 | (fn COMMIT &optional ARGS) | |
| 748 | (defalias 'magit-commit-children #[513 "\300\301\302\300\303\304\305\306\206 \307\310\311E\312 %\"\313\2036 @A\235\203* \211B\262\210\211T\262A\262\202 \266\211\237\262\"\207" [mapcar car nil #[257 "\300\301\"\207" [split-string " "] 4 "\n\n(fn IT)"] magit-git-lines "log" "--format=%H %P" "--branches" "--tags" "--remotes" "--not" 0] 13 (#$ . 63230)]) | |
| 749 | #@15 | |
| 750 | ||
| 751 | (fn COMMIT) | |
| 752 | (defalias 'magit-commit-parents #[257 "\300\301\302\303$\211\205 \304!A\207" [magit-git-string "rev-list" "-1" "--parents" split-string] 6 (#$ . 63636)]) | |
| 753 | #@12 | |
| 754 | ||
| 755 | (fn REV) | |
| 756 | (defalias 'magit-patch-id #[257 "\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\315 \317\n!\320\321 $\262&\210\322\323 !@*\207" [shell-file-name shell-command-switch magit-git-executable generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-process-file nil (t nil) shell-quote-argument format "%s diff-tree -u %s | %s patch-id" split-string buffer-string] 14 (#$ . 63813)]) | |
| 757 | #@34 | |
| 758 | ||
| 759 | (fn FORMAT &optional REV ARGS) | |
| 760 | (defalias 'magit-rev-format #[769 "\300\301\302\303P\203 \304P\202 \305\306&\211\307\230?\205 \211\207" [magit-git-string "show" "--no-patch" "--format=" "^{commit}" "HEAD" "--" ""] 10 (#$ . 64306)]) | |
| 761 | #@34 | |
| 762 | ||
| 763 | (fn FORMAT &optional REV ARGS) | |
| 764 | (defalias 'magit-rev-insert-format #[769 "\300\301\302\303P\203 \304P\202 \305\306&\207" [magit-git-insert "show" "--no-patch" "--format=" "^{commit}" "HEAD" "--"] 10 (#$ . 64556)]) | |
| 765 | #@12 | |
| 766 | ||
| 767 | (fn REV) | |
| 768 | (defalias 'magit-format-rev-summary #[257 "\300\301\"\211\205 \302\303\"\210\304\305\211\224\306\307%\210\211\207" [magit-rev-format "%h %s" string-match " " put-text-property 0 face magit-hash] 8 (#$ . 64787)]) | |
| 769 | #@492 How refs are formatted for display. | |
| 770 | ||
| 771 | Each entry controls how a certain type of ref is displayed, and | |
| 772 | has the form (REGEXP . FACE). REGEXP is a regular expression | |
| 773 | used to match full refs. The first entry whose REGEXP matches | |
| 774 | the reference is used. | |
| 775 | ||
| 776 | In log and revision buffers the first regexp submatch becomes the | |
| 777 | "label" that represents the ref and is propertized with FONT. | |
| 778 | In refs buffers the displayed text is controlled by other means | |
| 779 | and this option only controls what face is used. | |
| 780 | (defvar magit-ref-namespaces '(("\\`HEAD\\'" . magit-head) ("\\`refs/tags/\\(.+\\)" . magit-tag) ("\\`refs/heads/\\(.+\\)" . magit-branch-local) ("\\`refs/remotes/\\(.+\\)" . magit-branch-remote) ("\\`refs/bisect/\\(bad\\)" . magit-bisect-bad) ("\\`refs/bisect/\\(skip.*\\)" . magit-bisect-skip) ("\\`refs/bisect/\\(good.*\\)" . magit-bisect-good) ("\\`refs/stash$" . magit-refname-stash) ("\\`refs/wip/\\(.+\\)" . magit-refname-wip) ("\\`refs/pullreqs/\\(.+\\)" . magit-refname-pullreq) ("\\`\\(bad\\):" . magit-bisect-bad) ("\\`\\(skip\\):" . magit-bisect-skip) ("\\`\\(good\\):" . magit-bisect-good) ("\\`\\(.+\\)" . magit-refname)) (#$ . 65021)) | |
| 781 | #@15 | |
| 782 | ||
| 783 | (fn STRING) | |
| 784 | (defalias 'magit-format-ref-labels #[257 "\302\303\304\302\305\304##\262\306 \307\310\311\312\313!\314\"\315$\216\316\317\320\321!\203T \322A@\235\203T \323 \324\325\326\327 !\"\330\307\331\332\312\313\"\333\"\334\335%\336\302\337\340 #\341#\"\266\203\202[ \336\341#\262\317\211\211\211\211\211\211\211\211\203\n\211@\317 \341\310\203\233 \203\233 @\203\203 \317\262\202\217 \342@\"\203\217 \211\262\210\211T\262A\262\202o \266\211\262A\343\344\345\"\206\252 \346#\347\350\"\203\272 \211\262\f\202\351\352\"\203\313 \343\353\346\352#\262 \202\351\354\"\203\333 \211 B\262 \202\351\355\"\203\353 \211B\262\202\351\356\"\203\373 \211B\262\202\211B\262\266A\266\202\202e \210\357\360\"\262\361 \362\341\"\211\203p\211@\363!\235@\211\203<\364 \"\262\342\365\"\210\211\310\211\225O\262\232\203N\211\343\346\366#P\262\f\202h\232\203`\211\343\346\367#P\262 \202h\211PB\262\210A\266\202\202\210\211\203\261\204\261\211\235\203\226\370\310G\371\317%\210\211\262\364\"\262\202\261\211\235@\211\203\260\370\310G\371\317%\210\211\262 \364\"\262\210\266\372\373\374\n\n\n\375 \237\237 \237 $BBB!\376#\266\210\266\202)\207" [magit-refresh-args magit-ref-namespaces replace-regexp-in-string ")\\s-*\\'" "" "\\`\\s-*(" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\\(, \\|tag: \\|HEAD -> \\)" nil derived-mode-p magit-log-mode "--simplify-by-decoration" magit-list-local-branch-names format "^%s/.+" regexp-opt magit-list-remotes mapcar 257 "\211\302\230\203 \207\303\304\"\203 \207\211\300\235\203 \305P\207\306\301\"\203$ \307P\207\304P\207" ["HEAD" string-prefix-p "refs/" "refs/heads/" string-match "refs/remotes/"] 4 "\n\n(fn IT)" split-string "tag: " "refs/tags/" t string-match propertize match-string 1 face memql (magit-bisect-bad magit-bisect-skip magit-bisect-good) eql magit-head "@" magit-tag magit-branch-local magit-branch-remote -keep #[257 "\300\301\"\203/ \302\303\"\302\304\"\211\305\232?\205. \306P\307\310\311\312\"\"\232\203- \313\314\315#\202. \207\207" [string-match "\\`\\([^/]*\\)/\\(.*\\)\\'" match-string 1 2 "HEAD" "refs/remotes/" magit-git-string "symbolic-ref" format "refs/remotes/%s/HEAD" propertize face magit-branch-remote-head] 9 "\n\n(fn NAME)"] magit-get-current-branch magit-get-upstream-branch magit-get-push-branch delete "^[^/]*/" magit-branch-current (magit-branch-upstream magit-branch-local) add-face-text-property magit-branch-upstream mapconcat identity -flatten append " "] 23 (#$ . 66168)]) | |
| 785 | #@15 | |
| 786 | ||
| 787 | (fn OBJECT) | |
| 788 | (defalias 'magit-object-type #[257 "\300\301\302#\207" [magit-git-string "cat-file" "-t"] 5 (#$ . 68800)]) | |
| 789 | #@31 | |
| 790 | ||
| 791 | (fn COMMIT FILE &rest BODY) | |
| 792 | (defalias 'magit-with-blob '(macro . #[642 "\300\301\302DC\303\304\305\306\307\n\310BBFD\311BBBBD\207" [with-temp-buffer let buffer-file-name save-excursion magit-git-insert "cat-file" "-p" concat (":" buffer-file-name) (decode-coding-inserted-region (point-min) (point-max) buffer-file-name t nil nil t)] 13 (#$ . 68928)])) | |
| 793 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit-with-blob lisp-indent-function 2 put edebug-form-spec (form form body)] 5) | |
| 794 | #@28 | |
| 795 | ||
| 796 | (fn TREE ARG &rest BODY) | |
| 797 | (defalias 'magit-with-temp-index '(macro . #[642 "\300\301!\302\303\304BD\305\306\307\310\311\312 \313\314\315 E\257\316BBE\317\320\302\321\322\314\323\fE\324BBDC\nBB\302\325\322\314\323 E\326BBDC BBFE\327\330\314\331EDDEE\207" [cl-gensym "file" let (magit--refresh-cache nil) ((magit-convert-filename-for-git (make-temp-name (magit-git-dir "index.magit.")))) unwind-protect magit-with-toplevel --when-let or magit-git-success "read-tree" it concat "--index-output=" ((error "Cannot read tree %s" it)) if (file-remote-p default-directory) magit-tramp-process-environment cons "GIT_INDEX_FILE=" (magit-tramp-process-environment) process-environment (process-environment) ignore-errors delete-file (file-remote-p default-directory)] 18 (#$ . 69439)])) | |
| 798 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit-with-temp-index lisp-indent-function 2 put edebug-form-spec (form form body)] 5) | |
| 799 | #@45 | |
| 800 | ||
| 801 | (fn MESSAGE &optional TREE &rest PARENTS) | |
| 802 | (defalias 'magit-commit-tree #[641 "\300\301\302\303\304\305\306\307\310\311 \"\"\"\206 \300\312!\206 \313\314!&\207" [magit-git-string "commit-tree" "--no-gpg-sign" "-m" apply append mapcar #[257 "\300D\207" ["-p"] 3 "\n\n(fn IT)"] delq nil "write-tree" error "Cannot write tree"] 15 (#$ . 70387)]) | |
| 803 | #@50 | |
| 804 | ||
| 805 | (fn MESSAGE &optional ARG &rest OTHER-PARENTS) | |
| 806 | (defalias 'magit-commit-worktree #[641 "\304\305\306\307\310!!!\311\312\313\314\315!\316\"\317$\216\320 \211\203q \211\321\211\2035 \322\323\324P$\2045 \325\326\"\210\210\327 !\203V \330P\nB\331\332 !\205R \333\334\304\321%)\202m \330P B\331\332 !\205l \333\334\304\321%))\202s \335 \262*\207" [magit--refresh-cache default-directory magit-tramp-process-environment process-environment nil magit-convert-filename-for-git make-temp-name magit-git-dir "index.magit." make-byte-code 0 "\3021 \303\304 !\300P!0\207\210\305\207" vconcat vector [default-directory (error) delete-file file-remote-p nil] 3 magit-toplevel "HEAD" magit-git-success "read-tree" "--index-output=" error "Cannot read tree %s" file-remote-p "GIT_INDEX_FILE=" magit-update-files magit-unstaged-files apply magit-commit-tree magit--not-inside-repository-error] 13 (#$ . 70746)]) | |
| 807 | #@14 | |
| 808 | ||
| 809 | (fn FILES) | |
| 810 | (defalias 'magit-update-files #[257 "\300\301\302\303\304%\207" [magit-git-success "update-index" "--add" "--remove" "--"] 7 (#$ . 71672)]) | |
| 811 | #@43 | |
| 812 | ||
| 813 | (fn REF MESSAGE REV &optional STASHISH) | |
| 814 | (defalias 'magit-update-ref #[1027 "\301\302\303 \304\"\204# \305\306\307\310\311 !\206 \312&\313U\202\223 \311!\314\315P!\316!\204 \203> \317\306\320$\210\321\322!\323\"\210\211\324\325\326!!\327\313\330\331\332!\333\"\334$\216r\211q\210)r\211q\210\335\301\211\301\313%\210*\266\203 \204 \317\306\310\336 \312&\210\266\317\306\310\311\n!\206\221 \312&\206\233 \337\340#)\207" [magit--refresh-cache nil version< magit-git-version "2.6.0" magit-call-git "update-ref" "--create-reflog" "-m" magit-rev-verify "" 0 magit-git-dir "logs/" file-exists-p magit-git-success "-d" make-directory file-name-directory t get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region "enable reflog" error "Cannot update %s with %s"] 14 (#$ . 71832)]) | |
| 815 | (defconst magit-range-re "\\`\\([^ ]*[^.]\\)?\\(\\.\\.\\.?\\)\\([^.][^ ]*\\)?\\'") | |
| 816 | #@14 | |
| 817 | ||
| 818 | (fn RANGE) | |
| 819 | (defalias 'magit-split-range #[257 "\301\"\205- \302\303\"\206 \304\302\305\"\206 \304\302\306\"\307\230\203( \310\311#\202) B\266\202\207" [magit-range-re string-match match-string 1 "HEAD" 3 2 "..." magit-git-string "merge-base"] 7 (#$ . 72841)]) | |
| 820 | #@63 Characters allowable in filenames, excluding space and colon. | |
| 821 | (defvar magit-thingatpt--git-revision-chars "-_./[:alnum:]@{}^~!" (#$ . 73120)) | |
| 822 | (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\207" [put git-revision end-op #[0 "\301\302\303Q\304\305#\207" [magit-thingatpt--git-revision-chars re-search-forward "\\=[" "]*" nil t] 4] beginning-op #[0 "\301\302\303Q\304\305#\203 \304u\207eb\207" [magit-thingatpt--git-revision-chars re-search-backward "[^" "]" nil t] 4] thing-at-point magit-thingatpt--git-revision] 4) | |
| 823 | (defalias 'magit-thingatpt--git-revision #[0 "\300\301!\211\205 \302@A\"\303!\205 \211\262\207" [bounds-of-thing-at-point git-revision buffer-substring-no-properties magit-rev-verify-commit] 4]) | |
| 824 | (defvar magit-revision-history nil) | |
| 825 | #@43 | |
| 826 | ||
| 827 | (fn PROMPT &optional SECONDARY-DEFAULT) | |
| 828 | (defalias 'magit-read-branch #[513 "\300\301 \302\303\302\304\305 \206 \206 \306 &\207" [magit-completing-read magit-list-branch-names nil t magit-revision-history magit-branch-at-point magit-get-current-branch] 10 (#$ . 73906)]) | |
| 829 | #@43 | |
| 830 | ||
| 831 | (fn PROMPT &optional SECONDARY-DEFAULT) | |
| 832 | (defalias 'magit-read-branch-or-commit #[513 "\300\301\302 B\303\211\211\304\305 \206 \206 \306 &\206 \307\310!\207" [magit-completing-read "HEAD" magit-list-refnames nil magit-revision-history magit-branch-or-commit-at-point magit-get-current-branch user-error "Nothing selected"] 10 (#$ . 74190)]) | |
| 833 | #@43 | |
| 834 | ||
| 835 | (fn PROMPT &optional SECONDARY-DEFAULT) | |
| 836 | (defalias 'magit-read-range-or-commit #[513 "\300\301\302\303\"\211\205 \304 \210\305!@\306@Q\262\206% \307 \206% \206% \310 \"\207" [magit-read-range magit-region-values (commit branch) t deactivate-mark last ".." magit-branch-or-commit-at-point magit-get-current-branch] 8 (#$ . 74545)]) | |
| 837 | #@33 | |
| 838 | ||
| 839 | (fn PROMPT &optional DEFAULT) | |
| 840 | (defalias 'magit-read-range #[513 "\300\301 \302\303%\207" [magit-completing-read-multiple magit-list-refnames "\\.\\.\\.?" magit-revision-history] 8 (#$ . 74889)]) | |
| 841 | #@67 | |
| 842 | ||
| 843 | (fn PROMPT &optional REMOTE DEFAULT LOCAL-BRANCH REQUIRE-MATCH) | |
| 844 | (defalias 'magit-read-remote-branch #[1281 "\300\301\205& \203 \302Q\202& \303\304\305\306\307\310\n!\311\"\312\313%\314 \"\315\316\"\"\317\317\320 &\204? \321\322\"\203C \211\202G \323\324\"\207" [magit-completing-read -union "/" mapcar make-byte-code 257 "\211\301\300Q\207" vconcat vector ["/"] 4 "\n\n(fn IT)" magit-list-remotes magit-list-remote-branch-names t nil magit-revision-history string-match "\\`\\([^/]+\\)/\\(.+\\)" user-error "`%s' doesn't have the form REMOTE/BRANCH"] 15 (#$ . 75094)]) | |
| 845 | #@22 | |
| 846 | ||
| 847 | (fn PROMPT REMOTE) | |
| 848 | (defalias 'magit-read-refspec #[514 "\300\301\302!\210\303!\301\304!\210\"\207" [magit-completing-read message "Determining available refs..." magit-remote-list-refs "Determining available refs...done"] 7 (#$ . 75689)]) | |
| 849 | #@43 | |
| 850 | ||
| 851 | (fn PROMPT &optional SECONDARY-DEFAULT) | |
| 852 | (defalias 'magit-read-local-branch #[513 "\300\301 \302\303\302\304\305 \206 \206 \306 &\207" [magit-completing-read magit-list-local-branch-names nil t magit-revision-history magit-local-branch-at-point magit-get-current-branch] 10 (#$ . 75938)]) | |
| 853 | #@15 | |
| 854 | ||
| 855 | (fn PROMPT) | |
| 856 | (defalias 'magit-read-local-branch-or-commit #[257 "\300 \301 \302\203 B\202 \303\211\211\304\305 \206 &\206$ \306\307!\207" [magit-list-local-branch-names magit-commit-at-point magit-completing-read nil magit-revision-history magit-local-branch-at-point user-error "Nothing selected"] 11 (#$ . 76240)]) | |
| 857 | #@43 | |
| 858 | ||
| 859 | (fn PROMPT &optional SECONDARY-DEFAULT) | |
| 860 | (defalias 'magit-read-local-branch-or-ref #[513 "\300\301 \302\303!\244\304\305\304\306\307 \206 \206 \310 &\207" [magit-completing-read magit-list-local-branch-names magit-list-refs "refs/" nil t magit-revision-history magit-local-branch-at-point magit-get-current-branch] 10 (#$ . 76575)]) | |
| 861 | #@68 | |
| 862 | ||
| 863 | (fn PROMPT &optional EXCLUDE SECONDARY-DEFAULT NO-REQUIRE-MATCH) | |
| 864 | (defalias 'magit-read-other-branch #[1025 "\300 \301 \206 \232\204 \206# \232\204 \206# \206# \302 \303\304\305 \"\306?\306\307&\207" [magit-get-current-branch magit-branch-at-point magit-get-previous-branch magit-completing-read delete magit-list-branch-names nil magit-revision-history] 16 (#$ . 76921)]) | |
| 865 | #@51 | |
| 866 | ||
| 867 | (fn PROMPT &optional EXCLUDE SECONDARY-DEFAULT) | |
| 868 | (defalias 'magit-read-other-branch-or-commit #[769 "\300 \301 \206 \232\204 \206# \232\204 \206# \206# \302 \303\304\305 \"\306\211\211\307&\2069 \310\311!\207" [magit-get-current-branch magit-branch-or-commit-at-point magit-get-previous-branch magit-completing-read delete magit-list-refnames nil magit-revision-history user-error "Nothing selected"] 15 (#$ . 77321)]) | |
| 869 | #@68 | |
| 870 | ||
| 871 | (fn PROMPT &optional EXCLUDE SECONDARY-DEFAULT NO-REQUIRE-MATCH) | |
| 872 | (defalias 'magit-read-other-local-branch #[1025 "\300 \301 \206 \232\204 \206# \232\204 \206# \206# \302 \303\304\305 \"\306?\306\307&\207" [magit-get-current-branch magit-local-branch-at-point magit-get-previous-branch magit-completing-read delete magit-list-local-branch-names nil magit-revision-history] 16 (#$ . 77765)]) | |
| 873 | #@15 | |
| 874 | ||
| 875 | (fn PROMPT) | |
| 876 | (defalias 'magit-read-branch-prefer-other #[257 "\300 \301 \211\205 \302!\303 \304\305 \306\307\306\310\311\312!\206k \206k A\204, @\206k \306 \307\313\203[ \203[ @\203E \306\262\202O \211\232\204O \211\262\210\211T\262A\262\2021 \266\211\262\206k \314 \206k @&\207" [magit-get-current-branch magit-commit-at-point magit-list-branches-pointing-at magit--painted-branch-at-point magit-completing-read magit-list-branch-names nil t magit-revision-history magit-section-value-if branch 0 magit-get-previous-branch] 19 (#$ . 78183)]) | |
| 877 | #@61 | |
| 878 | ||
| 879 | (fn &optional (BRANCH (magit-get-current-branch)) PROMPT) | |
| 880 | (defalias 'magit-read-upstream-branch #[128 "\211\203 \211A\262\242\202 \301 \211A\262\242\203$ \302\303\304\305G\\D\"\210\306\206- \307\310\"\311\312\313\314\315\316\317\n!\320\"\321\322%\323 \"\324\325 \"\"\326\211\211\327\330 \331 \211\203\\ \211 \232\203\\ \326\262\203h \206m \211\202m \211\206m \266\202\206\243 \332\333! \334\232?\205\200 \332\334!\203\214 \206\221 \211\202\221 \211\206\221 \266\202\206\243 \335 \211\n\232?\205\241 \211\262&\207" [magit-prefer-remote-upstream magit-get-current-branch signal wrong-number-of-arguments magit-read-upstream-branch 2 magit-completing-read format "Change upstream of %s to" -union mapcar make-byte-code 257 "\211\301\300Q\207" vconcat vector ["/"] 4 "\n\n(fn IT)" magit-list-remotes delete magit-list-branch-names nil magit-revision-history magit-remote-branch-at-point magit-branch-at-point magit-branch-p "origin/master" "master" magit-get-previous-branch] 14 (#$ . 78759)]) | |
| 881 | #@32 | |
| 882 | ||
| 883 | (fn PROMPT &optional BRANCH) | |
| 884 | (defalias 'magit-read-starting-point #[513 "\301\205 \302\300!\203 \203 \303\304\"\202 \305\306\307\310#P\311Q\312C\313 \244\314\315 \316\317#\244\316\211\211\320\321 &\206: \322\323!\207" [ivy-mode magit-completing-read boundp format " `%s'" " " propertize face magit-branch-local " starting at" "HEAD" magit-list-refnames directory-files magit-git-dir nil "_HEAD\\'" magit-revision-history magit--default-starting-point user-error "Nothing selected"] 10 (#$ . 79783)]) | |
| 885 | (defalias 'magit--default-starting-point #[0 "\301 \302 \203 \206 \211\202 \211\206 \266\202\206& \303 \206& \304 \206& \305 \207" [magit-prefer-remote-upstream magit-remote-branch-at-point magit-local-branch-at-point magit-commit-at-point magit-stash-at-point magit-get-current-branch] 3]) | |
| 886 | #@39 | |
| 887 | ||
| 888 | (fn PROMPT &optional REQUIRE-MATCH) | |
| 889 | (defalias 'magit-read-tag #[513 "\300\301 \302\302\303\304 &\207" [magit-completing-read magit-list-tags nil magit-revision-history magit-tag-at-point] 10 (#$ . 80599)]) | |
| 890 | #@15 | |
| 891 | ||
| 892 | (fn PROMPT) | |
| 893 | (defalias 'magit-read-stash #[257 "\300 \301\302\303\302\211\304 @&\207" [magit-list-stashes magit-completing-read nil t magit-stash-at-point] 11 (#$ . 80816)]) | |
| 894 | #@42 | |
| 895 | ||
| 896 | (fn PROMPT &optional DEFAULT USE-ONLY) | |
| 897 | (defalias 'magit-read-remote #[769 "\300 \203 \211G\301U\203 \211@\202' \302\303\304\303\211 \206% \305 \206% \306 &\207" [magit-list-remotes 1 magit-completing-read nil t magit-remote-at-point magit-get-remote] 12 (#$ . 81002)]) | |
| 898 | #@33 | |
| 899 | ||
| 900 | (fn PROMPT &optional DEFAULT) | |
| 901 | (defalias 'magit-read-remote-or-url #[513 "\300\301 \302\303\304E\244\305\211\211\211\206 \306 \206 \307 &\207" [magit-completing-read magit-list-remotes "https://" "git://" "git@" nil magit-remote-at-point magit-get-remote] 10 (#$ . 81286)]) | |
| 902 | #@35 | |
| 903 | ||
| 904 | (fn PROMPT &optional PREDICATE) | |
| 905 | (defalias 'magit-read-module-path #[513 "\300\301 \302\303\211\304!&\207" [magit-completing-read magit-list-module-paths t nil magit-module-at-point] 11 (#$ . 81573)]) | |
| 906 | #@33 | |
| 907 | ||
| 908 | (fn VERB &optional PREDICATE) | |
| 909 | (defalias 'magit-module-confirm #[513 "\301\203* \302 \262\203 \303\"\262\211\204F \203# \304\305\"\210\202F \304\306!\210\202F \307\310!\262\211\203F \203= \303\"\262\211\204F \304\311\"\210\211G\312V\203[ \313\314\301\315\316\"\301%\202c \317\315\320\"\"C\207" [current-prefix-arg nil magit-list-module-paths -filter user-error "No modules satisfying %s available" "No modules available" magit-region-values magit-module-section "No modules satisfying %s selected" 1 magit-confirm t format "%s %%i modules" magit-read-module-path "%s module"] 9 (#$ . 81786)]) | |
| 910 | #@40 | |
| 911 | ||
| 912 | (fn VARIABLE WIDTH &optional GLOBAL) | |
| 913 | (defalias 'magit--format-popup-variable:value #[770 "\300\301\302\303G#]\304\"\305\205 \306\"\211\203\" \307\310\311#\202' \307\312\310\313#\262Q\207" [make-string 1 - 3 32 magit-get "--global" propertize face magit-popup-option-value "unset" magit-popup-disabled-argument] 10 (#$ . 82406)]) | |
| 914 | #@40 | |
| 915 | ||
| 916 | (fn VARIABLE WIDTH &optional GLOBAL) | |
| 917 | (defalias 'magit--format-popup-variable:values #[770 "\300\301\302\303G#]\304\"\305\205 \306\"\211\2036 \307@\310\311#\312\313\314\315\316\317 !\320\"\321\322%A\323#P\202; \307\324\310\325#\262Q\207" [make-string 1 - 3 32 magit-get-all "--global" propertize face magit-popup-option-value mapconcat make-byte-code 257 "\301\302\300\303\"\304\305\306#Q\207" vconcat vector ["\n" make-string 32 propertize face magit-popup-option-value] 7 "\n\n(fn VALUE)" "" "unset" magit-popup-disabled-argument] 14 (#$ . 82753)]) | |
| 918 | #@49 | |
| 919 | ||
| 920 | (fn VARIABLE CHOICES &optional DEFAULT OTHER) | |
| 921 | (defalias 'magit--set-popup-variable #[1026 "\302\303\304\305#\211\203 \211\235A@\202 @\262\"\210\206 \211\203. r\211q\210\306 \210)\2021 \306 \210\210\307\310\311$#\207" [magit-current-pre-popup-buffer magit-pre-popup-buffer magit-set magit-git-string "config" "--local" magit-refresh message "%s %s" magit--format-popup-variable:choices*] 12 (#$ . 83324)]) | |
| 922 | #@55 | |
| 923 | ||
| 924 | (fn VARIABLE CHOICES &optional DEFAULT OTHER WIDTH) | |
| 925 | (defalias 'magit--format-popup-variable:choices #[1282 "\203 \300GZ\301\"\202 \302\303$Q\207" [make-string 32 " " magit--format-popup-variable:choices*] 12 (#$ . 83757)]) | |
| 926 | #@49 | |
| 927 | ||
| 928 | (fn VARIABLE CHOICES &optional DEFAULT OTHER) | |
| 929 | (defalias 'magit--format-popup-variable:choices* #[1026 "\300\301\302#\300\301\303#\203 \304!\211\205 \305Q\262\262\306\307\310\311#\312\313\314\315\316\317!\320\"\321\322%\306\323\310\311##\204F \204F \205\233 \306\323\310\311#\203n \306\324P\310\203] \311\202j \235\203i \325\202j \326#\202\232 \203\204 \306\310\203 \311\202\200 \325#\202\232 \205\232 \306\327P\310\203\230 \311\202\231 \325#P\306\330\310\311#R\207" [magit-git-string "config" "--local" "--global" magit-get ":" propertize "[" face magit-popup-disabled-argument mapconcat make-byte-code 257 "\301\302\300\232\203 \303\202 \304#\207" vconcat vector [propertize face magit-popup-option-value magit-popup-disabled-argument] 6 "\n\n(fn CHOICE)" "|" "global:" magit-popup-option-value font-lock-warning-face "default:" "]"] 14 (#$ . 84003)]) | |
| 930 | (provide 'magit-git) | |
