| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\310\303\322\323& \210\312\324\314\315\325DD\326\320\327\310\303\322\323& \210\312\330\314\315\331DD\332\320\333\310\303\334\335\322\336& \210\337\330\340\341#\210\337\330\342\343#\210\312\344\314\315\345DD\346\320\347\310\303\322\350& \207" [require magit custom-declare-group magit-refs nil "Inspect and manipulate Git branches and tags." :link (info-link "(magit)References Buffer") :group magit-modes custom-declare-variable magit-refs-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook run after entering Magit-Refs mode." :package-version (magit . "2.1.0") :type hook magit-refs-sections-hook #[0 "\300\207" [(magit-insert-error-header magit-insert-branch-description magit-insert-local-branches magit-insert-remote-branches magit-insert-tags)] 1] "Hook run to insert sections into a references buffer." (magit . "2.1.0") magit-refs-show-commit-count #[0 "\300\207" [nil] 1] "Whether to show commit counts in Magit-Refs mode buffers.\n\nall Show counts for branches and tags.\nbranch Show counts for branches only.\nnil Never show counts.\n\nTo change the value in an existing buffer use the command\n`magit-refs-show-commit-count'" (magit . "2.1.0") :safe #[257 "\211\300>\207" [(all branch nil)] 3 "\n\n(fn VAL)"] (choice (const all :tag "For branches and tags") (const branch :tag "For branches only") (const nil :tag "Never")) put safe-local-variable symbolp permanent-local t magit-refs-pad-commit-counts #[0 "\300\207" [nil] 1] "Whether to pad all counts on all sides in `magit-refs-mode' buffers.\n\nIf this is nil, then some commit counts are displayed right next\nto one of the branches that appear next to the count, without any\nspace in between. This might look bad if the branch name faces\nlook too similar to `magit-dimmed'.\n\nIf this is non-nil, then spaces are placed on both sides of all\ncommit counts." (magit . "2.12.0") boolean] 12) | |
| 16 | #@277 Whether to show the push-remotes of local branches. | |
| 17 | Also show the commits that the local branch is ahead and behind | |
| 18 | the push-target. Unfortunately there is a bug in Git that makes | |
| 19 | this useless (the commits ahead and behind the upstream are | |
| 20 | shown), so this isn't enabled yet. | |
| 21 | (defvar magit-refs-show-push-remote nil (#$ . 2381)) | |
| 22 | (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314& \210\301\315\303\304\316DD\317\307\320\311\312\311\321\322\323\313\324\325\326\327\330\331\332\333\"&\210\301\334\303\304\335DD\336\307\337\311\312\311\321\313\314& \210\301\340\303\304\341DD\342\307\343\311\312\313\344& \210\301\345\303\304\346DD\347\307\350\311\312\313\351& \210\301\352\303\304\353DD\354\307\355\311\312\313\356& \210\301\357\303\304\360DD\361\307\362\311\312\311\363\364\365\313\366& \207" [magit-log-margin--custom-type custom-declare-variable magit-refs-show-remote-prefix funcall function #[0 "\300\207" [nil] 1] "Whether to show the remote prefix in lists of remote branches.\n\nThis is redundant because the name of the remote is already shown\nin the heading preceeding the list of its branches." :package-version (magit . "2.12.0") :group magit-refs :type boolean magit-refs-margin #[0 "\301A@\302\301\3038\257\207" [magit-log-margin nil magit-log-margin-width 4] 6] "Format of the margin in `magit-refs-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") magit-margin :safe #[257 "\211\300>\207" [(all branch nil)] 3 "\n\n(fn VAL)"] :initialize magit-custom-initialize-reset :set-after (magit-log-margin) :set apply-partially magit-margin-set-variable magit-refs-mode magit-refs-margin-for-tags #[0 "\300\207" [nil] 1] "Whether to show information about tags in the margin.\n\nThis is disabled by default because it is slow if there are many\ntags." (magit . "2.9.0") magit-refs-primary-column-width #[0 "\300\301B\207" [16 32] 2] "Width of the focus column in `magit-refs-mode' buffers.\n\nThe primary column is the column that contains the name of the\nbranch that the current row is about.\n\nIf this is an integer, then the column is that many columns wide.\nOtherwise it has to be a cons-cell of two integers. The first\nspecifies the minimal width, the second the maximal width. In that\ncase the actual width is determined using the length of the names\nof the shown local branches. (Remote branches and tags are not\ntaken into account when calculating to optimal width.)" (magit . "2.12.0") (choice (integer :tag "Constant wide") (cons :tag "Wide constrains" (integer :tag "Minimum") (integer :tag "Maximum"))) magit-refs-focus-column-width #[0 "\300\207" [5] 1] "Width of the focus column in `magit-refs-mode' buffers.\n\nThe focus column is the first column, which marks one\nbranch (usually the current branch) as the focused branch using\n\"*\" or \"@\". For each other reference, this column optionally\nshows how many commits it is ahead of the focused branch and \"<\", or\nif it isn't ahead then the commits it is behind and \">\", or if it\nisn't behind either, then a \"=\".\n\nThis column may also display only \"*\" or \"@\" for the focused\nbranch, in which case this option is ignored. Use \"L v\" to\nchange the verbosity of this column." (magit . "2.12.0") integer magit-refs-filter-alist #[0 "\300\207" [nil] 1] "Alist controlling which refs are omitted from `magit-refs-mode' buffers.\n\nAll keys are tried in order until one matches. Then its value\nis used and subsequent elements are ignored. If the value is\nnon-nil, then the reference is displayed, otherwise it is not.\nIf no element matches, then the reference is displayed.\n\nA key can either be a regular expression that the refname has\nto match, or a function that takes the refname as only argument\nand returns a boolean. Contrary to how they are displayed in\nthe buffer, for comparison each tag begins with \"tags/\" and\neach remote branch with \"<remote>/\"." (magit . "2.12.0") (alist :key-type (choice :tag "Key" regexp function) :value-type (boolean :tag "Value" :on "show (non-nil)" :off "omit (nil)")) magit-visit-ref-behavior #[0 "\300\207" [nil] 1] "Control how `magit-visit-ref' behaves in `magit-refs-mode' buffers.\n\nBy default `magit-visit-ref' behaves like `magit-show-commit',\nin all buffers, including `magit-refs-mode' buffers. When the\ntype of the section at point is `commit' then \"RET\" is bound to\n`magit-show-commit', and when the type is either `branch' or\n`tag' then it is bound to `magit-visit-ref'.\n\n\"RET\" is one of Magit's most essential keys and at least by\ndefault it should behave consistently across all of Magit,\nespecially because users quickly learn that it does something\nvery harmless; it shows more information about the thing at point\nin another buffer.\n\nHowever \"RET\" used to behave differently in `magit-refs-mode'\nbuffers, doing surprising things, some of which cannot really be\ndescribed as \"visit this thing\". If you have grown accustomed\nto such inconsistent, but to you useful, behavior, then you can\nrestore that by adding one or more of the below symbols to the\nvalue of this option. But keep in mind that by doing so you\ndon't only introduce inconsistencies, you also lose some\nfunctionality and might have to resort to `M-x magit-show-commit'\nto get it back.\n\n`magit-visit-ref' looks for these symbols in the order in which\nthey are described here. If the presence of a symbol applies to\nthe current situation, then the symbols that follow do not affect\nthe outcome.\n\n`focus-on-ref'\n\n With a prefix argument update the buffer to show commit counts\n and lists of cherry commits relative to the reference at point\n instead of relative to the current buffer or `HEAD'.\n\n Instead of adding this symbol, consider pressing \"C-u y o RET\".\n\n`create-branch'\n\n If point is on a remote branch, then create a new local branch\n with the same name, use the remote branch as its upstream, and\n then check out the local branch.\n\n Instead of adding this symbol, consider pressing \"b c RET RET\",\n like you would do in other buffers.\n\n`checkout-any'\n\n Check out the reference at point. If that reference is a tag\n or a remote branch, then this results in a detached `HEAD'.\n\n Instead of adding this symbol, consider pressing \"b b RET\",\n like you would do in other buffers.\n\n`checkout-branch'\n\n Check out the local branch at point.\n\n Instead of adding this symbol, consider pressing \"b b RET\",\n like you would do in other buffers." (magit . "2.9.0") magit-commands :options (focus-on-ref create-branch checkout-any checkout-branch) (list :convert-widget custom-hook-convert-widget)] 22) | |
| 23 | #@31 Keymap for `magit-refs-mode'. | |
| 24 | (defvar magit-refs-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\211\207" [magit-mode-map make-sparse-keymap set-keymap-parent define-key "" magit-refs-set-show-commit-count "L" magit-margin-popup] 5) (#$ . 9724)) | |
| 25 | (defvar magit-refs-mode-hook nil) | |
| 26 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-refs-mode-hook variable-documentation put "Hook run after entering Magit Refs mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-refs-mode-map definition-name magit-refs-mode] 4) | |
| 27 | (defvar magit-refs-mode-map (make-sparse-keymap)) | |
| 28 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-refs-mode-abbrev-table magit-refs-mode-map variable-documentation put purecopy "Keymap for `magit-refs-mode'." boundp magit-refs-mode-syntax-table definition-name magit-refs-mode (lambda (#1=#:def-tmp-var) (defvar magit-refs-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-refs-mode'." (lambda (#1#) (defvar magit-refs-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-refs-mode'." derived-mode-parent magit-mode custom-mode-group magit-refs] 5) | |
| 29 | #@799 Mode which lists and compares references. | |
| 30 | ||
| 31 | This mode is documented in info node `(magit)References Buffer'. | |
| 32 | ||
| 33 | \<magit-mode-map>Type \[magit-refresh] to refresh the current buffer. | |
| 34 | Type \[magit-section-toggle] to expand or hide the section at point. | |
| 35 | Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit or branch at point. | |
| 36 | ||
| 37 | Type \[magit-branch-popup] to see available branch commands. | |
| 38 | Type \[magit-merge-popup] to merge the branch or commit at point. | |
| 39 | Type \[magit-cherry-pick-popup] to apply the commit at point. | |
| 40 | Type \[magit-reset] to reset `HEAD' to the commit at point. | |
| 41 | ||
| 42 | \{magit-refs-mode-map} | |
| 43 | ||
| 44 | In addition to any hooks its parent mode `magit-mode' might have run, | |
| 45 | this mode runs the hook `magit-refs-mode-hook', as the final or penultimate step | |
| 46 | during initialization. | |
| 47 | (defalias 'magit-refs-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \210\332 \306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name magit-refs-mode-map magit-refs-mode-syntax-table magit-refs-mode-abbrev-table make-local-variable t magit-mode magit-refs-mode "Magit Refs" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer magit-imenu--refs-create-index-function bookmark-make-record-function magit-bookmark--refs-make-record run-mode-hooks magit-refs-mode-hook local-abbrev-table imenu-create-index-function] 5 (#$ . 11254) nil]) | |
| 48 | #@27 | |
| 49 | ||
| 50 | (fn REF &optional ARGS) | |
| 51 | (defalias 'magit-refs-refresh-buffer #[513 "\306 ?\204 \307\262\310!\204 \311\312\313\314\315\316\317##!\210\320\321!\203+ \211\2023 \211\n\236A\2063 \322\323\321!\203J \324\n\"@\206K \325\326\302#\202K \327\311\330\331 \332 &\333\334\335\336\"\211\203e \211\337=\202\227 \f\205p \340\341!\f\"\211\203{ \342\334\"\202\225 \343 \"\211\205\223 \344!\203\220 \211!\262\211\337=\262\262\262#\210\211\f\206\253 ?\205\253 ?? @\3452^\346\347!\210\350\351!\210\352!\210\353\342\354\"\355\"\210\333\356\331 #\357\360\"\361\313\362\342\363\"\"!\361\313\364\342\363\"\"!\203\356 J\206\365!\203\371 J\206\365!\205\211J\212\342\354\"b\210`W\2038\366`\322\"\206\367`\322\"\2041\370`\322\n$\210\2031\370`\360$\210\211b\266\202 )\266\211?=\203L\311 A\371!)\202]\333\342\372\"\373\342\211\372\"\373\"C\244#0\210+\266\374\375\376\"\207" [magit-set-buffer-margin-refresh magit-refs-show-commit-count magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-buffer-margin-p "HEAD" magit-rev-verify nil magit-set-header-line-format format "%s %s" mapconcat identity " " branchbuf class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-run-section-hook magit-refs-sections-hook run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children add-hook kill-buffer-hook magit-preserve-section-visibility-cache magit-root-section magit-insert-section--current magit-section-cache-visibility] 15 (#$ . 13010)]) | |
| 52 | (byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312& \207" [custom-declare-variable magit-show-refs-arguments funcall function #[0 "\300\207" [nil] 1] "The arguments used in `magit-refs-mode' buffers." :group magit-git-arguments magit-refs :type (repeat (string :tag "Argument"))] 10) | |
| 53 | (defvar magit-show-refs-popup (list :variable 'magit-show-refs-arguments :man-page "git-branch" :switches '((109 "Merged to HEAD" "--merged") (77 "Merged to master" "--merged=master") (110 "Not merged to HEAD" "--no-merged") (78 "Not merged to master" "--no-merged=master")) :options '((99 "Contains" "--contains=" magit-read-branch-or-commit) (109 "Merged" "--merged=" magit-read-branch-or-commit) (110 "Not merged" "--no-merged=" magit-read-branch-or-commit) (115 "Sort" "--sort=" magit-read-ref-sort)) :actions '((121 "Show refs, comparing them with HEAD" magit-show-refs-head) (99 "Show refs, comparing them with current branch" magit-show-refs-current) (111 "Show refs, comparing them with other branch" magit-show-refs)) :default-action 'magit-show-refs-head :max-action-columns 1 :use-prefix #[0 "\301\302!\203 \203\f \303\207\304\207\303\207" [current-prefix-arg derived-mode-p magit-refs-mode popup default] 2])) | |
| 54 | (magit-define-popup-keys-deferred 'magit-show-refs-popup) | |
| 55 | #@29 | |
| 56 | ||
| 57 | (fn PROMPT INITIAL-INPUT) | |
| 58 | (defalias 'magit-read-ref-sort #[514 "\300\301\302\211%\207" [magit-completing-read ("-committerdate" "-authordate" "committerdate" "authordate") nil] 8 (#$ . 16330)]) | |
| 59 | (defalias 'magit-show-refs-get-buffer-args #[0 "\203 \302\303!\203 A@\207\304=\203( \305\303!\211\205# r\211q\210 A@)\262\206+ \306\307!\207" [magit-use-sticky-arguments magit-refresh-args derived-mode-p magit-refs-mode t magit-mode-get-buffer default-value magit-show-refs-arguments] 2]) | |
| 60 | (defalias 'magit-show-refs-arguments #[0 "\302=\203 \207\303 \207" [magit-current-popup magit-current-popup-args magit-show-refs-popup magit-show-refs-get-buffer-args] 2]) | |
| 61 | #@58 Popup console for `magit-show-refs'. | |
| 62 | ||
| 63 | (fn &optional ARG) | |
| 64 | (defalias 'magit-show-refs-popup #[256 "\301 \302\303\304#)\207" [magit-show-refs-arguments magit-show-refs-get-buffer-args magit-invoke-popup magit-show-refs-popup nil] 5 (#$ . 17004) "P"]) | |
| 65 | #@104 List and compare references in a dedicated buffer. | |
| 66 | Refs are compared with `HEAD'. | |
| 67 | ||
| 68 | (fn &optional ARGS) | |
| 69 | (defalias 'magit-show-refs-head #[256 "\300\301\"\207" [magit-show-refs nil] 4 (#$ . 17261) (byte-code "\300 C\207" [magit-show-refs-arguments] 1)]) | |
| 70 | #@144 List and compare references in a dedicated buffer. | |
| 71 | Refs are compared with the current branch or `HEAD' if | |
| 72 | it is detached. | |
| 73 | ||
| 74 | (fn &optional ARGS) | |
| 75 | (defalias 'magit-show-refs-current #[256 "\300\301 \"\207" [magit-show-refs magit-get-current-branch] 4 (#$ . 17521) (byte-code "\300 C\207" [magit-show-refs-arguments] 1)]) | |
| 76 | #@129 List and compare references in a dedicated buffer. | |
| 77 | Refs are compared with a branch read from the user. | |
| 78 | ||
| 79 | (fn &optional REF ARGS) | |
| 80 | (defalias 'magit-show-refs #[512 "\300\301#\207" [magit-mode-setup magit-refs-mode] 6 (#$ . 17846) (byte-code "\300\301!\302 D\207" [magit-read-other-branch "Compare with" magit-show-refs-arguments] 2)]) | |
| 81 | #@50 Change for which refs the commit count is shown. | |
| 82 | (defalias 'magit-refs-set-show-commit-count #[0 "\301\300!\210\302\303\304\"\211\305\267\202 \306\202 \307\202 \310\202 \310\262\311 \207" [magit-refs-show-commit-count make-local-variable read-char-choice "Show commit counts for [a]ll refs, [b]ranches only, [n]othing " (97 98 110) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (97 14 98 18 110 22)) all t nil magit-refresh] 3 (#$ . 18186) nil]) | |
| 83 | #@426 Visit the reference or revision at point in another buffer. | |
| 84 | If there is no revision at point or with a prefix argument prompt | |
| 85 | for a revision. | |
| 86 | ||
| 87 | This command behaves just like `magit-show-commit', except if | |
| 88 | point is on a reference in a `magit-refs-mode' buffer (a buffer | |
| 89 | listing branches and tags), in which case the behavior may be | |
| 90 | different, but only if you have customized the option | |
| 91 | `magit-visit-ref-behavior' (which see). | |
| 92 | (defalias 'magit-visit-ref #[0 "\303\304!\203\316 \305\306!\203\316 \307\310 \311\"\203. \312 >\203! \313!\202\315 \205\315 \314\315\316!)\202\315 \317 >\203\252 \305\320!\203\252 \321!A\322!\203\230 \323\"\203S \324\325\"\210\202\237 \326\327\330#\262\326\327\331#\262\332\333\326\334\327\335#\211\211&\336\"\337\340!\210\211\341\267\202\224 \324\325\"\210\202\224 \324\325\342$\210\202\224 \343\344!\210\210\202\237 \324\325\345$\210\n\240\210\346 \262\202\315 \347 >\204\274 \350 >\203\312 \305\351!\203\312 \324\325\"\210\n\240\210\346 \202\315 \315\316!\207\315\316!\207" [current-prefix-arg magit-visit-ref-behavior magit-refresh-args derived-mode-p magit-refs-mode magit-section-match (branch tag) eieio-oref magit-current-section value focus-on-ref magit-show-refs nil call-interactively magit-show-commit create-branch [branch remote] magit-split-branch-name magit-branch-p magit-rev-eq magit-call-git "checkout" propertize face magit-branch-local magit-branch-remote read-char-choice format "Branch %s already exists.\n [c]heckout %s as-is\n [r]reset %s to %s and checkout %s\n [a]bort " minibuffer-prompt (99 114 97) message "" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 125 114 133 97 144)) "-B" user-error "Abort" "-b" magit-refresh checkout-any checkout-branch [branch local]] 10 (#$ . 18684) nil]) | |
| 93 | #@31 Keymap for `remote' sections. | |
| 94 | (defvar magit-remote-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key [remap magit-delete-thing] magit-remote-remove "R" magit-remote-rename] 5) (#$ . 20506)) | |
| 95 | #@31 Keymap for `branch' sections. | |
| 96 | (defvar magit-branch-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-visit-ref [remap magit-delete-thing] magit-branch-delete "R" magit-branch-rename] 5) (#$ . 20758)) | |
| 97 | #@28 Keymap for `tag' sections. | |
| 98 | (defvar magit-tag-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-visit-ref [remap magit-delete-thing] magit-tag-delete] 5) (#$ . 21070)) | |
| 99 | #@277 Insert header containing the description of the current branch. | |
| 100 | Insert a header line with the name and description of the | |
| 101 | current branch. The description is taken from the Git variable | |
| 102 | `branch.<NAME>.description'; if that is undefined then no header | |
| 103 | line is inserted at all. | |
| 104 | (defalias 'magit-insert-branch-description #[0 "\306 \211\205 \307\310\311#\211\205 \312\313\"\211\205{\314!@\315\232\203% \316!\262\317\320!\2030 \211\2028 \211\236A\2068 \321\322\320!\203O \323\"@\206P \324\325\300#\202P \326\327\330 \331 &\332\333\334\335\"\211\203k \211\336=\202\241 \n\205v \337\340!\n\"\211\203\201 \341\333\"\202\237 \342 \"\211\203\234 \343!\203\226 \211!\262\211\336=\202\235 \344\262\262\262#\210\211\n\206\263 ?\205\263 \f \3452w\346\347@#\210A\203\321 \350\351A\313#c\210\352c\210\353\354!\210\355!\210\356\341\357\"\344\"\210\332\360\330 #\361\362\"\363\364\365\341\366\"\"!\363\364\367\341\366\"\"!\203J\206\370!\203J\206\370!\205\211J\212\341\357\"b\210`W\203R\371`\321\"\2061\372`\321\"\204K\373`\321\n$\210\203K\373`\362$\210\211b\266\202#)\266\211\f=\203e\374 @\375!)\202v\332\341\376\"\377\341\211\376\"\377\"C\244#0\210+\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-get-current-branch magit-get "branch" "description" split-string "\n" last "" butlast branchdesc class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading ": " mapconcat identity "\n\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-section-cache-visibility] 16 (#$ . 21332)]) | |
| 105 | #@35 Insert sections showing all tags. | |
| 106 | (defalias 'magit-insert-tags #[0 "\306\307\310\311A@$\211\205<\312\313!\314\315!\203 \211\202\" \211 \236A\206\" \316\317\315!\2039 \320 \"@\206: \321\322\301#\202: \323\324\325\326 \327\n&\330\331\332\333\"\211\203T \211\334=\202\206 \205_ \335\336! \"\211\203j \337\331\"\202\204 \340\f\"\211\205\202 \341!\203 \211!\262\211\334=\262\262\262#\210\211 \206\230 \n?\205\230 @\34226\343\344!\210\211\203a\211@\345\346\"\210\347\350\"\347\351\"\352!\203X\353\315!\203\311 \211\202\321 \211 \236A\206\321 \316\317\315!\203\350 \320 \"@\206\351 \321\322\301#\202\351 \323\325\326 \327\n&\330\331\332\333\"\211\203\211\334=\202: \205\335\336! \"\211\203\337\331\"\2028\340\f\"\211\2035\341!\203/\211!\262\211\334=\2026\354\262\262\262#\210\211 \206L\n?\205L @\3422T\211\343\355\353\"\356\357\360#\361\350A\nGZ]\362\"\205v\363\324 \"$\210B\203\206\364 \203\206\365!\210\366\"\266\367\370!\210\371!\210\372\337\373\"\354\"\210\330\374\326 #\375\376\"\377\201D \201E \337\201F \"\"!\377\201D \201G \337\201F \"\"!\203\317J\206\346\201H !\203\334J\206\346\201H !\205\346\211J\212\337\373\"b\210`W\203%\201I `\316\"\206\376\201J `\316\"\204 \201K `\316\n$\210\203 \201K `\376$\210\211b\266\202\356)\266\211 =\203:\324 C\201L !)\202S\330\337\201M \"\201N \337\211\201M \"\201N \"C\244#0\210+\266\266A\266\202\202\245 \210\201O c\210\201P \324\354\"\210\367\370!\210\371!\210\372\337\373\"\354\"\210\330\374\326 #\375\376\"\377\201D \201E \337\201F \"\"!\377\201D \201G \337\201F \"\"!\203\261J\206\310\201H !\203\276J\206\310\201H !\205\310\211J\212\337\373\"b\210`W\203\201I `\316\"\206\340\201J `\316\"\204 \201K `\316\n$\210\203 \201K `\376$\210\211b\266\202\320)\266\211 =\203 \324 C\201L !)\2025\330\337\201M \"\201N \337\211\201M \"\201N \"C\244#0\210+\262\262\207" [magit-refresh-args magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-git-lines "tag" "--list" "-n" magit-rev-parse "HEAD" tags class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Tags:" string-match "^\\([^ ]+\\)[ ]+\\([^ \n].*\\)?" match-string 1 2 magit-refs--insert-refname-p tag t magit-refs--format-focus-column propertize face magit-tag make-string 32 magit-log-propertize-keywords magit-buffer-margin-p magit-refs--format-margin magit-refs--insert-cherry-commits run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern magit-insert-section--current magit-refs-primary-column-width magit-refs-margin-for-tags magit-section-cache-visibility format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children 10 magit-make-margin-overlay] 21 (#$ . 23543)]) | |
| 107 | #@55 Insert sections showing all remote-tracking branches. | |
| 108 | (defalias 'magit-insert-remote-branches #[0 "\306 \211\205\322\211@\307\310!\203 \211\202 \211\236A\206 \311\312\310!\2032 \313\"@\2063 \314\315\300#\2023 \316\317\320 \321 &\322\323\324\325\"\211\203M \211\326=\202 \n\205X \327\330!\n\"\211\203c \331\323\"\202} \332 \"\211\205{ \333!\203x \211!\262\211\326=\262\262\262#\210\211\n\206\221 ?\205\221 \f \3342\307\335\336\337\340#\336\337\341#\342\343\344\345\346#\343\345\347#\211\205\272 \205\272 \350Q#\266\202!\210\351\352\353\354\355P@A@$\211\203\335\211@\356\357\351\360\361\"#\211@A\211@A\211@A\211@A\n\211\203 \362P\232\204\363\364!\210\211\262\202\324\365!\203\324\366\310!\203\211\202\"\211\236A\206\"\311\312\310!\2039\313\"@\206:\314\315\300#\202:\316\317\320 \321 &\322\323\324\325\"\211\203U\211\326=\202\213\n\205`\327\330!\n\"\211\203k\331\323\"\202\211\332 \"\211\203\206\333!\203\200\211!\262\211\326=\202\207\367\262\262\262#\210\211\n\206\235 ?\205\235\f \3342\320\211\232A\203\262\202\271GT\351O\335\370!\371 \205\310\372#\373\374BGZ]\375\"\f\205\336\376\351\"$\266\377 \203\354\201D !\210\201E \"\266\201F \201G !\210\201H !\210\201I \331\201J \"\367\"\210\322\201K \320 #\201L \201M \"\201N \342\201O \331\201P \"\"!\201N \342\201Q \331\201P \"\"!\203GJ\206^\201R !\203TJ\206^\201R !\205^\211J\212\331\201J \"b\210`W\203\241\201S `\311\"\206x\201T `\311\"\204\232\201U `\311\n$\210\203\232\201U `\201M $\210\211b\266\202h)\266\211\f=\203\266\351 C\201V !)\202\317\322\331\201W \"\201X \331\211\201W \"\201X \"C\244#0\210+\266\266 A\266\202\202\316 \266\201Y c\210\201Z \351\367\"\210\201F \201G !\210\201H !\210\201I \331\201J \"\367\"\210\322\201K \320 #\201L \201M \"\201N \342\201O \331\201P \"\"!\201N \342\201Q \331\201P \"\"!\203>J\206U\201R !\203KJ\206U\201R !\205U\211J\212\331\201J \"b\210`W\203\230\201S `\311\"\206o\201T `\311\"\204\221\201U `\311\n$\210\203\221\201U `\201M $\210\211b\266\202_)\266\211\f=\203\255\351 C\201V !)\202\306\322\331\201W \"\201X \331\211\201W \"\201X \"C\244#0\210+\266A\266\202\202 \207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-list-remotes remote class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading magit-get "remote" "url" "pushurl" format propertize "Remote %s (%s):" face magit-section-heading magit-branch-remote ", " nil magit-git-lines "for-each-ref" "--format=%(symref:short)%00%(refname:short)%00%(refname)%00%(subject)" "refs/remotes/" -replace "" split-string " " #1="/HEAD" cl--assertion-failed (equal branch (concat remote #1#)) magit-refs--insert-refname-p branch t magit-refs--format-focus-column magit-refs--propertize-branch magit-branch-remote-head make-string 1 32 magit-log-propertize-keywords magit-buffer-margin-p magit-refresh-args magit-refs-show-remote-prefix magit-refs-primary-column-width magit-section-cache-visibility magit-refs--format-margin magit-refs--insert-cherry-commits run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children 10 magit-make-margin-overlay] 33 (#$ . 26832)]) | |
| 109 | #@45 Insert sections showing all local branches. | |
| 110 | (defalias 'magit-insert-local-branches #[0 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317\320 \321 &\322\323\324\325\"\211\203E \211\326=\202w \n\205P \327\330!\n\"\211\203[ \331\323\"\202u \332 \"\211\205s \333!\203p \211!\262\211\326=\262\262\262#\210\211\n\206\211 ?\205\211 \f \3342\272\335\336!\210\337 \211\203 \211@\211@A\211\211\203\252 \340\202\253 \341\307!\203\265 \211\202\275 \211\236A\206\275 \310\311\307!\203\324 \312\"@\206\325 \313\314\300#\202\325 \315\206\335 \342\343!\317\320 \321 &\322\323\324\325\"\211\203\365 \211\326=\202+\n\205 \327\330!\n\"\211\203 \331\323\"\202)\332 \"\211\203&\333!\203 \211!\262\211\326=\202'\344\262\262\262#\210\211\n\206= ?\205=\f \3342 \211\345\335\"\210\346 \203T\347!\210\350\"\266\351\352!\210\353!\210\354\331\355\"\344\"\210\322\356\320 #\357\360\"\361\362\363\331\364\"\"!\361\362\365\331\364\"\"!\203\221J\206\244\366!\203\234J\206\244\366!\205\244\211J\212\331\355\"b\210`W\203\333\367`\310\"\206\272\370`\310\"\204\324\371`\310\n$\210\203\324\371`\360$\210\211b\266\202\254)\266\211\f=\203\356\316 ?\372!)\202\377\322\331\373\"\374\331\211\373\"\374\"C\244#0\210+\266A\266\202\202\226 \210\375c\210\376\316\344\"\210\351\352!\210\353!\210\354\331\355\"\344\"\210\322\356\320 #\357\360\"\361\362\363\331\364\"\"!\361\362\365\331\364\"\"!\203KJ\206^\366!\203VJ\206^\366!\205^\211J\212\331\355\"b\210`W\203\225\367`\310\"\206t\370`\310\"\204\216\371`\310\n$\210\203\216\371`\360$\210\211b\266\202f)\266\211\f=\203\250\316 ?\372!)\202\271\322\331\373\"\374\331\211\373\"\374\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current local class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Branches:" magit-refs--format-local-branches branch commit magit-rev-parse "HEAD" t apply magit-buffer-margin-p magit-refs--format-margin magit-refs--insert-cherry-commits run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children 10 magit-make-margin-overlay magit-section-cache-visibility] 21 (#$ . 30682)]) | |
| 111 | (defalias 'magit-refs--format-local-branches #[0 "\303\304\305\306\307\203 \310\202 \311P\312 A@$\"\313 \204% \304\314\315\316!P!B\262\317\302!\210\320\302!\211:\2045 \211\202J \211@A\211\321\322\323\324 \"#^\266\202\266\202\262\323\325\"\207" [magit-refs-show-push-remote magit-refresh-args magit-refs-primary-column-width -keep magit-refs--format-local-branch magit-git-lines "for-each-ref" "--format=%(HEAD)%00%(refname:short)%00%(refname)%00%(upstream:short)%00%(upstream)%00%(upstream:track)%00" "%(push:remotename)%00%(push)%00%(push:track)%00%(subject)" "%00%00%00%(subject)" "refs/heads" magit-get-current-branch "* " magit-rev-format "%s" make-local-variable default-value apply max mapcar car #[257 "\211A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\n \211\301\302\n\fRGZ]\303\" \257 \266\212\207" [magit-refs-primary-column-width make-string 1 32] 44 "\n\n(fn ARG0)"]] 13]) | |
| 112 | #@13 | |
| 113 | ||
| 114 | (fn LINE) | |
| 115 | (defalias 'magit-refs--format-local-branch #[257 "\302\303\304\305\306\"#\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\211@A\n \203L \307!\205H\211\310\232\205e \205e \311 !\205e \232?\203v \312\205r \313#\202{ \314\315\316\317#\205\230 \320\321\n\"\205\230 \314 \205\216 \322\323\324\f\"\325Q\316\326# \205\265 \320\327 \"\205\265 \314\330\323\324 \" \205\261 \322Q\316\326#\205\326 \205\326 \320\321\"\205\326 \314\323\324\"\325 \205\322 \322Q\316\331#\205\367 \205\367 \320\327\"\205\367 \314\330\323\324\" \205\363 \322Q\316\326#RGT \332 \n\"\205+\333\232\203#\314\316\334#\202)\312\"\322P \205:\314\316\331#\322Q\205D\335\304\"\257\n\266\207\266\212\207" [magit-refs-show-push-remote magit-refs-pad-commit-counts -replace "" nil split-string " " magit-refs--insert-refname-p "*" magit-rev-verify magit-refs--propertize-branch magit-branch-current propertize "(detached)" face font-lock-warning-face string-match "ahead \\([0-9]+\\)" " " match-string 1 ">" magit-dimmed "behind \\([0-9]+\\)" "<" magit-branch-remote magit-refs--format-focus-column "[gone]" error magit-log-propertize-keywords] 52 (#$ . 34516)]) | |
| 116 | #@27 | |
| 117 | ||
| 118 | (fn REF &optional TYPE) | |
| 119 | (defalias 'magit-refs--format-focus-column #[513 "@ \203\n \n\202 \303\304\211\305\"\232\204\" \306=\2038 \307=\2038 \310\203+ \311\202, \312\313S\314\"P\315\316#\202\205 \317=\203D \320=\202E \203\204 \321@\206O \322\"\211@A\211@A\310\323V\203k \324\325!P\202z \323V\203y \325!\326P\202z \327\315\330#\266\202\266\205\202\205 \331\"\207" [magit-refresh-args magit-refs-show-commit-count magit-refs-focus-column-width 1 format "%%%ss " t nil propertize "@" "*" make-string 32 face magit-section-heading tag all magit-rev-diff-count "HEAD" 0 "<" number-to-string ">" "=" magit-dimmed ""] 17 (#$ . 35762)]) | |
| 120 | #@39 | |
| 121 | ||
| 122 | (fn BRANCH REF &optional HEAD-FACE) | |
| 123 | (defalias 'magit-refs--propertize-branch #[770 "\301\302\303\304\305\306!\307\"\310\311%\"A\312\313\203 D\202 #\207" [magit-ref-namespaces cl-find-if make-byte-code 257 "\211@\211\211\300\302\303\304#)\266\203\262\207" vconcat vector [inhibit-changing-match-data nil t string-match] 10 "\n\n(fn ARG0)" propertize face] 10 (#$ . 36422)]) | |
| 124 | #@16 | |
| 125 | ||
| 126 | (fn REFNAME) | |
| 127 | (defalias 'magit-refs--insert-refname-p #[257 "\301\302\303\304\305\306!\307\"\310\311%\"\211\203 \211A\202 \312\207" [magit-refs-filter-alist -first make-byte-code 257 "\211@\211\302!\203 \211\300!\202 \211\300\303\304\305#)\266\203\262\207" vconcat vector [inhibit-changing-match-data functionp nil t string-match] 10 "\n\n(fn ARG0)" t] 8 (#$ . 36818)]) | |
| 128 | #@20 | |
| 129 | ||
| 130 | (fn REF SECTION) | |
| 131 | (defalias 'magit-refs--insert-cherry-commits #[514 "\300\301\"\203 \302\303\304\305##\207\305\"\207" [eieio-oref hidden eieio-oset washer apply-partially magit-refs--insert-cherry-commits-1] 9 (#$ . 37208)]) | |
| 132 | #@20 | |
| 133 | ||
| 134 | (fn REF SECTION) | |
| 135 | (defalias 'magit-refs--insert-cherry-commits-1 #[514 "`\302\303\304\305\306\"\307\310\311 @\206 \312 &\210`U?\205# \313\302\314\")\207" [magit-insert-section--current magit-refresh-args nil magit-git-wash apply-partially magit-log-wash-log cherry "cherry" "-v" magit-abbrev-arg "HEAD" magit-make-margin-overlay t] 11 (#$ . 37450)]) | |
| 136 | #@15 | |
| 137 | ||
| 138 | (fn COMMIT) | |
| 139 | (defalias 'magit-refs--format-margin #[257 "\212\300\301!b\210\302\303\"\304\305\306O\301\305O#\262)\207" [line-beginning-position 0 magit-rev-format "%ct%cN" magit-log-format-margin 10 nil] 8 (#$ . 37814)]) | |
| 140 | (provide 'magit-refs) | |
