mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\310\303\322\323&    \210\312\324\314\315\325DD\326\320\327\310\303\322\330&    \210\312\331\314\315\332DD\333\310\303\322\323&\210\312\334\314\315\335DD\336\320\337\310\303\322\340&    \210\312\341\314\315\342DD\343\310\303\322\344&\210\312\345\314\315\346DD\347\310\303\322\350&\210\312\351\314\315\352DD\353\320\354\310\303\322\355\356\357\360\361& \210\362\363\364\365\310\366%\210\362\367\370\371\310\366%\210\362\372\373\374\310\366%\210\362\375\376\377\310\366%\210\362\201@\304\201A\310\366%\210\362\201B\304\201C\310\366%\210\362\201D\304\201E\310\366%\210\362\201F\304\201G\310\366%\210\201H\201I\201J\201K!\"\210\201H\201L\201M\201K!\"\210\201H\201N\201L\"\210\201O\201N\201P\201Q#\210\201R\201K\201S\201L#\201T\201K\304\201U\304$\207" [require magit custom-declare-group magit-blame nil "Blame support for Magit." :link (info-link "(magit)Blaming") :group magit-modes custom-declare-variable magit-blame-styles funcall function #[0 "\300\207" [((headings (heading-format . "%-20a %C %s\n")) (margin (margin-format " %s%f" " %C %a" " %H") (margin-width . 42) (margin-face . magit-blame-margin) (margin-body-face magit-blame-dimmed)) (highlight (highlight-face . magit-blame-highlight)) (lines (show-lines . t)))] 1] "List of styles used to visualize blame information.\n\nEach entry has the form (IDENT (KEY . VALUE)...).  IDENT has\nto be a symbol uniquely identifing the style.  The following\nKEYs are recognized:\n\n `show-lines'\n    Whether to prefix each chunk of lines with a thin line.\n    This has no effect if `heading-format' is non-nil.\n `highlight-face'\n    Face used to highlight the first line of each chunk.\n    If this is nil, then those lines are not highlighted.\n `heading-format'\n    String specifing the information to be shown above each\n    chunk of lines.  It must end with a newline character.\n `margin-format'\n    String specifing the information to be shown in the left\n    buffer margin.  It must NOT end with a newline character.\n    This can also be a list of formats used for the lines at\n    the same positions within the chunk.  If the chunk has\n    more lines than formats are specified, then the last is\n    repeated.\n `margin-width'\n    Width of the margin, provided `margin-format' is non-nil.\n `margin-face'\n    Face used in the margin, provided `margin-format' is\n    non-nil.  This face is used in combination with the faces\n    that are specific to the used %-specs.  If this is nil,\n    then `magit-blame-margin' is used.\n `margin-body-face'\n    Face used in the margin for all but first line of a chunk.\n    This face is used in combination with the faces that are\n    specific to the used %-specs.  This can also be a list of\n    faces (usually one face), in which case only these faces\n    are used and the %-spec faces are ignored.  A good value\n    might be `(magit-blame-dimmed)'.  If this is nil, then\n    the same face as for the first line is used.\n\nThe following %-specs can be used in `heading-format' and\n`margin-format':\n\n  %H    hash              using face `magit-blame-hash'\n  %s    summary           using face `magit-blame-summary'\n  %a    author            using face `magit-blame-name'\n  %A    author time       using face `magit-blame-date'\n  %c    committer         using face `magit-blame-name'\n  %C    committer time    using face `magit-blame-date'\n\nAdditionally if `margin-format' ends with %f, then the string\nthat is displayed in the margin is made at least `margin-width'\ncharacters wide, which may be desirable if the used face sets\nthe background color.\n\nThe style used in the current buffer can be cycled from the blame\npopup.  Blame commands (except `magit-blame-echo') use the first\nstyle as the initial style when beginning to blame in a buffer." :package-version (magit . "2.13.0") :type string magit-blame-echo-style #[0 "\300\207" [lines] 1] "The blame visualization style used by `magit-blame-echo'.\nA symbol that has to be used as the identifier for one of the\nstyles defined in `magit-blame-styles'." (magit . "2.13.0") symbol magit-blame-time-format #[0 "\300\207" [#1="%F %H:%M"] 1 #1#] "Format for time strings in blame headings." magit-blame-read-only #[0 "\300\207" [t] 1] "Whether to initially make the blamed buffer read-only." (magit . "2.13.0") boolean magit-blame-disable-modes #[0 "\300\207" [(fci-mode yascroll-bar-mode)] 1] "List of modes not compatible with Magit-Blame mode.\nThis modes are turned off when Magit-Blame mode is turned on,\nand then turned on again when turning off the latter." (repeat (symbol :tag "Mode")) magit-blame-mode-lighter #[0 "\300\207" [#2=" Blame"] 1 #2#] "The mode-line lighter of the Magit-Blame mode." (choice (const :tag "No lighter" "") string) magit-blame-goto-chunk-hook #[0 "\300\207" [(magit-blame-maybe-update-revision-buffer magit-blame-maybe-show-message)] 1] "Hook run after point entered another chunk." (magit . "2.13.0") hook :get magit-hook-custom-get :options (magit-blame-maybe-update-revision-buffer magit-blame-maybe-show-message) custom-declare-face magit-blame-highlight ((((class color) (background light)) :background "grey80" :foreground "black") (((class color) (background dark)) :background "grey25" :foreground "white")) "Face used for highlighting when blaming.\nAlso see option `magit-blame-styles'." magit-faces magit-blame-margin ((t :inherit magit-blame-highlight :weight normal :slant normal)) "Face used for the blame margin by default when blaming.\nAlso see option `magit-blame-styles'." magit-blame-dimmed ((t :inherit magit-dimmed :weight normal :slant normal)) "Face used for the blame margin in some cases when blaming.\nAlso see option `magit-blame-styles'." magit-blame-heading ((t :inherit magit-blame-highlight :weight normal :slant normal)) "Face used for blame headings by default when blaming.\nAlso see option `magit-blame-styles'." magit-blame-summary "Face used for commit summaries when blaming." magit-blame-hash "Face used for commit hashes when blaming." magit-blame-name "Face used for author and committer names when blaming." magit-blame-date "Face used for dates when blaming." defalias magit-blame-chunk-p eieio-make-class-predicate magit-blame-chunk magit-blame-chunk--eieio-childp eieio-make-child-predicate magit-blame-chunk-child-p make-obsolete "use (cl-typep ... \\='magit-blame-chunk) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((orig-rev :initarg :orig-rev) (orig-line :initarg :orig-line) (final-line :initarg :final-line) (num-lines :initarg :num-lines) (prev-rev :initform nil) (prev-file :initform nil) (orig-file))] 14)
16 #@74 Create a new object of class type `magit-blame-chunk'.
17
18 (fn &rest SLOTS)
19 (defalias 'magit-blame-chunk #[128 "\300\301\302#\207" [apply make-instance magit-blame-chunk] 5 (#$ . 7150)])
20 (byte-code "\300\301\302\303#\300\207" [function-put magit-blame-chunk compiler-macro magit-blame-chunk--anon-cmacro] 4)
21 #@26 
22
23 (fn WHOLE &rest SLOTS)
24 (defalias 'magit-blame-chunk--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 7462)])
25 #@23 
26
27 (fn &optional TYPE)
28 (defalias 'magit-current-blame-chunk #[256 "\211\203\n\211=\203\305`!\206x\211\205x    \206\n\306\307 ?\"\310\311\312 \"\204+\313\314!\210\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326 \211\203o\211\327\330\331\332>\203V\333\334 B\202X\334 \335\n\336 &\210eb\210\337!@)\202q\340 \262*\262\266\203\207" [magit-blame-type magit-buffer-refname magit-buffer-revision magit-buffer-file-name default-directory magit-blame-chunk-at magit-file-relative-name nil format "%i,+1" line-number-at-pos error "Buffer does not visit a tracked file" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-toplevel magit-git-insert "blame" "--porcelain" (final removal) "--reverse" magit-blame-arguments "-L" "--" magit-blame--parse-chunk magit--not-inside-repository-error] 15 (#$ . 7698)])
29 #@12 
30
31 (fn POS)
32 (defalias 'magit-blame-chunk-at #[257 "\300\301!\302\303\203,\203,@\203\300\262\202 \304\305\"\262\210\211T\262A\262\202\266\211\207" [nil overlays-at t 0 overlay-get magit-blame-chunk] 9 (#$ . 8608)])
33 #@26 
34
35 (fn &optional POS KEY)
36 (defalias 'magit-blame--overlay-at #[512 "\204`\262\300\301!\302\211\"\244\303\304\203A\203A@\203&\300\262\2025\305\206.\306\"\2035\211\262\210\211T\262A\262\202\266\211\207" [nil overlays-at overlays-in t 0 overlay-get magit-blame-chunk] 10 (#$ . 8846)])
37 #@125 Keymap for `magit-blame-mode'.
38 Note that most blaming key bindings are defined
39 in `magit-blame-read-only-mode-map' instead.
40 (defvar magit-blame-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "" magit-blame-quit] 5) (#$ . 9161))
41 #@42 Keymap for `magit-blame-read-only-mode'.
42 (defvar magit-blame-read-only-mode-map (byte-code "\300 \301\302!\203A\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\202w\303\326\305#\210\303\327\307#\210\303\330\311#\210\303\331\313#\210\303\332\315#\210\303\324\317#\210\303\333\321#\210\303\322\323#\210\303\334\325#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\211\207" [make-sparse-keymap featurep jkl define-key [return] magit-show-commit "i" magit-blame-previous-chunk "I" magit-blame-previous-chunk-same-commit "k" magit-blame-next-chunk "K" magit-blame-next-chunk-same-commit "j" magit-blame-addition "l" magit-blame-removal "f" magit-blame-reverse "b" magit-blame-popup " " "p" "P" "n" "N" "r" "B" "c" magit-blame-cycle-style "q" magit-blame-quit [134217847] magit-blame-copy-hash " " magit-diff-show-or-scroll-up "" magit-diff-show-or-scroll-down] 5) (#$ . 9435))
43 (defvar magit-blame-buffer-read-only nil nil)
44 (make-variable-buffer-local 'magit-blame-buffer-read-only)
45 (defvar magit-blame-cache nil nil)
46 (make-variable-buffer-local 'magit-blame-cache)
47 (defvar magit-blame-disabled-modes nil nil)
48 (make-variable-buffer-local 'magit-blame-disabled-modes)
49 (defvar magit-blame-process nil nil)
50 (make-variable-buffer-local 'magit-blame-process)
51 (defvar magit-blame-recursive-p nil nil)
52 (make-variable-buffer-local 'magit-blame-recursive-p)
53 (defvar magit-blame-type nil nil)
54 (make-variable-buffer-local 'magit-blame-type)
55 (defvar magit-blame-separator nil nil)
56 (make-variable-buffer-local 'magit-blame-separator)
57 (defvar magit-blame-previous-chunk nil nil)
58 (make-variable-buffer-local 'magit-blame-previous-chunk)
59 (defvar magit-blame--style nil nil)
60 (make-variable-buffer-local 'magit-blame--style)
61 #@12 
62
63 (fn KEY)
64 (defalias 'magit-blame--style-get #[257 "\301A\"A\207" [magit-blame--style assoc] 4 (#$ . 11314)])
65 (put 'magit-blame--style-get 'byte-optimizer 'byte-compile-inline-expand)
66 #@101 Non-nil if Magit-Blame mode is enabled.
67 Use the command `magit-blame-mode' to change this variable.
68 (defvar magit-blame-mode nil (#$ . 11507))
69 (make-variable-buffer-local 'magit-blame-mode)
70 #@55 Display blame information inline.
71
72 (fn &optional ARG)
73 (defalias 'magit-blame-mode #[256 "\306 \307=\203 ?\202\310!\311V\211\203\214\312\313!\203#\314\315\316!\210\317\320\321\322\211$\210\317\323\324\322\211$\210\317\325\326\322\211$\210\317\327\321\322\211$\210\317\330\331\322\211$\210     \204P\f\203T\332\333!\210 \211\203w\211@\334!\203p\211J\203p\211\335!\210\211'B'A\266\202\202U\210\336 4)\204\2065@)\337 \210\202\364\3406!\203\244\3416!\2106\203\244\342\343!\210\202\230\344\320\321\322#\210\344\323\324\322#\210\344\325\326\322#\210\344\327\321\322#\210\344\330\331\322#\210\n\204\312\332\335!\210\345\335!\210'\211\203\341\211@\211\333!\210A\266\202\202\320\210\346\347!\210\346\350!\210\346\351!\210\337 \210\326 \210\352\353\203\376\354\202\377\355\"\210\312\313!\203#\306 \203\211\306 \232\203#\356\357\360\203\361\202\362#\266\210\363 \210\207" [magit-blame-mode buffer-read-only magit-blame-buffer-read-only magit-blame-read-only magit-buffer-file-name magit-blame-disable-modes current-message toggle prefix-numeric-value 0 called-interactively-p any nil user-error "Don't call `magit-blame-mode' directly; instead use `magit-blame' or `magit-blame-popup'" add-hook after-save-hook magit-blame--run t post-command-hook magit-blame-goto-chunk-hook before-revert-hook magit-blame--remove-overlays after-revert-hook read-only-mode-hook magit-blame-toggle-read-only read-only-mode 1 boundp -1 magit-blame--format-separator magit-blame--update-margin process-live-p kill-process sit-for 0.01 remove-hook magit-blame-read-only-mode kill-local-variable magit-blame-disabled-modes magit-blame-type magit-blame--style run-hooks magit-blame-mode-hook magit-blame-mode-on-hook magit-blame-mode-off-hook " in current buffer" message "Magit-Blame mode %sabled%s" "en" "dis" force-mode-line-update magit-blame-separator magit-blame-styles magit-blame-process] 8 (#$ . 11703) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
74 (defvar magit-blame-mode-hook nil)
75 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [magit-blame-mode-map magit-blame-mode-hook variable-documentation put "Hook run after entering or leaving `magit-blame-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode magit-blame-mode magit-blame-mode-lighter boundp nil] 6)
76 (defalias 'magit-blame-goto-chunk-hook #[0 "\301`!\302!\205\211=\204\303\304!\210\211\211\207" [magit-blame-previous-chunk magit-blame-chunk-at magit-blame-chunk--eieio-childp run-hooks magit-blame-goto-chunk-hook] 3])
77 (defalias 'magit-blame-toggle-read-only #[0 "\301\203    \302\202\n\303!\207" [buffer-read-only magit-blame-read-only-mode 1 -1] 2])
78 #@121 Non-nil if Magit-Blame-Read-Only mode is enabled.
79 Use the command `magit-blame-read-only-mode' to change this variable.
80 (defvar magit-blame-read-only-mode nil (#$ . 14514))
81 (make-variable-buffer-local 'magit-blame-read-only-mode)
82 #@483 Provide keybindings for Magit-Blame mode.
83
84 This minor-mode provides the key bindings for Magit-Blame mode,
85 but only when Read-Only mode is also enabled because these key
86 bindings would otherwise conflict badly with regular bindings.
87
88 When both Magit-Blame mode and Read-Only mode are enabled, then
89 this mode gets automatically enabled too and when one of these
90 modes is toggled, then this mode also gets toggled automatically.
91
92 \{magit-blame-read-only-mode-map}
93
94 (fn &optional ARG)
95 (defalias 'magit-blame-read-only-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [magit-blame-read-only-mode current-message toggle prefix-numeric-value 0 run-hooks magit-blame-read-only-mode-hook magit-blame-read-only-mode-on-hook magit-blame-read-only-mode-off-hook called-interactively-p any " in current buffer" message "Magit-Blame-Read-Only mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 14751) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
96 (defvar magit-blame-read-only-mode-hook nil)
97 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [magit-blame-read-only-mode-map magit-blame-read-only-mode-hook variable-documentation put "Hook run after entering or leaving `magit-blame-read-only-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode magit-blame-read-only-mode nil boundp] 6)
98 #@82 Put `magit-blame-read-only-mode' ahead of `view-mode' in `minor-mode-map-alist'.
99 (defalias 'magit-blame-put-keymap-before-view-mode #[0 "\301\302\303\304\305$\236\211\203\211\306\"B\210\307\310\311\"\207" [minor-mode-map-alist magit-blame-read-only-mode cl-member view-mode :key car delq remove-hook view-mode-hook magit-blame-put-keymap-before-view-mode] 6 (#$ . 16335)])
100 (add-hook 'view-mode-hook 'magit-blame-put-keymap-before-view-mode)
101 (defalias 'magit-blame--run #[0 "\306 \211\203E\211    \204\301\307!\210\310\311!\210\312\n\206 \313\314\f?\" \315>\203,\316\317 B\202.\317 \320\321 !\320\322\314\323\"S!D$\210\324\325\")\202G\326 \207" [default-directory magit-blame-mode magit-buffer-refname magit-buffer-revision magit-buffer-file-name magit-blame-type magit-toplevel 1 message "Blaming..." magit-blame-run-process magit-file-relative-name nil (final removal) "--reverse" magit-blame-arguments line-number-at-pos window-start window-end t set-process-sentinel magit-blame-process-quickstart-sentinel magit--not-inside-repository-error magit-this-process] 10])
102 #@43 
103
104 (fn REVISION FILE ARGS &optional LINES)
105 (defalias 'magit-blame-run-process #[1027 "\302\303\304\205\305\306\307\310#D\311    &\312\313\"\210\314\315\"\210\316\317E#\210\320\321\322\"\211\211\207" [magit-blame-cache magit-blame-process magit-parse-git-async "blame" "--incremental" "-L" apply format "%s,%s" "--" set-process-filter magit-blame-process-filter set-process-sentinel magit-blame-process-sentinel process-put arguments make-hash-table :test equal] 13 (#$ . 17425)])
106 #@22 
107
108 (fn PROCESS EVENT)
109 (defalias 'magit-blame-process-quickstart-sentinel #[514 "\302!\303>\205)\304\305#\210\306!\210r\307\310\"q\210\205(\311 \312\313\307\314\"\"))\207" [magit-blame-mode default-directory process-status (exit signal) magit-blame-process-sentinel t magit-blame-assert-buffer process-get command-buf magit-toplevel apply magit-blame-run-process arguments] 7 (#$ . 17928)])
110 #@38 
111
112 (fn PROCESS EVENT &optional QUIET)
113 (defalias 'magit-blame-process-sentinel #[770 "\301!\211\302>\205J\303\304!!\210\211\305=\203(\306!\307U\203(\204G\310\311!\210\202G\312!\210r\313\314\"q\210\203B\300\315!\210\310\316!\210\202F\310\317!\210)\320\321!\207" [magit-blame-mode process-status (exit signal) kill-buffer process-buffer exit process-exit-status 0 message "Blaming...done" magit-blame-assert-buffer process-get command-buf -1 "Blaming...failed" "Blaming...aborted" kill-local-variable magit-blame-process] 7 (#$ . 18333)])
114 #@23 
115
116 (fn PROCESS STRING)
117 (defalias 'magit-blame-process-filter #[514 "\302\"\210\303\304\"\303\305\"\306!\307\211rq\210\262    \262)r\310!q\210b\210`W\205z\212\311\312\307\313#)\205z\314!\211@A\211@A\315\316\"\203V\317 #\210\202h\320\n\"\206f\317\321! #\262\322 #\266    \323\305`#\210\202')\207" [magit-blame-type magit-blame-cache internal-default-process-filter process-get command-buf parsed process-mark nil process-buffer re-search-forward "^filename .+\n" t magit-blame--parse-chunk eieio-oref orig-rev puthash gethash magit-blame--commit-alist magit-blame--make-overlays process-put] 19 (#$ . 18888)])
118 #@13 
119
120 (fn TYPE)
121 (defalias 'magit-blame--parse-chunk #[257 "\300\211\301\302!\210\303\304\305\306!\307\310\305\311!!\312\310\305\313!!\314\310\305\315!!&\211\262\300y\210\300\211\204t\301\316!\203@\317\262\320\321\305\306!#\266\202n\301\322!\203]\320\323\305\306!#\266\320\324\305\311!#\266\202n\301\325!\203n\305\306!\305\311!BB\262\300y\210\202&\210\326=\203\263\327\323\"\203\263\211\320\330\327\323\"\320\323\327\n\330\"#\266#\266\211\320\321\327\324\"\320\324\327\n\321\"#\266#\266\300\262\210D\207" [nil looking-at "^\\(.\\{40\\}\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)" magit-blame-chunk :orig-rev match-string 1 :orig-line string-to-number 2 :final-line 3 :num-lines 4 "^filename \\(.+\\)" t eieio-oset orig-file "^previous \\(.\\{40\\}\\) \\(.+\\)" prev-rev prev-file "^\\([^ ]+\\) \\(.+\\)" removal slot-value orig-rev] 16 (#$ . 19535)])
122 #@12 
123
124 (fn REV)
125 (defalias 'magit-blame--commit-alist #[257 "\300\301\302\303\304\305\306#\307\"#\207" [cl-mapcar cons ("summary" "author" "author-time" "author-tz" "committer" "committer-time" "committer-tz") split-string magit-rev-format "%s %an %ad %cn %cd" "--date=format:%s %z" " "] 9 (#$ . 20428)])
126 #@16 
127
128 (fn PROCESS)
129 (defalias 'magit-blame-assert-buffer #[257 "\300\301\302\"!?\205\303!\210\304\305!\207" [buffer-live-p process-get command-buf kill-process user-error "Buffer being blamed has been killed"] 5 (#$ . 20735)])
130 #@26 
131
132 (fn BUF CHUNK REVINFO)
133 (defalias 'magit-blame--make-overlays #[771 "rq\210\212\214~\210eb\210\300\301\"Sy\210`\212\300\302\"y\210`)\303\"\210\304$\210\305$\210\306\"\266\202+\207" [eieio-oref final-line num-lines magit-blame--remove-overlays magit-blame--make-margin-overlays magit-blame--make-heading-overlay magit-blame--make-highlight-overlay] 10 (#$ . 20967)])
134 #@30 
135
136 (fn CHUNK REVINFO BEG END)
137 (defalias 'magit-blame--make-margin-overlays #[1028 "\212\300`W\205\301#\210\302y\210\211T\262\202\262)\207" [0 magit-blame--make-margin-overlay nil] 9 (#$ . 21355)])
138 #@27 
139
140 (fn CHUNK REVINFO LINE)
141 (defalias 'magit-blame--make-margin-overlay #[771 "\300 \301 T^\302\"\303\304#\210\303\305#\210\303\306#\210\307!\207" [line-end-position line-beginning-position make-overlay overlay-put magit-blame-chunk magit-blame-revinfo magit-blame-margin magit-blame--update-margin-overlay] 10 (#$ . 21567)])
142 #@30 
143
144 (fn CHUNK REVINFO BEG END)
145 (defalias 'magit-blame--make-heading-overlay #[1028 "\300\"\301\302#\210\301\303#\210\301\304\305#\210\306!\207" [make-overlay overlay-put magit-blame-chunk magit-blame-revinfo magit-blame-heading t magit-blame--update-heading-overlay] 9 (#$ . 21910)])
146 #@18 
147
148 (fn CHUNK BEG)
149 (defalias 'magit-blame--make-highlight-overlay #[514 "\300\301 T\"\302\303#\210\302\304\305#\210\306!\207" [make-overlay line-end-position overlay-put magit-blame-chunk magit-blame-highlight t magit-blame--update-highlight-overlay] 7 (#$ . 22208)])
150 (defalias 'magit-blame--update-margin #[0 "\302\303A\"A\262\206 \304\305\306 p\"\207" [magit-blame--style left-margin-width margin-width assoc 0 set-window-buffer selected-window] 4])
151 (defalias 'magit-blame--update-overlays #[0 "\214~\210\300ed\"\211\205;\211@\301\302\"\203\303!\210\2024\301\304\"\203)\305!\210\2024\301\306\"\2034\307!\210A\266\202\202\262)\207" [overlays-in overlay-get magit-blame-heading magit-blame--update-heading-overlay magit-blame-margin magit-blame--update-margin-overlay magit-blame-highlight magit-blame--update-highlight-overlay] 5])
152 #@11 
153
154 (fn OV)
155 (defalias 'magit-blame--update-margin-overlay #[257 "\301\302\303\304A\"A\262\205^\305\306\307\310\311D\312\313\"\314\304A\"A\262\315\304A\"A\262\316 :\2048\206B8\206B\317!@\320U\204T\321\304A\"A\262\206Y\206Y\313#\266\203D##\207" [magit-blame--style overlay-put before-string margin-width assoc propertize "o" display margin left-margin overlay-get magit-blame-margin margin-format margin-face magit-blame--format-string last 0 margin-body-face] 18 (#$ . 23072)])
156 #@11 
157
158 (fn OV)
159 (defalias 'magit-blame--update-heading-overlay #[257 "\302\303\304\305A\"A\262\211\203\306\307#\202@\310\305A\"A\262\205@\311\305A\"A\262\203?\212\312!b\210`\313 U)?\205@    \262#\207" [magit-blame--style magit-blame-separator overlay-put before-string heading-format assoc magit-blame--format-string magit-blame-heading show-lines margin-format overlay-start line-end-position] 9 (#$ . 23583)])
160 #@11 
161
162 (fn OV)
163 (defalias 'magit-blame--update-highlight-overlay #[257 "\301\302\303\304A\"A\262#\207" [magit-blame--style overlay-put face highlight-face assoc] 8 (#$ . 24012)])
164 #@23 
165
166 (fn OV FORMAT FACE)
167 (defalias 'magit-blame--format-string #[771 "\300\301\"\300\302\"D\303\"A\211\204,\205#\304\305\306\"$\262BC\244\210\207" [overlay-get magit-blame-chunk magit-blame-revinfo assoc magit-blame--format-string-1 eieio-oref orig-rev] 12 (#$ . 24195)])
168 #@32 
169
170 (fn REV REVINFO FORMAT FACE)
171 (defalias 'magit-blame--format-string-1 #[1028 "\301\232\203(\302\303\304\"\203\304\202\305\306\307\310\"\203 \310\202!\305Q\311#\202\207\312\302\311#\313\314\315\316\317!\320\"\321\322%\323\324\325\n\326\"B\327\n\330\331$B\332 \333\334$B\335\f\336\334$B\337     \340\341\342%B\343\n\344\345\342%B\346BBBBBB\262\262\262\"\307\347\"\205\227\350\351A\"A\262\211\203\257\302\352\353GZ]\354\"\311#P\202\260\262\207" [magit-blame--style "0000000000000000000000000000000000000000" propertize string-prefix-p " " #1="" "Not Yet Committed" string-suffix-p "\n" face magit--format-spec make-byte-code 514 "\301\302\300\203\300<\203\300\202\300D\202#\207" vconcat vector [propertize face] 7 "\n\n(fn S F)" #[1028 "\300\"A\"\207" [assoc] 8 "\n\n(fn REVINFO --CL-P0-- K F)"] #[1285 "\300\301\"A\301    \"A\"\"\207" [magit-blame--format-time-string assoc] 11 "\n\n(fn REVINFO --CL-P0-- K1 K2 F)"] 72 magit-blame-hash 115 "summary" magit-blame-summary 97 "author" magit-blame-name 99 "committer" 65 "author-time" "author-tz" magit-blame-date 67 "committer-time" "committer-tz" ((102 . #1#)) "%f" margin-width assoc make-string 0 32] 21 (#$ . 24489)])
172 (defalias 'magit-blame--format-separator #[0 "\300\211\301\302\303#\300\304\305\306#P\307\310\311\312\310\313\306$D#\207" [propertize " " display (space :height (2)) "\n" line-height t face :background face-attribute magit-blame-heading nil] 9])
173 #@16 
174
175 (fn TIME TZ)
176 (defalias 'magit-blame--format-time-string #[514 "\303\304A\"A\262\206     \305\n\306\"?\205\"\307\310\"\205\"\311\312!!@\313\314\315!!#\207" [magit-blame--style magit-blame-time-format emacs-version time-format assoc version< "25" string-match "%z" last parse-time-string format-time-string seconds-to-time string-to-number] 9 (#$ . 25983)])
177 #@26 
178
179 (fn &optional BEG END)
180 (defalias 'magit-blame--remove-overlays #[512 "\214~\210\300\206    e\206d\"\211\205'\211@\301\302\"\203 \303!\210A\266\202\202\262)\207" [overlays-in overlay-get magit-blame-chunk delete-overlay] 7 (#$ . 26356)])
181 (defalias 'magit-blame-maybe-show-message #[0 "\303\304A\"A\262\2057\305\306\307\310\311 \312\"\n\"\236A\211\2031\211\305\313O\262\314\305G\315$\210\316!\2024\316\317!\262)\207" [magit-blame--style message-log-max magit-blame-cache show-message assoc 0 heading gethash eieio-oref magit-current-blame-chunk orig-rev -1 set-text-properties nil message "Commit data not available yet.  Still blaming."] 6])
182 #@212 For each line show the revision in which it was added.
183 Show the information about the chunk at point in the echo area
184 when moving between chunks.  Unlike other blaming commands, do
185 not turn on `read-only-mode'.
186 (defalias 'magit-blame-echo #[0 "\203\306\307!\210\310\303!\210    \n\236\310\304!\210\311\fB \204#\312\313 )\207\314\315!\210\316 \207" [magit-buffer-file-name magit-blame-echo-style magit-blame-styles magit-blame--style magit-blame-disable-modes magit-blame-mode user-error "Blob buffers aren't supported" make-local-variable eldoc-mode nil magit-blame-addition read-only-mode -1 magit-blame--update-overlays magit-blame-read-only] 2 (#$ . 27028) nil])
187 #@56 For each line show the revision in which it was added.
188 (defalias 'magit-blame-addition #[0 "\300\301!\210\302\301!\210\303 \207" [magit-blame--pre-blame-assert addition magit-blame--pre-blame-setup magit-blame--run] 2 (#$ . 27705) nil])
189 #@58 For each line show the revision in which it was removed.
190 (defalias 'magit-blame-removal #[0 "\204\301\302!\210\303\304!\210\305\304!\210\306 \207" [magit-buffer-file-name user-error "Only blob buffers can be blamed in reverse" magit-blame--pre-blame-assert removal magit-blame--pre-blame-setup magit-blame--run] 2 (#$ . 27948) nil])
191 #@64 For each line show the last revision in which it still exists.
192 (defalias 'magit-blame-reverse #[0 "\204\301\302!\210\303\304!\210\305\304!\210\306 \207" [magit-buffer-file-name user-error "Only blob buffers can be blamed in reverse" magit-blame--pre-blame-assert final magit-blame--pre-blame-setup magit-blame--run] 2 (#$ . 28290) nil])
193 #@13 
194
195 (fn TYPE)
196 (defalias 'magit-blame--pre-blame-assert #[257 "\304 \204\305 \210\203*\211    =\203*\306 \211\203&\307\310\"?\205)\311\312!\202)\311\313!\207\314\315\n?\"?\205> \203;\311\316!\207\311\317!\207" [magit-blame-mode magit-blame-type magit-buffer-file-name buffer-file-name magit-toplevel magit--not-inside-repository-error magit-current-blame-chunk eieio-oref prev-rev user-error "Chunk has no further history" "Commit data not available yet.  Still blaming." magit-file-relative-name nil "Buffer isn't visiting a tracked file" "Buffer isn't visiting a file"] 5 (#$ . 28636)])
197 #@13 
198
199 (fn TYPE)
200 (defalias 'magit-blame--pre-blame-setup #[257 "\203$\211    =\203!\n\304 \210\305\302!\210\211\305\303!\210\306\307 \266\202$\310 \210\211\211\207" [magit-blame-mode magit-blame-type magit-blame--style magit-blame-recursive-p magit-blame-visit-other-file make-local-variable t redisplay magit-blame--remove-overlays] 4 (#$ . 29236)])
201 #@50 Visit another blob related to the current chunk.
202 (defalias 'magit-blame-visit-other-file #[0 "\301 \302\303\"\204 \304\305!\210\306 \211\203$\211\307\302\303\"\302\310\"\"\210)\202'\311 \210\210eb\210\302\312\"Sy\207" [default-directory magit-current-blame-chunk slot-value prev-rev user-error "Chunk has no further history" magit-toplevel magit-find-file prev-file magit--not-inside-repository-error orig-line] 7 (#$ . 29593) nil])
203 #@46 Visit the blob related to the current chunk.
204 (defalias 'magit-blame-visit-file #[0 "\301 \302 \211\203\211\303\304\305\"\304\306\"\"\210)\202\307 \210\210eb\210\304\310\"Sy\207" [default-directory magit-current-blame-chunk magit-toplevel magit-find-file slot-value orig-rev orig-file magit--not-inside-repository-error orig-line] 7 (#$ . 30040) nil])
205 #@107 Turn off Magit-Blame mode.
206 If the buffer was created during a recursive blame,
207 then also kill the buffer.
208 (defalias 'magit-blame-quit #[0 "\301\302!\210\205\n\303 \207" [magit-blame-recursive-p magit-blame-mode -1 kill-buffer] 2 (#$ . 30406) nil])
209 #@25 Move to the next chunk.
210 (defalias 'magit-blame-next-chunk #[0 "\300`\301\"\211\203 \211b\202\302\303!\207" [next-single-char-property-change magit-blame-chunk user-error "No more chunks"] 3 (#$ . 30662) nil])
211 #@29 Move to the previous chunk.
212 (defalias 'magit-blame-previous-chunk #[0 "\300`\301\"\211\203 \211b\202\302\303!\207" [previous-single-char-property-change magit-blame-chunk user-error "No more chunks"] 3 (#$ . 30880) nil])
213 #@52 Move to the next chunk from the same commit.
214
215 (fn)
216 (defalias 'magit-blame-next-chunk-same-commit #[256 "\300\301 \302\"\211\203]`\303\212\211\204I\203e\202dU\204I\203&\304\202'\305\306\"\211\262\203I\307!\211\203E\300\310!\302\"\232\203E\211\262\210\202\f)\211\203U\311!b\202X\312\313!\266\202\202`\312\314!\207" [eieio-oref magit-current-blame-chunk orig-rev nil previous-single-char-property-change next-single-char-property-change magit-blame-chunk magit-blame--overlay-at magit-blame-chunk-at overlay-start user-error "No more chunks from same commit" "This chunk hasn't been blamed yet"] 8 (#$ . 31110) nil])
217 #@50 Move to the previous chunk from the same commit.
218 (defalias 'magit-blame-previous-chunk-same-commit #[0 "\300\301!\207" [magit-blame-next-chunk-same-commit previous-single-char-property-change] 2 (#$ . 31756) nil])
219 #@104 Change how blame information is visualized.
220 Cycle through the elements of option `magit-blame-styles'.
221 (defalias 'magit-blame-cycle-style #[0 "\302@    \303\304$A@\206    @\305 \210\306 \207" [magit-blame--style magit-blame-styles cl-member :key car magit-blame--update-margin magit-blame--update-overlays] 5 (#$ . 31977) nil])
222 #@168 Save hash of the current chunk's commit to the kill ring.
223
224 When the region is active, then save the region's content
225 instead of the hash, like `kill-ring-save' would.
226 (defalias 'magit-blame-copy-hash #[0 "\300 \203 \301\302\211\303#\207\304\305\306\307\310 \311\"\"!\207" [use-region-p copy-region-as-kill nil region kill-new message "%s" eieio-oref magit-current-blame-chunk orig-rev] 6 (#$ . 32310) nil])
227 #@55 Popup console for blame commands.
228
229 (fn &optional ARG)
230 (defalias 'magit-blame-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-blame-popup nil] 5 (#$ . 32724) "P"])
231 (defvar magit-blame-popup (list :variable 'magit-blame-arguments :man-page "git-blame" :switches '((119 "Ignore whitespace" "-w") (114 "Do not treat root commits as boundaries" "--root")) :options '((77 "Detect lines moved or copied within a file" "-M") (67 "Detect lines moved or copied between files" "-C")) :actions '("Actions" (98 "Show commits adding lines" magit-blame-addition) (114 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "Show commits removing lines" 'face 'default)))) magit-blame-removal) (102 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "Show last commits that still have lines" 'face 'default)))) magit-blame-reverse) (lambda nil (and (with-current-buffer magit-pre-popup-buffer magit-blame-mode) (propertize "Refresh" 'face 'magit-popup-heading))) (99 "Cycle style" magit-blame-cycle-style)) :default-arguments '("-w") :max-action-columns 1 :default-action 'magit-blame-addition))
232 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-blame-popup custom-declare-variable magit-blame-arguments funcall function #[0 "\301\302\"\207" [magit-blame-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
233 (defalias 'magit-blame-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-blame-arguments magit-blame-popup] 2])
234 (put 'magit-blame-arguments 'definition-name 'magit-blame-popup)
235 (defalias 'magit-blame-maybe-update-revision-buffer #[0 "?\205)\302\303 \211\205\304\305\"\211\205\306\307\302\310#\211\205'D\311    \302\312#\266\203\207" [magit--update-revision-buffer magit-update-other-window-delay nil magit-current-blame-chunk eieio-oref orig-rev magit-mode-get-buffer magit-revision-mode t run-with-idle-timer #[0 "@A\211@A\302\303!\205\304\305\306\307 #)\266\202\207" [magit--update-revision-buffer magit-display-buffer-noselect nil buffer-live-p t apply magit-show-commit magit-diff-arguments] 10]] 7])
236 (provide 'magit-blame)