| 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\206 5@)\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 \206B 8\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\206 d\"\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 \203 e\202 dU\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) | |
