mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
;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)