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