;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'magit)
|
#@57 Popup console for subtree commands.
|
|
(fn &optional ARG)
|
(defalias 'magit-subtree-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-subtree-popup nil] 5 (#$ . 425) "P"])
|
(defvar magit-subtree-popup (list :variable 'magit-subtree-arguments :man-page "git-subtree" :switches '("Switches for add, merge, push, and pull" (115 "Squash" "--squash") "Switches for split" (105 "Ignore joins" "--ignore-joins") (106 "Rejoin" "--rejoin")) :options '("Options" (112 "Prefix" "--prefix=" magit-subtree-read-prefix) "Options for add, merge, and pull" (109 "Message" "--message=") "Options for split" (97 "Annotate" "--annotate=") (98 "Branch" "--branch=") (111 "Onto" "--onto=" magit-read-branch-or-commit)) :actions '((97 "Add" magit-subtree-add) (109 "Merge" magit-subtree-merge) (112 "Push" magit-subtree-push) (99 "Add commit" magit-subtree-add-commit) (102 "Pull" magit-subtree-pull) (115 "Split" magit-subtree-split)) :max-action-columns 3))
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-subtree-popup custom-declare-variable magit-subtree-arguments funcall function #[0 "\301\302\"\207" [magit-subtree-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
|
(defalias 'magit-subtree-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-subtree-arguments magit-subtree-popup] 2])
|
(put 'magit-subtree-arguments 'definition-name 'magit-subtree-popup)
|
#@33
|
|
(fn PROMPT &optional DEFAULT)
|
(defalias 'magit-subtree-read-prefix #[513 "\301\302 \303\304P#\305!\203' \306\"\203 \307\"\202( \310\311#\202( \211)\207" [insert-default-directory nil magit-toplevel read-directory-name ": " file-name-absolute-p string-prefix-p file-relative-name user-error "%s isn't inside the repository at %s"] 8 (#$ . 1947)])
|
#@15
|
|
(fn PROMPT)
|
(defalias 'magit-subtree-prefix #[257 "\300\301 \302\303\203/ \203/ @\203 \300\262\202# \304\305\"\203# \211\262\210\211T\262A\262\202 \266\211\262\211\203? \211\306\300O\202B \307!\207" [nil magit-subtree-arguments t 0 string-prefix-p "--prefix=" 9 magit-subtree-read-prefix] 9 (#$ . 2313)])
|
(defalias 'magit-subtree-args #[0 "\300\301\302 \"\207" [-filter #[257 "\301=\203% \211\302\232\2066 \211\303\232\2066 \304\305\"\2066 \304\306\"\2066 \304\307\"\207\211\310\232\2066 \304\311\"\2056 \312=?\207" [this-command magit-subtree-split "--ignore-joins" "--rejoin" string-prefix-p "--annotate=" "--branch=" "--onto=" "--squash" "--message=" magit-subtree-push] 4 "\n\n(fn ARG)"] magit-subtree-arguments] 3])
|
#@33
|
|
(fn SUBCMD PREFIX &rest ARGS)
|
(defalias 'magit-git-subtree #[642 "\300\301\302P$\207" [magit-run-git-async "subtree" "--prefix="] 8 (#$ . 3063)])
|
#@86 Add REF from REPOSITORY as a new subtree at PREFIX.
|
|
(fn PREFIX REPOSITORY REF ARGS)
|
(defalias 'magit-subtree-add #[1028 "\300\301%\207" [magit-git-subtree "add"] 10 (#$ . 3220) (byte-code "\300\301!\302\303!\211\304\305\"\306 E\262B\207" [magit-subtree-prefix "Add subtree" magit-read-remote-or-url "From repository" magit-read-refspec "Ref" magit-subtree-args] 6)])
|
#@65 Add COMMIT as a new subtree at PREFIX.
|
|
(fn PREFIX COMMIT ARGS)
|
(defalias 'magit-subtree-add-commit #[771 "\300\301$\207" [magit-git-subtree "add"] 8 (#$ . 3602) (byte-code "\300\301!\302\303!\304 E\207" [magit-subtree-prefix "Add subtree" magit-read-string-ns "Commit" magit-subtree-args] 3)])
|
#@64 Merge COMMIT into the PREFIX subtree.
|
|
(fn PREFIX COMMIT ARGS)
|
(defalias 'magit-subtree-merge #[771 "\300\301$\207" [magit-git-subtree "merge"] 8 (#$ . 3906) (byte-code "\300\301!\302\303!\304 E\207" [magit-subtree-prefix "Merge into subtree" magit-read-string-ns "Commit" magit-subtree-args] 3)])
|
#@84 Pull REF from REPOSITORY into the PREFIX subtree.
|
|
(fn PREFIX REPOSITORY REF ARGS)
|
(defalias 'magit-subtree-pull #[1028 "\300\301%\207" [magit-git-subtree "pull"] 10 (#$ . 4213) (byte-code "\300\301!\302\303!\211\304\305\"\306 E\262B\207" [magit-subtree-prefix "Pull into subtree" magit-read-remote-or-url "From repository" magit-read-refspec "Ref" magit-subtree-args] 6)])
|
#@110 Extract the history of the subtree PREFIX and push it to REF on REPOSITORY.
|
|
(fn PREFIX REPOSITORY REF ARGS)
|
(defalias 'magit-subtree-push #[1028 "\300\301%\207" [magit-git-subtree "push"] 10 (#$ . 4602) (byte-code "\300\301!\302\303!\304\305!\306 F\207" [magit-subtree-prefix "Push subtree" magit-read-remote-or-url "To repository" magit-read-string-ns "To reference" magit-subtree-args] 4)])
|
#@69 Extract the history of the subtree PREFIX.
|
|
(fn PREFIX COMMIT ARGS)
|
(defalias 'magit-subtree-split #[771 "\300\301$\207" [magit-git-subtree "split"] 8 (#$ . 5008) (byte-code "\300\301!\302\303!\304 E\207" [magit-subtree-prefix "Split subtree" magit-read-string-ns "Commit" magit-subtree-args] 3)])
|
(provide 'magit-subtree)
|
