mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
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 (byte-code "\300\301!\210\300\302!\207" [require magit bookmark] 2)
16 #@363 Handle a Magit BOOKMARK.
17
18 This function will:
19
20 1. Bind `default-directory' to the repository root directory
21    stored in the `filename' bookmark property.
22 2. Invoke the function FN with ARGS as arguments.  This needs to
23    restore the buffer.
24 3. Restore the expanded/collapsed status of top level sections
25    and the point position.
26
27 (fn BOOKMARK FN &rest ARGS)
28 (defalias 'magit-bookmark--jump #[642 "\302!\211\203\303\"\210\202\304\305\306D\"\210\307\310!\203Q\311\312\"\211\203P\313    \314\"\211\203O\211@\313\315\"\313\316\"B\235\203D\317!\210\202H\320!\210A\266\202\202)\210\210\321!\211\203[\211b\210\210\322!\211\203o\323d\324#\203o\325\224b\210\210\326!\211\203\203\327e\324#\203\203\325\225b\210\210)\330\207" [default-directory magit-root-section bookmark-get-filename apply signal bookmark-error-no-filename stringp derived-mode-p magit-mode bookmark-prop-get magit-hidden-sections eieio-oref children type value magit-section-hide magit-section-show bookmark-get-position bookmark-get-front-context-string search-forward t 0 bookmark-get-rear-context-string search-backward nil] 11 (#$ . 477)])
29 (byte-code "\300\301\302\303#\300\207" [function-put magit-bookmark--jump lisp-indent-function 2] 4)
30 #@446 Create a Magit bookmark.
31
32 MODE specifies the expected major mode of current buffer.
33
34 HANDLER should be a function that will be used to restore this
35 buffer.
36
37 MAKE-PROPS should be either nil or a function that will be called
38 with `magit-refresh-args' as the argument list, and may return an
39 alist whose every element has the form (PROP . VALUE) and
40 specifies additional properties to store in the bookmark.
41
42 (fn MODE HANDLER &optional MAKE-PROPS)
43 (defalias 'magit-bookmark--make-record #[770 "=\204 \303\304\"\210\305\306!\307\310#\210\311\312 \"\210\313\314!\203R\307\315\316\317\320\321    \322\"\323\203I@\321\324\"\203=\211B\262\210\211T\262A\262\202+\266\211\237\262\"#\210\203v\325\n\"\211\203u\211@\211@A\211\307#\266A\266\202\202Z\210\211\207" [major-mode magit-root-section magit-refresh-args user-error "Not in a %s buffer" bookmark-make-record-default no-file bookmark-prop-set handler bookmark-set-filename magit-toplevel derived-mode-p magit-mode magit-hidden-sections mapcar #[257 "\300\301\"\300\302\"B\207" [eieio-oref type value] 5 "\n\n(fn IT)"] nil eieio-oref children 0 hidden apply] 16 (#$ . 1721)])
44 (byte-code "\300\301\302\303#\300\207" [function-put magit-bookmark--make-record lisp-indent-function 1] 4)
45 #@48 Handle a Magit status BOOKMARK.
46
47 (fn BOOKMARK)
48 (defalias 'magit-bookmark--status-jump #[257 "\300\301\"\207" [magit-bookmark--jump #[0 "\301!\207" [default-directory magit-status-internal] 2]] 4 (#$ . 2988)])
49 #@33 Create a Magit status bookmark.
50 (defalias 'magit-bookmark--status-make-record #[0 "\300\301\302\"\207" [magit-bookmark--make-record magit-status-mode magit-bookmark--status-jump] 3 (#$ . 3205)])
51 #@46 Handle a Magit refs BOOKMARK.
52
53 (fn BOOKMARK)
54 (defalias 'magit-bookmark--refs-jump #[257 "\300\301\302\303\"\302\304\"$\207" [magit-bookmark--jump magit-show-refs bookmark-prop-get magit-refs magit-args] 8 (#$ . 3406)])
55 #@31 Create a Magit refs bookmark.
56 (defalias 'magit-bookmark--refs-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-refs-mode magit-bookmark--refs-jump #[514 "\300B\301BD\207" [magit-refs magit-args] 5 "\n\n(fn REFS ARGS)"]] 4 (#$ . 3634)])
57 #@45 Handle a Magit log BOOKMARK.
58
59 (fn BOOKMARK)
60 (defalias 'magit-bookmark--log-jump #[257 "\300\301\302\303\"\302\304\"\302\305\"%\207" [magit-bookmark--jump magit-log-other bookmark-prop-get magit-revs magit-args magit-files] 9 (#$ . 3904)])
61 #@81 Generate the default name for a log bookmark.
62
63 (fn BUFFER-NAME REVS ARGS FILES)
64 (defalias 'magit-bookmark--log-make-name #[1028 "\300\301\302\300#\205\303\301\302\300#PR\207" [" " mapconcat identity " touching "] 12 (#$ . 4154)])
65 #@30 Create a Magit log bookmark.
66 (defalias 'magit-bookmark--log-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-log-mode magit-bookmark--log-jump #[771 "\300\301\302 $D\303B\304B\305BF\207" [defaults magit-bookmark--log-make-name buffer-name magit-revs magit-args magit-files] 9 "\n\n(fn REVS ARGS FILES)"]] 4 (#$ . 4398)])
67 #@48 Handle a Magit reflog BOOKMARK.
68
69 (fn BOOKMARK)
70 (defalias 'magit-bookmark--reflog-jump #[257 "\300\301\302\303\304\305!\306\"\307$\"\207" [magit-bookmark--jump make-byte-code 0 "\302\300\303\"\304\302\300\305\"    \")\207" vconcat vector [magit-reflog-arguments bookmark-prop-get magit-args magit-git-reflog magit-ref] 4] 9 (#$ . 4757)])
71 #@72 Generate the default name for a reflog bookmark.
72
73 (fn BUFFER-NAME REF)
74 (defalias 'magit-bookmark--reflog-make-name #[514 "\300Q\207" [" "] 5 (#$ . 5101)])
75 #@33 Create a Magit reflog bookmark.
76 (defalias 'magit-bookmark--reflog-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-reflog-mode magit-bookmark--reflog-jump #[514 "\300\301\302 \"D\303B\304BE\207" [defaults magit-bookmark--reflog-make-name buffer-name magit-ref magit-args] 6 "\n\n(fn REF ARGS)"]] 4 (#$ . 5264)])
77 #@52 Handle a Magit stash list BOOKMARK.
78
79 (fn BOOKMARK)
80 (defalias 'magit-bookmark--stashes-jump #[257 "\300\301\"\207" [magit-bookmark--jump magit-stash-list] 4 (#$ . 5611)])
81 #@37 Create a Magit stash list bookmark.
82 (defalias 'magit-bookmark--stashes-make-record #[0 "\300\301\302\"\207" [magit-bookmark--make-record magit-stashes-mode magit-bookmark--stashes-jump] 3 (#$ . 5788)])
83 #@48 Handle a Magit cherry BOOKMARK.
84
85 (fn BOOKMARK)
86 (defalias 'magit-bookmark--cherry-jump #[257 "\300\301\302\303\"\302\304\"$\207" [magit-bookmark--jump magit-cherry bookmark-prop-get magit-head magit-upstream] 8 (#$ . 5996)])
87 #@82 Generate the default name for a cherry bookmark.
88
89 (fn BUFFER-NAME HEAD UPSTREAM)
90 (defalias 'magit-bookmark--cherry-make-name #[771 "\300\301\260\207" [" " " upstream "] 8 (#$ . 6229)])
91 #@33 Create a Magit cherry bookmark.
92 (defalias 'magit-bookmark--cherry-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-cherry-mode magit-bookmark--cherry-jump #[514 "\300\301\302 #D\303B\304BE\207" [defaults magit-bookmark--cherry-make-name buffer-name magit-head magit-upstream] 7 "\n\n(fn UPSTREAM HEAD)"]] 4 (#$ . 6424)])
93 #@46 Handle a Magit diff BOOKMARK.
94
95 (fn BOOKMARK)
96 (defalias 'magit-bookmark--diff-jump #[257 "\300\301\302\303\"\302\304\"\302\305\"\302\306\"&\207" [magit-bookmark--jump magit-diff-setup bookmark-prop-get magit-rev-or-range magit-const magit-args magit-files] 10 (#$ . 6781)])
97 #@82 Return REV-OR-RANGE with ref names resolved to commit hashes.
98
99 (fn REV-OR-RANGE)
100 (defalias 'magit-bookmark--resolve #[257 "\300\301\"\211:\203\250\211@A\211\204\302!\262\202\243\211:\203\242\211@A\211\204T\211\303H\304U?\262\203>\211\303H\304U\262\204B\202\235\302\305\306O!\307\302!Q\266\202\202\235\211:\203\234\211@A\211\204\204\211\303H\304U?\262\203\204\211\303H\304U?\262\203\204\211\303H\304U\262\204\211\202\227\302!\310\302!Q\266\203\266\202\202\235\266\202\202\243\266\202\202\251\207" [magit-git-lines "rev-parse" magit-rev-abbrev 0 94 1 nil ".." "..."] 15 (#$ . 7068)])
101 #@94 Generate a default name for a diff bookmark.
102
103 (fn BUFFER-NAME REV-OR-RANGE CONST ARGS FILES)
104 (defalias 'magit-bookmark--diff-make-name #[1285 "\300\235\203\f\301\302\303#\207\304\206\305\235\203\306\202\307\205)\310\311\312\313#PR\207" ["--no-index" apply format "*magit-diff %s %s" " " "--cached" "staged" "unstaged" " in " mapconcat identity ", "] 13 (#$ . 7708)])
105 #@31 Create a Magit diff bookmark.
106 (defalias 'magit-bookmark--diff-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-diff-mode magit-bookmark--diff-jump #[1028 "\300!\301\302\303 %D\304B\305B\306B\307B\257\207" [magit-bookmark--resolve defaults magit-bookmark--diff-make-name buffer-name magit-rev-or-range magit-const magit-args magit-files] 12 "\n\n(fn REV-OR-RANGE CONST ARGS FILES)"]] 4 (#$ . 8097)])
107 #@50 Handle a Magit revision BOOKMARK.
108
109 (fn BOOKMARK)
110 (defalias 'magit-bookmark--revision-jump #[257 "\300\301\302\303\"\302\304\"\302\305\"%\207" [magit-bookmark--jump magit-show-commit bookmark-prop-get magit-rev args files] 9 (#$ . 8544)])
111 #@83 Generate a default name for a revision bookmark.
112
113 (fn BUFFER-NAME REV ARGS FILES)
114 (defalias 'magit-bookmark--revision-make-name #[1028 "\300\301\"\302\303!\203\302\304\305\302#P\202 \205 \302PR\207" [magit-rev-format "%s" " " magit-rev-abbrev mapconcat identity] 13 (#$ . 8793)])
115 #@35 Create a Magit revision bookmark.
116 (defalias 'magit-bookmark--revision-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-revision-mode magit-bookmark--revision-jump #[1028 "\301\302\303 $D\304B\305B\306BF\207" [magit-buffer-revision-hash defaults magit-bookmark--revision-make-name buffer-name magit-rev magit-args magit-files] 10 "\n\n(fn REV _ ARGS FILES)"]] 4 (#$ . 9092)])
117 #@47 Handle a Magit stash BOOKMARK.
118
119 (fn BOOKMARK)
120 (defalias 'magit-bookmark--stash-jump #[257 "\300\301\302\303\"\302\304\"\302\305\"%\207" [magit-bookmark--jump magit-stash-show bookmark-prop-get magit-stash magit-args magit-files] 9 (#$ . 9505)])
121 #@84 Generate the default name for a stash bookmark.
122
123 (fn BUFFER-NAME STASH ARGS FILES)
124 (defalias 'magit-bookmark--stash-make-name #[1028 "\300\300\203\301\302\300#\202\303\304\"\260\207" [" " mapconcat identity magit-rev-format "%s"] 12 (#$ . 9761)])
125 #@32 Create a Magit stash bookmark.
126 (defalias 'magit-bookmark--stash-make-record #[0 "\300\301\302\303#\207" [magit-bookmark--make-record magit-stash-mode magit-bookmark--stash-jump #[1028 "\302\303\304 \305!$D\306B\307B\310B\311\312\313\314\315\316\317!\320\"\321\322%\323\324    \325\"\326\203G@\324\327\"\203;\211B\262\210\211T\262A\262\202)\266\211\237\262\"B\257\207" [magit-buffer-revision-hash magit-root-section defaults magit-bookmark--stash-make-name buffer-name magit-rev-abbrev magit-stash magit-args magit-files magit-hidden-sections mapcar make-byte-code 257 "\302\303\"\304\305\300!    \302\306\"#B\207" vconcat vector [magit-buffer-revision-hash eieio-oref type replace-regexp-in-string regexp-quote value] 8 "\n\n(fn IT)" nil eieio-oref children 0 hidden] 18 "\n\n(fn STASH _ ARGS FILES)"]] 4 (#$ . 10026)])
127 #@56 Handle a Magit submodule list BOOKMARK.
128
129 (fn BOOKMARK)
130 (defalias 'magit-bookmark--submodules-jump #[257 "\300\301\"\207" [magit-bookmark--jump magit-list-submodules] 4 (#$ . 10870)])
131 #@41 Create a Magit submodule list bookmark.
132 (defalias 'magit-bookmark--submodules-make-record #[0 "\300\301\302\"\207" [magit-bookmark--make-record magit-submodule-list-mode magit-bookmark--submodules-jump] 3 (#$ . 11060)])
133 (provide 'magit-bookmark)