;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (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 #1=""] "Hook run after entering Magit-Refs mode." :package-version (magit . "2.1.0") :type hook magit-refs-sections-hook #[0 "\300\301\302\303\304\257\207" [magit-insert-error-header magit-insert-branch-description magit-insert-local-branches magit-insert-remote-branches magit-insert-tags] 5 #1#] "Hook run to insert sections into a references buffer." (magit . "2.1.0") magit-refs-show-commit-count #[0 "\300\207" [nil] 1 #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-set-show-commit-count'." (magit . "2.1.0") :safe #[257 "\211\300>\207" [(all branch nil)] 3 "\n\n(fn %)"] (choice (const :tag "For branches and tags" all) (const :tag "For branches only" branch) (const :tag "Never" nil)) put safe-local-variable symbolp permanent-local t magit-refs-pad-commit-counts #[0 "\300\207" [nil] 1 #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)#@277 Whether to show the push-remotes of local branches. Also show the commits that the local branch is ahead and behind the push-target. Unfortunately there is a bug in Git that makes this useless (the commits ahead and behind the upstream are shown), so this isn't enabled yet. (defvar magit-refs-show-push-remote nil (#$ . 2096)) (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\313\314& \210\301\321\303\304\322DD\323\307\324\311\312\311\325\326\327\313\330\331\332\333\334\335\336\337\"&\210\301\340\303\304\341DD\342\307\343\311\312\311\325\313\314& \210\301\344\303\304\345DD\346\307\347\311\312\313\350& \210\301\351\303\304\352DD\353\307\354\311\312\313\355& \210\301\356\303\304\357DD\360\307\361\311\312\313\362& \210\301\363\303\304\364DD\365\307\366\311\312\311\367\370\371\313\372& \207" [magit-log-margin--custom-type custom-declare-variable magit-refs-show-remote-prefix funcall function #[0 "\300\207" [nil] 1 #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 preceding the list of its branches." :package-version (magit . "2.12.0") :group magit-refs :type boolean magit-refs-show-branch-descriptions #[0 "\300\207" [nil] 1 #1#] "Whether to show the description, if any, of local branches.\nTo distinguish branch descriptions from the commit summary of the tip,\nwhich is shown when there is no description or this option is disabled,\ndescriptions use the bold face." (magit . "4.3.0") magit-refs-margin #[0 "\301A@\302\301\3038\257\207" [magit-log-margin nil magit-log-margin-width 4] 6 #1#] "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 author or committer date.\n It can be one of `age' (to show the age of the commit),\n `age-abbreviated' (to abbreviate the time unit to a character),\n or a string (suitable for `format-time-string') to show the\n actual date. Option `magit-log-margin-show-committer-date'\n controls which date is being displayed.\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 %)"] :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 #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\207" [(16 . 32)] 1 #1#] "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 #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 #1#] "Alist controlling which refs are omitted from `magit-refs-mode' buffers.\n\nThe purpose of this option is to forgo displaying certain refs\nbased on their name. If you want to not display any refs of a\ncertain type, then you should remove the appropriate function\nfrom `magit-refs-sections-hook' instead.\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 to\nmatch, or a function that takes the refname as only argument and\nreturns a boolean. A remote branch such as \"origin/master\" is\ndisplayed as just \"master\", however for this comparison the\nformer is used." (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 #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)#@31 Keymap for `magit-refs-mode'. (defvar magit-refs-mode-map (define-keymap :parent magit-mode-map "C-y" 'magit-refs-set-show-commit-count "L" 'magit-margin-settings) (#$ . 10163)) (defvar magit-refs-mode-hook nil) (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) (defvar magit-refs-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\210\303\311\322\323#\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 defvar-1 nil make-syntax-table "Syntax table for `magit-refs-mode'." define-abbrev-table "Abbrev table for `magit-refs-mode'." derived-mode-parent magit-mode custom-mode-group magit-refs] 5)#@781 Mode which lists and compares references. This mode is documented in info node `(magit)References Buffer'. \Type \[magit-refresh] to refresh the current buffer. Type \[magit-section-toggle] to expand or hide the section at point. Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit or branch at point. Type \[magit-branch] to see available branch commands. Type \[magit-merge] to merge the branch or commit at point. Type \[magit-cherry-pick] to apply the commit at point. Type \[magit-reset] to reset `HEAD' to the commit at point. \{magit-refs-mode-map} In addition to any hooks its parent mode `magit-mode' might have run, this mode runs the hook `magit-refs-mode-hook', as the final or penultimate step during initialization. (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 \325C#\210\327 !\210\330\f!\210 \331 \210\332)\333\334!\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 magit-hack-dir-local-variables (local remote tags) run-mode-hooks magit-refs-mode-hook local-abbrev-table magit--imenu-group-types] 5 (#$ . 11538)]) (defvar magit-buffer-refs-args nil nil) (make-variable-buffer-local 'magit-buffer-refs-args) (defvar magit-buffer-refs-upstream nil nil) (make-variable-buffer-local 'magit-buffer-refs-upstream)#@17 (fn REF ARGS) (defalias 'magit-refs-setup-buffer #[514 "\300\301\302\303D\304DD#\207" [magit-setup-buffer-internal magit-refs-mode nil magit-buffer-refs-upstream magit-buffer-refs-args] 8 (#$ . 13350)]) (defalias 'magit-refs-refresh-buffer #[0 "\306 ?\307 !\204\f\310\311\312\313 \314\315\316#\266\202#!\210\317\320\310\211#\211 \2062?\2052\211\3212B\322\323!\210\324!0+\266\325\326\327\"\207" [magit--right-margin-delayed magit-buffer-refs-upstream magit-refs-show-commit-count magit-buffer-refs-args magit-insert-section--current magit-insert-section--oldroot magit--right-margin-active magit-rev-verify nil magit-set-header-line-format format "%s %s" " " mapconcat identity magit-insert-section--create branchbuf cancel-section magit-run-section-hook magit-refs-sections-hook magit-insert-section--finish add-hook kill-buffer-hook magit-preserve-section-visibility-cache magit-insert-section--parent magit-root-section] 10]) (cl-generic-define-method 'magit-buffer-value nil '(&context (major-mode magit-refs-mode)) nil #[0 " B\207" [magit-buffer-refs-upstream magit-buffer-refs-args] 2])#@28 (fn &optional TRANSIENT) (defalias 'magit-show-refs #[256 "\211\203\300\301!\207\302\303\304 \"\207" [transient-setup magit-show-refs magit-refs-setup-buffer "HEAD" magit-show-refs-arguments] 4 (#$ . 14474) (byte-code "\301\302!\206C\207" [current-prefix-arg derived-mode-p magit-refs-mode] 2)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\315\301\316\317\320\321D\322\310\323E\324\325\326\320\327\330\331\310\300\332\302\303#\210\300\332\333\334#\210\335\332\336\"\210\332\337\340\257 \341\325\342\320\343\330\344\310\300\345\302\303#\210\300\345\333\334#\210\335\345\336\"\210\345\257 \324\325\346\320\347\330\350\310\300\351\302\303#\210\300\351\333\334#\210\335\351\336\"\210\351\337\340\257 \341\325\352\320\353\330\354\310\300\355\302\303#\210\300\355\333\334#\210\335\355\336\"\210\355\257 \322\310\356E\257#\316\317\320\357D\322\325\360\320\361\310\362\257\322\325\363\320\364\310\365\257\322\325\366\320\367\310\370\257\322\325\371\320\372\310\373\257F#D\"\207" [put magit-show-refs interactive-only t function-documentation "List and compare references in a dedicated buffer." transient--prefix transient-prefix :command :man-page "git-branch" :value #[0 "\301!\207" [magit-prefix-use-buffer-arguments magit-show-refs-arguments] 2] transient--set-layout vector transient-column :description "Arguments" transient-suffix magit-for-each-ref:--contains transient-option :key "-M" "Merged" :argument "--merged=" transient:magit-show-refs:--merged= completion-predicate transient--suffix-only defalias transient--default-infix-command :reader magit-transient-read-revision transient-switch "-m" "Merged to HEAD" "--merged" transient:magit-show-refs:--merged "-N" "Not merged" "--no-merged=" transient:magit-show-refs:--no-merged= "-n" "Not merged to HEAD" "--no-merged" transient:magit-show-refs:--no-merged magit-for-each-ref:--sort "Actions" "y" "Show refs, comparing them with HEAD" magit-show-refs-head "c" "Show refs, comparing them with current branch" magit-show-refs-current "o" "Show refs, comparing them with other branch" magit-show-refs-other "r" "Show refs, changing commit count display" magit-refs-set-show-commit-count] 21)#@34 (fn &optional USE-BUFFER-ARGS) (defalias 'magit-show-refs-arguments #[256 "\211\204\262\3052D \306=\203\307\305\310\306!\"\210\n\311=\203#\307\305 \"\210\211\312>\211\2051\313\311\314\315=#\211\203=\307\305\316\303\"\"\210\266\317\306\f\"0\207" [magit-direct-use-buffer-arguments transient-current-command major-mode magit-buffer-refs-args transient-values #1=#::cond-let*2467 magit-show-refs throw transient-args magit-refs-mode (always selected) magit-get-mode-buffer nil selected buffer-local-value alist-get] 8 (#$ . 16695)]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\210\300\325\302\"\210\303\325\304\305#\210\303\325\306\307#\210\303\325\310\311#\210\303\325\312\313\314\325\315\326\317\327\321\330\323\331&\n#\207" [defalias magit-for-each-ref:--contains transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Contains" :key "-c" :argument "--contains=" :reader magit-transient-read-revision magit-for-each-ref:--sort "Sort" "-s" "--sort=" magit-read-ref-sort] 14)#@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-read-ref-sort #[771 "\300\301\302\211%\207" [magit-completing-read ("-committerdate" "-authordate" "committerdate" "authordate") nil] 9 (#$ . 17929)])#@95 List and compare references in a dedicated buffer. Compared with `HEAD'. (fn &optional ARGS) (defalias 'magit-show-refs-head #[256 "\300\301\"\207" [magit-refs-setup-buffer "HEAD"] 4 (#$ . 18141) (byte-code "\300 C\207" [magit-show-refs-arguments] 1)])#@134 List and compare references in a dedicated buffer. Compare with the current branch or `HEAD' if it is detached. (fn &optional ARGS) (defalias 'magit-show-refs-current #[256 "\300\301 \"\207" [magit-refs-setup-buffer magit-get-current-branch] 4 (#$ . 18402) (byte-code "\300 C\207" [magit-show-refs-arguments] 1)])#@120 List and compare references in a dedicated buffer. Compared with a branch read from the user. (fn &optional REF ARGS) (defalias 'magit-show-refs-other #[512 "\300\"\207" [magit-refs-setup-buffer] 5 (#$ . 18724) (byte-code "\300\301!\302 D\207" [magit-read-other-branch "Compare with" magit-show-refs-arguments] 2)]) (defalias 'magit-refs-set-show-commit-count #[0 "\301\300!\210\302\303\304\305E\306\244\307\310!\311\312\313#\266\202\314\315!@\316\260\262\317\"\211\320\267\2025\321\2026\322\2026\306\2026\306\262\323\324!\210\325 \207" [magit-refs-show-commit-count make-local-variable read-char-choice "[a]ll refs" "[b]ranches only" "[n]othing" nil "Show commit counts for " butlast ", " mapconcat identity ", or " last " " (97 98 110) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (97 41 98 45 110 49)) all t message "" magit-refresh] 9 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-refs-set-show-commit-count interactive-only t function-documentation "Change for which refs the commit count is shown." transient--suffix transient-suffix :command :description "Change verbosity" :key "v" :transient nil :if-derived magit-refs-mode] 14)#@506 Visit the reference or revision at point in another buffer. If there is no revision at point or with a prefix argument prompt for a revision. This command behaves just like `magit-show-commit', except if point is on a reference in a `magit-refs-mode' buffer (a buffer listing branches and tags), in which case the behavior may be different, but only if you have customized the option `magit-visit-ref-behavior' (which see). When invoked from a menu this command always behaves like `magit-show-commit'. (defalias 'magit-visit-ref #[0 "\3032\364\304\305!\203\306\307!\203\310 \203\311\303\312\313!\"\210\314\315 \316\"\2034\317 >\2034\311\303\320\321 \"\"\210\205B \205B\322\312\313!)\211\203K\311\303\"\210\210\323 >\203\317\306\324!\203\317\311\303\325!A\326!\203\277\327\"\203s\330\331\"\210\202\307\332\333\334#\262\332\333\335#\262\336\337\332\340\333\341#\211\211 &\342\"\343\344!\210\211\345\267\210\202\307\330\331\"\266\202\307\330\331\346$\266\202\307\347\350!\266\202\307\210\202\307\330\331\351$\210\211\352 \262\"\210\353 >\204\341\354 >\203\356\306\355!\203\356\311\303\330\331\"\210\352 \"\210\312\313!\2620\207" [current-prefix-arg magit-visit-ref-behavior magit-buffer-refs-upstream #1=#::cond-let2469 derived-mode-p magit-refs-mode magit-section-match (branch tag) magit-menu-position throw call-interactively magit-show-commit eieio-oref magit-current-section value focus-on-ref magit-refs-setup-buffer magit-show-refs-arguments nil 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 158 114 167 97 179)) "-B" user-error "Abort" "-b" magit-refresh checkout-any checkout-branch [branch local]] 12 (#$ . 20018) nil])#@31 Keymap for `remote' sections. (defvar magit-remote-section-map (byte-code "\300\301\302\303\304\305\306\307\302\"\310\306\311\304\"&\207" [define-keymap " " magit-remote-rename " " magit-remote-remove "<2>" magit-menu-item "Rename %s" "<1>" "Remove %m"] 11) (#$ . 22084))#@31 Keymap for `branch' sections. (defvar magit-branch-section-map (byte-code "\300\301\302\303\304\305\306\307\310\311\302\"\312\310\313\304\"\314\310\315\306\"&\f\207" [define-keymap " " magit-branch-rename " " magit-branch-delete " " magit-visit-ref "<3>" magit-menu-item "Rename %s" "<2>" "Delete %m" "<1>" "Visit commit"] 15) (#$ . 22415))#@39 Keymap for `shelved-branch' sections. (defvar magit-shelved-branch-section-map (define-keymap " " 'magit-delete-shelved-branch) (#$ . 22840))#@28 Keymap for `tag' sections. (defvar magit-tag-section-map (byte-code "\300\301\302\303\304\305\306\307\302\"\310\306\311\304\"&\207" [define-keymap " " magit-tag-delete " " magit-visit-ref "<2>" magit-menu-item "Delete %m" "<1>" "Visit %s"] 11) (#$ . 23014))#@16 (fn SECTION) (defalias 'magit--painted-branch-as-menu-section #[257 "\301\302\303!\205>\304 \211\262\205>\305\306\307\310$\311\312#\210\313\211\203:\211@\314\"\2033\311\315\"#\210A\266\202\202\210\211\262\207" [magit-branch-section-map nil magit-section-match commit magit--painted-branch-at-point magit-section :type branch :value eieio-oset keymap (start content hidden parent children) slot-boundp eieio-oref] 11 (#$ . 23331)]) (add-hook 'magit-menu-alternative-section-hook 'magit--painted-branch-as-menu-section)#@277 Insert header containing the description of the current branch. Insert a header line with the name and description of the current branch. The description is taken from the Git variable `branch..description'; if that is undefined then no header line is inserted at all. (defalias 'magit-insert-branch-description #[0 "\304 \211\205 \305\306\307#\211\205\310\311\"\211\205c\312!@\313\232\203%\314!\262\315\316\317#\211 \2068\n?\2058 \211\3202^\321\322@#\210A\203ZA\311\323\324#\266\202c\210\325c\210\326!0+\210\211\262\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-get-current-branch magit-get "branch" "description" split-string "\n" last "" butlast magit-insert-section--create branchdesc t cancel-section magit-insert-heading ": " mapconcat identity "\n\n" magit-insert-section--finish] 10 (#$ . 23876)])#@35 Insert sections showing all tags. (defalias 'magit-insert-tags #[0 "\306\307\310\311$\211\205\272\312\313!\210\314\315\316\314\211#\211\n\206\" ?\205\"\f\211\3172\263\320G\321\"\210\211\203\250\211@\322\323\"\210\324\325\"\324\326\"\327!\203\237\315\330\331#\211\n\206\\ ?\205\\\f\211\3172\234\320\332\330\"\333\334\335#\336\325 :\203y @\202z GZ]\337\"\205\211\340!$\210&\203\224\341!\210\342!\210\343!0+\266\266A\266\202\2020\210\344c\210\345 \210\343!0+\210\211\262\262\207" [magit-buffer-refs-args magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-refs-primary-column-width magit-git-lines "tag" "--list" "-n" magit-rev-parse "HEAD" nil magit-insert-section--create tags cancel-section magit-insert-heading "Tags" string-match "^\\([^ ]+\\)[ ]+\\([^ \n].*\\)?" match-string-no-properties 1 2 magit-refs--insert-refname-p tag t magit-refs--format-focus-column propertize font-lock-face magit-tag make-string 32 magit-log--wash-summary magit-refs--maybe-format-margin magit-refs--insert-cherry-commits magit-insert-section--finish 10 magit-make-margin-overlay magit-refs-margin-for-tags] 15 (#$ . 24796)])#@55 Insert sections showing all remote-tracking branches. (defalias 'magit-insert-remote-branches #[0 "\306 \211\2055\211@\307\310\311#\211 \206\n?\205 \211\3122+\313\314\315\316#\314\315\317#\320\321\322\323\324#\321\323\325#\211\205C\205C\326Q#\266\202!\210\311\327\330\331\332P\f$\211\203\211@\333\311\334\335\336\"\337\340%\211\242\243\211\242\243\211\242\243\211\242\243\203\220\332\341Q\232\204\207\342\343!\210\262\f\266 \202\332\341Q\232\204\344!\203\307\345\346#\211 \206\265\n?\205\265 \211\3122 \232 \203\312\202\322GT\311O\313\347\n!\350\n\205\341\351#\352\3533:\203\3603@\202\3623GZ]\354\"\205\355 !$\266\356!\210\357!\210\360!0+\266\266 A\266\202\202T\266\361c\210\362 \210\360!0+\266A\266\202\202\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-buffer-refs-args magit-refs-show-remote-prefix magit-list-remotes magit-insert-section--create remote nil cancel-section magit-insert-heading magit-get "remote" "url" "pushurl" format propertize "Remote %s (%s):" font-lock-face magit-section-heading magit-branch-remote ", " magit-git-lines "for-each-ref" "--format=%(symref:short)%00%(refname:short)%00%(refname)%00%(subject)" "refs/remotes/" cl-substitute "" split-string "" :test equal #1="/HEAD" cl--assertion-failed (equal ref (concat "refs/remotes/" 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--wash-summary magit-refs--maybe-format-margin magit-refs--insert-cherry-commits magit-insert-section--finish 10 magit-make-margin-overlay magit-refs-primary-column-width] 25 (#$ . 26024)])#@45 Insert sections showing all local branches. (defalias 'magit-insert-local-branches #[0 "\304\305\306\211#\211 \206\n?\205 \211\3072y\310\311\312\"\210\313 \211\203n\211@\211\242\243\304\2034\314\2025\315\206<\316\317!\311#\211 \206L\n?\205L \211\3072d\320\310\"\210\321!\210\322!\210\323!0+\266A\266\202\202!\210\324c\210\325 \210\323!0+\210\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-insert-section--create local nil cancel-section magit-insert-heading t "Branches" magit-refs--format-local-branches branch commit magit-rev-parse "HEAD" apply magit-refs--maybe-format-margin magit-refs--insert-cherry-commits magit-insert-section--finish 10 magit-make-margin-overlay] 9 (#$ . 27823)])#@47 Insert sections showing all shelved branches. (defalias 'magit-insert-shelved-branches #[0 "\304\305!\211\205y\306\307\310\311#\211 \206\n?\205 \211\3122t\313\311\314\"\210\237\211\203i\211@\306\315\311#\211 \206A\n?\205A \211\3122_\313\316\317\320\310O\321\"\"\210\322!\210\323!\210\324!0+\266A\266\202\202(\210\325c\210\326 \210\324!0+\210\211\262\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-list-refs "refs/shelved/" magit-insert-section--create shelved nil t cancel-section magit-insert-heading "Shelved branches" shelved-branch " " magit--propertize-face 13 magit-refname magit-refs--maybe-format-margin magit-refs--insert-cherry-commits magit-insert-section--finish 10 magit-make-margin-overlay] 11 (#$ . 28624)]) (defalias 'magit-refs--format-local-branches #[0 "\303\304\305\306\307\203 \310\202\311P\312 $\"\313 \204#\304\314\315\316!P!B\262\317\302!\210\320\302!\211:\2043\211\202D\211\242\243\211\321\322\323\324 \"#^\266\202\262\323\325\"\207" [magit-refs-show-push-remote magit-buffer-refs-args magit-refs-primary-column-width seq-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 "\211\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243 \301\302RGZ]\303\" \f \n\257\n\207" [magit-refs-primary-column-width make-string 1 32] 32 "\n\n(fn ARG0)"]] 11])#@13 (fn LINE) (defalias 'magit-refs--format-local-branch #[257 "\303\304\305\306\307\"\310\311%\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\203>\312!\205O\313\232\205X\205X\314!\205X \232?\203k\315\205g\316#\202o\317\320\321\"\f\205\213\322\323\"\205\213\317 \205\202\324\325\326\"\327Q\330\" \205\247\322\331\"\205\247\317\332\325\326\" \205\244\324Q\330\"\205\307\205\307\322\323\n\"\205\307\317\325\326 \"\327 \205\304\324Q\333\"\205\347 \205\347\322\331 \"\205\347\317\332\325\326 \" \205\344\324Q\330\"RGT\334\n\"\205\335\232\203\317\336\"\202\315\"\324P \205(\317\333\"\324Q\304\n\203@\337\340$\341#\211\262\203@\317\342\"\202I\205I\343!\262\257\n\266\207\207" [magit-refs-show-push-remote magit-refs-pad-commit-counts magit-refs-show-branch-descriptions cl-substitute nil "" split-string "" :test equal magit-refs--insert-refname-p "*" magit-rev-verify magit-refs--propertize-branch magit-branch-current magit--propertize-face "(detached)" magit-branch-warning string-match "ahead \\([0-9]+\\)" " " match-string-no-properties 1 ">" magit-dimmed "behind \\([0-9]+\\)" "<" magit-branch-remote magit-refs--format-focus-column "[gone]" error magit-get "branch" "description" bold magit-log--wash-summary] 43 (#$ . 30449)])#@27 (fn REF &optional TYPE) (defalias 'magit-refs--format-focus-column #[513 " \203 \n\202\n\303\304\211\305\"\232\204!\306=\2038\307\232\2038\310\307\232\203,\311\202-\312\313S\314\"P\315\"\202}\316=\203D \317=\202E \203|\320\"\211\242\243\211\242\243\310\321V\203d\322\323!P\202s\321V\203r\323!\324P\202s\325\326\"\266\204\262\202}\327\"\207" [magit-buffer-refs-upstream magit-refs-show-commit-count magit-refs-focus-column-width 1 format "%%%ss " t "HEAD" magit--propertize-face "@" "*" make-string 32 magit-section-heading tag all magit-rev-diff-count 0 "<" number-to-string ">" "=" magit-dimmed ""] 15 (#$ . 31879)])#@39 (fn BRANCH REF &optional HEAD-FACE) (defalias 'magit-refs--propertize-branch #[770 "\301\302\303\"\"A\304\203D\202\"\207" [magit-ref-namespaces cl-find-if make-closure #[257 "\211\242\211\300\301\302\303$\207" [V0 nil string-match t] 10 "\n\n(fn ARG0)"] magit--propertize-face] 8 (#$ . 32539)])#@16 (fn REFNAME) (defalias 'magit-refs--insert-refname-p #[257 "\301\302\303\304\"\"\211\262\203\211A\207\305\207" [magit-refs-filter-alist nil seq-find make-closure #[257 "\211\242\301!\203\f\211\300!\207\211\300\302\303\304$\207" [V0 functionp nil string-match t] 10 "\n\n(fn ARG0)"] t] 6 (#$ . 32855)])#@12 (fn REF) (defalias 'magit-refs--insert-cherry-commits #[257 "\301\302\"\303\304\"\203\305\306\301\307#\262#\207\211 \207" [magit-insert-section--current make-closure #[0 "`\303\304\305\306\307\"\310\311\312 \n\300&\210`U\203\313\314\300\"\202 \315 )\207" [V0 magit-insert-section--current magit-buffer-refs-upstream nil magit-git-wash apply-partially magit-log-wash-log cherry "cherry" "-v" magit-abbrev-arg message "No cherries for %s" magit-make-margin-overlay] 8] eieio-oref hidden eieio-oset washer #[0 "\302\300\303\"\211\211\203\211@\304\305\306\"\303\"\210A\266\202\202\210\301 \210\211\211\2034\211@\304\305\306\"\307\"\210A\266\202\202\210\310\300!\210\311\300!\210\312\300!\207" [V0 V1 magit-section-lineage t set-marker-insertion-type eieio-oref end nil magit-section--set-section-properties magit-section-maybe-remove-heading-map magit-section-maybe-remove-visibility-indicator] 7]] 10 (#$ . 33174)])#@12 (fn REV) (defalias 'magit-refs--maybe-format-margin #[257 "\300 \205\301\302\303\"\211\262\203\304\305\306\307\"#\202\310 \262\207" [magit--right-margin-active nil magit-rev-format "%cN%x00%ct" apply magit-log-format-margin split-string "" magit-make-margin-overlay] 8 (#$ . 34121)]) (provide 'magit-refs)