| 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 | (require 'magit) | |
| 16 | #@57 Popup console for subtree commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-subtree-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-subtree-popup nil] 5 (#$ . 425) "P"]) | |
| 20 | (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)) | |
| 21 | (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) | |
| 22 | (defalias 'magit-subtree-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-subtree-arguments magit-subtree-popup] 2]) | |
| 23 | (put 'magit-subtree-arguments 'definition-name 'magit-subtree-popup) | |
| 24 | #@33 | |
| 25 | ||
| 26 | (fn PROMPT &optional DEFAULT) | |
| 27 | (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)]) | |
| 28 | #@15 | |
| 29 | ||
| 30 | (fn PROMPT) | |
| 31 | (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)]) | |
| 32 | (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 | #@33 | |
| 34 | ||
| 35 | (fn SUBCMD PREFIX &rest ARGS) | |
| 36 | (defalias 'magit-git-subtree #[642 "\300\301\302P$\207" [magit-run-git-async "subtree" "--prefix="] 8 (#$ . 3063)]) | |
| 37 | #@86 Add REF from REPOSITORY as a new subtree at PREFIX. | |
| 38 | ||
| 39 | (fn PREFIX REPOSITORY REF ARGS) | |
| 40 | (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)]) | |
| 41 | #@65 Add COMMIT as a new subtree at PREFIX. | |
| 42 | ||
| 43 | (fn PREFIX COMMIT ARGS) | |
| 44 | (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)]) | |
| 45 | #@64 Merge COMMIT into the PREFIX subtree. | |
| 46 | ||
| 47 | (fn PREFIX COMMIT ARGS) | |
| 48 | (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)]) | |
| 49 | #@84 Pull REF from REPOSITORY into the PREFIX subtree. | |
| 50 | ||
| 51 | (fn PREFIX REPOSITORY REF ARGS) | |
| 52 | (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)]) | |
| 53 | #@110 Extract the history of the subtree PREFIX and push it to REF on REPOSITORY. | |
| 54 | ||
| 55 | (fn PREFIX REPOSITORY REF ARGS) | |
| 56 | (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)]) | |
| 57 | #@69 Extract the history of the subtree PREFIX. | |
| 58 | ||
| 59 | (fn PREFIX COMMIT ARGS) | |
| 60 | (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)]) | |
| 61 | (provide 'magit-subtree) | |
