;ELC ;;; Compiled by daniel@waffles on Sun Jul 20 16:31:03 2014 ;;; from file /Users/daniel/.emacs.d/elpa/magit-20140720.358/magit-blame.el ;;; in Emacs version 24.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!\210\303\304\305\306\307\310%\210\311\312\313\314\307\304\315\316&\210\311\317\320\321\307\304\315\322&\210\323\324\325\326\307\327%\210\323\330\331\332\307\327%\210\323\333\334\335\307\327%\210\323\336\337\340\307\327%\210\323\341\342\343\307\327%\207" [require magit easymenu custom-declare-group magit-blame nil "Git-blame support for Magit." :group magit-extensions custom-declare-variable magit-blame-ignore-whitespace t "Ignore whitespace when determining blame information." :type boolean magit-time-format-string "%Y-%m-%dT%T%z" "How to format time in magit-blame header." string custom-declare-face magit-blame-header ((t :inherit magit-section-title)) "Face for blame header." magit-faces magit-blame-sha1 ((t :inherit (magit-log-sha1 magit-blame-header))) "Face for blame sha1." magit-blame-culprit ((t :inherit magit-blame-header)) "Face for blame culprit." magit-blame-time ((t :inherit magit-blame-header)) "Face for blame time." magit-blame-subject ((t :inherit (magit-log-message magit-blame-header))) "Face for blame tag line."] 8) #@52 Keymap for an annotated section.\{magit-blame-map} (defvar magit-blame-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210)\207" [map make-sparse-keymap define-key "l" magit-blame-locate-commit " " "q" magit-blame-mode "n" magit-blame-next-chunk "p" magit-blame-previous-chunk] 4) (#$ . 1617)) #@18 Magit blame menu (defvar magit-blame-mode-menu nil (#$ . 1979)) (easy-menu-do-define 'magit-blame-mode-menu magit-blame-map "Magit blame menu" '("Blame" ["Locate Commit" magit-blame-locate-commit t] ["Next" magit-blame-next-chunk t] ["Previous" magit-blame-previous-chunk t] "---" ["Quit" magit-blame-mode t])) (defvar magit-blame-buffer-read-only nil nil) (make-variable-buffer-local 'magit-blame-buffer-read-only) #@101 Non-nil if Magit-Blame mode is enabled. Use the command `magit-blame-mode' to change this variable. (defvar magit-blame-mode nil (#$ . 2402)) (make-variable-buffer-local 'magit-blame-mode) #@35 Display blame information inline. (defalias 'magit-blame-mode #[(&optional arg) "\305  \306=\203\n?\202\307 !\310V\311 \204\312\313!\210\314 \203/\315\316\317\311 \"!\203/\320 \210\n\203B \321p!\210\322\323!\210\324\202L\325p!\210\322\323!\210\f\326\327\n\203V\330\202W\331\"\210\332\333!\203x\305 \203k\305 \232\203x\334\335\n\203u\336\202v\337\"\210)\340 \210\n\207" [#1=#:last-message arg magit-blame-mode buffer-read-only magit-blame-buffer-read-only current-message toggle prefix-numeric-value 0 buffer-file-name user-error "Current buffer has no associated file!" buffer-modified-p y-or-n-p format "save %s first? " save-buffer magit-blame-file-on set-buffer-modified-p nil t magit-blame-file-off run-hooks magit-blame-mode-hook magit-blame-mode-on-hook magit-blame-mode-off-hook called-interactively-p any message "Magit-Blame mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2597) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\211%\207" [magit-blame-map add-minor-mode magit-blame-mode " blame" nil] 6) (defalias 'magit-blame-file-off #[(buffer) "\212\214rq\210~\210\301\302\303ed\"\"+\207" [buffer mapc #[(ov) "\301\302\"\205\n\303!\207" [ov overlay-get :blame delete-overlay] 3] overlays-in] 5]) (defalias 'magit-blame-file-on #[(buffer) "\303!\210\212rq\210\214\304\305!r q\210\306\216\307\310\311\312\313\n\205\314C\315\316\317!!D\"$\210\320p\".\207" [buffer #1=#:temp-buffer magit-blame-ignore-whitespace magit-blame-file-off generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply magit-git-insert "blame" "--porcelain" append "-w" "--" file-name-nondirectory buffer-file-name magit-blame-parse] 10]) #@73 Jump to a commit in the branch history from an annotated blame section. (defalias 'magit-blame-locate-commit #[(pos) "\305!\306\211\306\211\203)\f@\307 \310\"\203\"\311\312\307 \310\"8\313\"\fA\211\204* \2051\314 !*\207" [pos sha1 overlays ov --dolist-tail-- overlays-at nil overlay-get :blame plist-get 3 :sha1 magit-show-commit] 6 (#$ . 4346) "d"]) #@29 Go to the next blame chunk. (defalias 'magit-blame-next-chunk #[nil "\301`\302\"\211\205 b)\207" [next next-single-property-change :blame] 4 (#$ . 4716) nil]) #@33 Go to the previous blame chunk. (defalias 'magit-blame-previous-chunk #[nil "\301`\302\"\211\205 b)\207" [prev previous-single-property-change :blame] 4 (#$ . 4884) nil]) #@235 Decode UNIXTIME into (HIGH LOW) format. The second argument TZ can be used to add the timezone in (-)HHMM format to UNIXTIME. UNIXTIME should be either a number containing seconds since epoch or Emacs's (HIGH LOW . IGNORED) format. (defalias 'magit-blame-decode-time #[(unixtime &optional tz) "\247\203/ \247\204\304 !\305!\211\306\245\307_\310\n\306\"\\\311W\203( [\202) \307_ \\* \247\2038\312 ! \207" [tz unixtime ptz min float-time abs 100 60 mod 0 seconds-to-time] 5 (#$ . 5065)]) #@530 Use FORMAT to format the time UNIXTIME, or now if omitted. UNIXTIME is specified as a number containing seconds since epoch or Emacs's (HIGH LOW . IGNORED) format. The optional argument TZ can be used to set the time zone. If TZ is a number it is treated as a (-)HHMM offset to Universal Time. If TZ is not a number and non-nil the time is printed in UTC. If TZ is nil the local zime zone is used. The format of the function is similar to `format-time-string' except for %Z which is not officially supported at the moment. (defalias 'magit-blame-format-time-string #[(format &optional unixtime tz) "\204\303  \247\203\304\305\302\306 \"\n#\307\n\310 \" #\207" [unixtime tz format current-time replace-regexp-in-string "%z" "%+05d" format-time-string magit-blame-decode-time] 5 (#$ . 5574)]) #@70 Parse blame-info in buffer BLAME-BUF and decorate TARGET-BUF buffer. (defalias 'magit-blame-parse #[(target-buf blame-buf) "\306 \307\216\310\311\312\313#\310\314\312\313#\315\316\317\320\321$\322\211\211\211\211\211\211\211\211\211\211\211\211\211\211:;<=>?@ABCDEFrGq\210eb\210\323\324\322\325#\203\330\326\327!C\330\326\331!!A\330\326\332!!@\330\326\333!!?\334CD\"\211B\204\311\323\335!\210\326\327!<\323\336!\210\330\326\327!!;\323\337!\210\330\326\327!!:\323\340!\210\326\327!=\323\341!\210\326\327!>\342C\343<\344;\345:\346=\347>\257\fB\350CBD#\210A@?BF B\202K) \237rHq\210 \322I\211J\205\224J@I\332I8BI@AIA@@\331I8?\351B\342\"C\351B\343\"<\351B\344\";\351B\345\":\351B\346\"=eb\210@Sy\210\352 \212?y\210\352 )\353 \n\354I$\210\355 \n\"\356\f\354I#\210\310\357C\360\361#\312\362#F\310\363\364<\"\312\365#F\310\366K;:#\312\367#F\310=\312\370#FE\260 \356\f\371 #\210JA\211J\204\353\322.\207" [save-match-data-internal blame end beg ov info match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) propertize " " face magit-blame-header "\n" make-hash-table :test equal :size 577 nil re-search-forward "^\\([0-9a-f]\\{40\\}\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)$" t match-string-no-properties 1 string-to-number 2 3 4 gethash "^author \\(.+\\)$" "^author-time \\(.+\\)$" "^author-tz \\(.+\\)$" "^summary \\(.+\\)$" "^filename \\(.+\\)$" :sha1 :author :author-time :author-timezone :subject :file puthash plist-get line-beginning-position put-text-property :blame make-overlay overlay-put substring-no-properties 0 8 magit-blame-sha1 format "%-20s" magit-blame-culprit magit-blame-format-time-string magit-blame-time magit-blame-subject before-string author-timezone author-time author subject old-file num new-line old-line commit-info commit commit-hash nl blank blame-buf target-buf chunk --dolist-tail-- magit-time-format-string] 19 (#$ . 6385)]) (provide 'magit-blame)