;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (require 'magit) (defalias 'magit-bundle #[0 "\300\301!\207" [transient-setup magit-bundle] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\313\301\314\315\316\317D\320\321\322\316\323\310\324\257\320\321\325\316\326\310\327\257\320\321\330\316\331\310\332\257E#C\"\207" [put magit-bundle interactive-only t function-documentation "Create or verify Git bundles." transient--prefix transient-prefix :command :man-page "git-bundle" transient--set-layout vector transient-column :description "Actions" transient-suffix :key "c" "create" magit-bundle-create "v" "verify" magit-bundle-verify "l" "list-heads" magit-bundle-list-heads] 14)#@33 (fn &optional FILE REFS ARGS) (defalias 'magit-bundle-create #[768 "\203 \300\301$\207\302\303!\207" [magit-git-bundle "create" transient-setup magit-bundle-create] 8 (#$ . 776) (byte-code "\301=\205\302\303\304\211\211\305\306\307 !!\310P%\311\312\313 \"\314\301!E\207" [transient-current-command magit-bundle-create read-file-name "Create bundle: " nil file-name-nondirectory directory-file-name magit-toplevel ".bundle" magit-completing-read-multiple "Refnames (zero or more): " magit-list-refnames transient-args] 8)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\313\301\314\315\316\317D\320\321\322\316\323\324\325\310\300\326\302\303#\210\300\326\327\330#\210\331\326\332\"\210\326\257 \333\321\334\316\335\324\336\310\300\337\302\303#\210\300\337\327\330#\210\331\337\332\"\210\337\340\303\257 \333\321\341\316\342\324\343\310\300\344\302\303#\210\300\344\327\330#\210\331\344\332\"\210\344\340\303\257 \333\321\345\316\346\324\347\310\300\350\302\303#\210\300\350\327\330#\210\331\350\332\"\210\350\340\303\257 \333\321\351\316\352\324\353\310\300\354\302\303#\210\300\354\327\330#\210\331\354\332\"\210\354\257 \333\321\355\316\356\324\357\310\300\360\302\303#\210\300\360\327\330#\210\331\360\332\"\210\360\257 \361\310\362E\361\310\363E\361\310\364E\257 #\314\315\316\365D\361\321\366\316\367\310\301\257\361\321\370\316\371\310\372\257\361\321\373\316\374\310\375\257E#D\"\207" [put magit-bundle-create interactive-only t function-documentation "Create a bundle." transient--prefix transient-prefix :command :man-page "git-bundle" transient--set-layout vector transient-column :description "Arguments" transient-switch :key "-a" "Include all refs" :argument "--all" transient:magit-bundle-create:--all completion-predicate transient--suffix-only defalias transient--default-infix-command transient-option "-b" "Include branches" "--branches=" transient:magit-bundle-create:--branches= :allow-empty "-t" "Include tags" "--tags=" transient:magit-bundle-create:--tags= "-r" "Include remotes" "--remotes=" transient:magit-bundle-create:--remotes= "-g" "Include refs" "--glob=" transient:magit-bundle-create:--glob= "-e" "Exclude refs" "--exclude=" transient:magit-bundle-create:--exclude= transient-suffix magit-log:-n magit-log:--since magit-log:--until "Actions" "c" "create regular bundle" "t" "create tracked bundle" magit-bundle-create-tracked "u" "update tracked bundle" magit-bundle-update-tracked] 22)#@64 Create and track a new bundle. (fn FILE TAG BRANCH REFS ARGS) (defalias 'magit-bundle-create-tracked #[1285 "\300\301B$\210\302\303\304\305\306\307\310 B\311\fB\312\fB\313\fBF!P&\207" [magit-git-bundle "create" magit-git "tag" "--force" "-m" ";; git-bundle tracking\n" pp-to-string file branch refs args] 18 (#$ . 3261) (byte-code "\300\301!\302\303!\304\305\306 \"\307\310\311\211\211\312P%\211\313 \232\203$\314B\202%\315\316!\257\207" [magit-read-tag "Track bundle using tag" magit-read-branch "Bundle branch" magit-completing-read-multiple "Additional refnames (zero or more): " magit-list-refnames read-file-name "File: " nil ".bundle" magit-get-current-branch "HEAD" transient-args magit-bundle-create] 10)])#@60 Update a bundle that is being tracked using TAG. (fn TAG) (defalias 'magit-bundle-update-tracked #[257 "\301\302\303\304\"r\211q\210\305\306\"\216\307\300!\210\212\310\311\312\313P#)\210\314 \262\3151/\316p!0\2021\210\301*\262\262\317\236A\320\236A\321\236A\322\236A\203N\204T\323\324\"\210\325\326 \327QB$\210\330\331\332 \333 &\207" [process-environment nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] make-local-variable magit-git-insert "for-each-ref" "--format=%(contents)" "refs/tags/" buffer-string (error) read file branch refs args error "Tag %s does not appear to track a bundle" magit-git-bundle "create" ".." magit-git "tag" "--force" "-m"] 14 (#$ . 4005) (byte-code "\300\301!C\207" [magit-read-tag "Update bundle tracked by tag"] 2)])#@79 Check whether FILE is valid and applies to the current repository. (fn FILE) (defalias 'magit-bundle-verify #[257 "\300 \210\301\302\"\207" [magit-process-buffer magit-git-bundle "verify"] 4 (#$ . 4860) (byte-code "\300\301!C\207" [magit-bundle--read-file-name "Verify bundle: "] 2)])#@35 List the refs in FILE. (fn FILE) (defalias 'magit-bundle-list-heads #[257 "\300 \210\301\302\"\207" [magit-process-buffer magit-git-bundle "list-heads"] 4 (#$ . 5152) (byte-code "\300\301!C\207" [magit-bundle--read-file-name "List heads of bundle: "] 2)])#@15 (fn PROMPT) (defalias 'magit-bundle--read-file-name #[257 "\300\301\211\302\303 \304&\207" [read-file-name nil t magit-file-at-point file-regular-p] 8 (#$ . 5415)])#@41 (fn COMMAND FILE &optional REFS ARGS) (defalias 'magit-git-bundle #[1026 "\300\301\302!%\207" [magit-git "bundle" magit-convert-filename-for-git] 10 (#$ . 5589)]) (provide 'magit-bundle)