;ELC ;;; Compiled ;;; in Emacs version 25.3.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 "\303!\211\203\304\"\210\202\305\306\307D\"\210\310\311!\203\202\312\313\"\211\203\201 \314H\n>\2044\305\315\316 D\"\210 \317H\314\203@\211\314H\n>\204M\305\315\316D\"\210\211\320H\314H\n>\204_\305\315\316D\"\210\321HB\235\203o\322!\210\202s\323!\210\210\211T\262A\262\2028\266\210\324!\211\203\214\211b\210\210\325!\211\203\240\326d\327#\203\240\314\224b\210\210\330!\211\203\264\331e\327#\203\264\314\225b\210\210)\332\207" [default-directory magit-root-section cl-struct-magit-section-tags bookmark-get-filename apply signal bookmark-error-no-filename stringp derived-mode-p magit-mode bookmark-prop-get magit-hidden-sections 0 wrong-type-argument magit-section 13 1 2 magit-section-hide magit-section-show bookmark-get-position bookmark-get-front-context-string search-forward t bookmark-get-rear-context-string search-backward nil] 13 (#$ . 479)]) (function-put 'magit-bookmark--jump 'lisp-indent-function 2) #@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 \304\305\"\210\306\307!\310\311#\210\312\313 \"\210\314\315!\203=\310\316\317\320\321\322 \323H\n>\2046\324\325\326 D\"\210 \327H\"\"#\210\203a\330 \"\211\203`\211@\211@A\211\310#\266A\266\202\202E\210\211\207" [major-mode magit-root-section cl-struct-magit-section-tags 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 "\211\301H>\204\302\303\304D\"\210\211\305H\301H>\204!\302\303\304D\"\210\306HB\207" [cl-struct-magit-section-tags 0 signal wrong-type-argument magit-section 1 2] 6 "\n\n(fn IT)"] -filter magit-section-hidden 0 signal wrong-type-argument magit-section 13 apply] 15 (#$ . 1843)]) (function-put 'magit-bookmark--make-record 'lisp-indent-function 1) #@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 (#$ . 3208)]) #@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 (#$ . 3425)]) #@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 (#$ . 3626)]) #@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 (#$ . 3854)]) #@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 bookmark-prop-get magit-revs magit-args magit-files] 9 (#$ . 4124)]) #@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 (#$ . 4368)]) #@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 (#$ . 4612)]) #@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-reflog magit-ref] 4] 9 (#$ . 4971)]) #@72 Generate the default name for a reflog bookmark. (fn BUFFER-NAME REF) (defalias 'magit-bookmark--reflog-make-name #[514 "\300Q\207" [" "] 5 (#$ . 5309)]) #@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 (#$ . 5472)]) #@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 (#$ . 5819)]) #@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 (#$ . 5996)]) #@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 (#$ . 6204)]) #@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 (#$ . 6437)]) #@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 (#$ . 6632)]) #@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 (#$ . 6989)]) #@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 (#$ . 7276)]) #@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 (#$ . 7916)]) #@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 (#$ . 8305)]) #@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 (#$ . 8752)]) #@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 (#$ . 9001)]) #@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 (#$ . 9300)]) #@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 (#$ . 9713)]) #@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 (#$ . 9969)]) #@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 "\303\304\305 \306!$D\307B\310B\311B\312\313\314\315\316\317\320!\321\"\322\323%\324\325 \326H\n>\2044\327\330\331 D\"\210 \332H\"\"B\257\207" [magit-buffer-revision-hash magit-root-section cl-struct-magit-section-tags 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 "\211\303H >\204\304\305\306D\"\210\211\307H\310\311\300!\n\303H >\204'\304\305\306D\"\210\312H#B\207" vconcat vector [cl-struct-magit-section-tags magit-buffer-revision-hash 0 signal wrong-type-argument magit-section 1 replace-regexp-in-string regexp-quote 2] 9 "\n\n(fn IT)" -filter magit-section-hidden 0 signal wrong-type-argument magit-section 13] 17 "\n\n(fn STASH _ ARGS FILES)"]] 4 (#$ . 10234)]) #@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 (#$ . 11219)]) #@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 (#$ . 11409)]) (provide 'magit-bookmark)