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