mirror of https://github.com/Chizi123/.emacs.d.git
blame | history | raw
Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70 
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

;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.


 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


 


 


(byte-code "\300\301!\210\300\302!\207" [require magit bookmark] 2)


#@363 Handle a Magit BOOKMARK.


 


This function will:


 


1. Bind `default-directory' to the repository root directory


   stored in the `filename' bookmark property.


2. Invoke the function FN with ARGS as arguments.  This needs to


   restore the buffer.


3. Restore the expanded/collapsed status of top level sections


   and the point position.


 


(fn BOOKMARK FN &rest ARGS)


(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)])


(byte-code "\300\301\302\303#\300\207" [function-put magit-bookmark--jump lisp-indent-function 2] 4)


#@446 Create a Magit bookmark.


 


MODE specifies the expected major mode of current buffer.


 


HANDLER should be a function that will be used to restore this


buffer.


 


MAKE-PROPS should be either nil or a function that will be called


with `magit-refresh-args' as the argument list, and may return an


alist whose every element has the form (PROP . VALUE) and


specifies additional properties to store in the bookmark.


 


(fn MODE HANDLER &optional MAKE-PROPS)


(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)])


(byte-code "\300\301\302\303#\300\207" [function-put magit-bookmark--make-record lisp-indent-function 1] 4)


#@48 Handle a Magit status BOOKMARK.


 


(fn BOOKMARK)


(defalias 'magit-bookmark--status-jump #[257 "\300\301\"\207" [magit-bookmark--jump #[0 "\301!\207" [default-directory magit-status-internal] 2]] 4 (#$ . 2988)])


#@33 Create a Magit status bookmark.


(defalias 'magit-bookmark--status-make-record #[0 "\300\301\302\"\207" [magit-bookmark--make-record magit-status-mode magit-bookmark--status-jump] 3 (#$ . 3205)])


#@46 Handle a Magit refs BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@31 Create a Magit refs bookmark.


(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)])


#@45 Handle a Magit log BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@81 Generate the default name for a log bookmark.


 


(fn BUFFER-NAME REVS ARGS FILES)


(defalias 'magit-bookmark--log-make-name #[1028 "\300\301\302\300#\205\303\301\302\300#PR\207" [" " mapconcat identity " touching "] 12 (#$ . 4154)])


#@30 Create a Magit log bookmark.


(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)])


#@48 Handle a Magit reflog BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@72 Generate the default name for a reflog bookmark.


 


(fn BUFFER-NAME REF)


(defalias 'magit-bookmark--reflog-make-name #[514 "\300Q\207" [" "] 5 (#$ . 5101)])


#@33 Create a Magit reflog bookmark.


(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)])


#@52 Handle a Magit stash list BOOKMARK.


 


(fn BOOKMARK)


(defalias 'magit-bookmark--stashes-jump #[257 "\300\301\"\207" [magit-bookmark--jump magit-stash-list] 4 (#$ . 5611)])


#@37 Create a Magit stash list bookmark.


(defalias 'magit-bookmark--stashes-make-record #[0 "\300\301\302\"\207" [magit-bookmark--make-record magit-stashes-mode magit-bookmark--stashes-jump] 3 (#$ . 5788)])


#@48 Handle a Magit cherry BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@82 Generate the default name for a cherry bookmark.


 


(fn BUFFER-NAME HEAD UPSTREAM)


(defalias 'magit-bookmark--cherry-make-name #[771 "\300\301\260\207" [" " " upstream "] 8 (#$ . 6229)])


#@33 Create a Magit cherry bookmark.


(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)])


#@46 Handle a Magit diff BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@82 Return REV-OR-RANGE with ref names resolved to commit hashes.


 


(fn REV-OR-RANGE)


(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)])


#@94 Generate a default name for a diff bookmark.


 


(fn BUFFER-NAME REV-OR-RANGE CONST ARGS FILES)


(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)])


#@31 Create a Magit diff bookmark.


(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)])


#@50 Handle a Magit revision BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@83 Generate a default name for a revision bookmark.


 


(fn BUFFER-NAME REV ARGS FILES)


(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)])


#@35 Create a Magit revision bookmark.


(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)])


#@47 Handle a Magit stash BOOKMARK.


 


(fn BOOKMARK)


(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)])


#@84 Generate the default name for a stash bookmark.


 


(fn BUFFER-NAME STASH ARGS FILES)


(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)])


#@32 Create a Magit stash bookmark.


(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)])


#@56 Handle a Magit submodule list BOOKMARK.


 


(fn BOOKMARK)


(defalias 'magit-bookmark--submodules-jump #[257 "\300\301\"\207" [magit-bookmark--jump magit-list-submodules] 4 (#$ . 10870)])


#@41 Create a Magit submodule list bookmark.


(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)])


(provide 'magit-bookmark)