;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xgit-annotate.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`xgit-annotate.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require dvc-annotate rect] 2) #@38 Keymap used in `xgit-annotate-mode'. (defvar xgit-annotate-mode-map (byte-code "\303 \304 \305#\210\304\306\307#\210\304\n\310#\210)\207" [map dvc-keyvec-help dvc-keyvec-quit make-sparse-keymap define-key describe-mode [return] xgit-annotate-show-rev dvc-buffer-quit] 4) (#$ . 675)) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list xgit-annotate-mode-abbrev-table xgit-annotate-mode-hook variable-documentation put "Hook run when entering xgit-annotate mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp xgit-annotate-mode-map definition-name xgit-annotate-mode default-boundp set-default make-sparse-keymap xgit-annotate-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@175 Major mode to display git annotate output. Commands: \{xgit-annotate-mode-map} This mode runs the hook `xgit-annotate-mode-hook', as the final step during initialization. (defalias 'xgit-annotate-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\307!\210\316d!\210\317 \210\320\321!\210)\322\323!\207" [delay-mode-hooks major-mode mode-name xgit-annotate-mode-map xgit-annotate-mode-syntax-table xgit-annotate-mode-abbrev-table make-local-variable t kill-all-local-variables xgit-annotate-mode "xgit-annotate" use-local-map set-syntax-table dvc-annotate-display-autoscale dvc-annotate-lines xgit-annotate-hide-revinfo toggle-read-only 1 run-mode-hooks xgit-annotate-mode-hook local-abbrev-table] 2 (#$ . 1755) nil]) (byte-code "\301B\302\303!\207" [current-load-list xgit-annotate-info-regexp (lambda (#1=#:defconst-tmp-var) (defconst xgit-annotate-info-regexp #1#)) "^\\(\\(\\^?\\([[:xdigit:]]+\\)\\)[[:blank:]]+.*(\\(.*?\\)[[:blank:]]+\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) \\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\) \\([+-][0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\)[[:blank:]]+\\)\\([0-9]+\\))"] 2) (defalias 'xgit-info-to-allbutlinenum #[nil "\300\301!\207" [match-string-no-properties 1] 2]) (defalias 'xgit-info-to-rev #[nil "\300\301!\207" [match-string-no-properties 2] 2]) (defalias 'xgit-info-to-initrev #[nil "\300\301!\207" [match-string-no-properties 3] 2]) (defalias 'xgit-info-to-name #[nil "\300\301!\207" [match-string-no-properties 4] 2]) (defalias 'xgit-info-to-year #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 5] 3]) (defalias 'xgit-info-to-month #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 6] 3]) (defalias 'xgit-info-to-day #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 7] 3]) (defalias 'xgit-info-to-hour #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 8] 3]) (defalias 'xgit-info-to-min #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 9] 3]) (defalias 'xgit-info-to-sec #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 10] 3]) (defalias 'xgit-info-to-zone-hour #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 11] 3]) (defalias 'xgit-info-to-zone-min #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 12] 3]) (defalias 'xgit-info-to-linenum #[nil "\300\301\302!!\207" [string-to-number match-string-no-properties 13] 3]) (byte-code "\301B\302\303!\207" [current-load-list xgit-annotate-revision-regexp (lambda (#1=#:defconst-tmp-var) (defconst xgit-annotate-revision-regexp #1#)) "^^?\\([[:xdigit:]]+\\)"] 2) #@51 Returns git revision at point in annotate buffer. (defalias 'xgit-annotate-get-rev #[nil "`dW\205\212\301 \210\302!\205\303 )\207" [xgit-annotate-info-regexp beginning-of-line looking-at xgit-info-to-rev] 2 (#$ . 4450)]) #@36 Show the information at the point. (defalias 'xgit-annotate-show-rev #[nil "\303 \304 \"\203\305\n\306\307\310\"#\210\202\311\n\"\210\312\n\")\207" [rev xgit-annotate-revision-regexp default-directory xgit-annotate-get-rev string-match xgit-log :rev match-string-no-properties 1 xgit-show xgit-describe] 6 (#$ . 4682) nil]) (defalias '_xgit-annotate-hide-revinfo #[nil "\303 \304\225\305 Z\306y\210 \303 \230\205:\305  \303 \230\203#\306y\210\202`dU\204-\307\306!\210\303 \210\310\n\304\225\311\312\"#)*\207" [width p_rev start xgit-annotate-get-rev 12 line-beginning-position 1 previous-line string-rectangle make-string 32] 6]) #@68 Hide revision information when it is same as previous line's info. (defalias 'xgit-annotate-hide-revinfo #[nil "\212eb\210`dW\205\300 \210\202)\207" [_xgit-annotate-hide-revinfo] 2 (#$ . 5336)]) (defalias 'xgit-annotate-time #[nil "`dW\205G\306 \210\307\310\311#\205G\312 \313 \314 \315 \316 \317 \320 \321 \322_\\\322_\323\324 \f \n &!. \207" [xgit-annotate-info-regexp year month day hour min beginning-of-line re-search-forward nil t xgit-info-to-year xgit-info-to-month xgit-info-to-day xgit-info-to-hour xgit-info-to-min xgit-info-to-sec xgit-info-to-zone-hour xgit-info-to-zone-min 60 dvc-annotate-convert-time encode-time sec zone-hour zone-min zone-sec] 9]) (provide 'xgit-annotate)