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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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)