;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:57 2007 ;;; from file /home/cyd/emacs/lisp/log-view.el ;;; in Emacs version 22.0.99 ;;; 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 "`log-view.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\306\307\310\311\312\313\314\315&\207" [require pcvs-util autoload vc-find-version "vc" vc-version-diff custom-declare-group log-view nil "Major mode for browsing log output of RCS/CVS/SCCS." :group pcl-cvs :prefix "log-view-"] 8) #@20 Log-View's keymap. (defconst log-view-mode-map (byte-code "\302\303\304\305\300!\205\n\306\307\310\305\301!\205 F$\207" [log-view-mode-map cvs-mode-map easy-mmode-define-keymap (("q" . quit-window) ("z" . kill-this-buffer) ("m" . set-mark-command) ("d" . log-view-diff) ("f" . log-view-find-version) ("n" . log-view-msg-next) ("p" . log-view-msg-prev) ("N" . log-view-file-next) ("P" . log-view-file-prev) ("\356" . log-view-file-next) ("\360" . log-view-file-prev)) nil boundp :group log-view :inherit] 9) (#$ . 856)) #@41 Hook run at the end of `log-view-mode'. (defvar log-view-mode-hook nil (#$ . 1385)) (byte-code "\304\305\306\307\310\311%\210\312\313\314\305#\210\313B\315\313!\204\316\313\305\"\210\304\317\320\321\310\311%\210\312\322\314\317#\210\322B\315\322!\204:\316\322\317\"\210\301B\323\324!\210\302B\325\326!\210\327B\330 \331B\n\322BD!\210\332B\333\334!\210\335\336N\204l\312\335\336\337#\210\340\341!\204x\312\341\342\343#\210\341B\315\341!\204\210\316\341\344 \"\210\340\345!\204\224\312\345\342\343#\210\345B\315\345!\204\244\316\345\346 \"\210\312\303\342\343#\210\303B\315\303!\204\276\316\303\347\303\350\"\210 \"\210\312\343\351\350#\207" [current-load-list log-view-file-re log-view-message-re log-view-mode-abbrev-table custom-declare-face log-view-file ((((class color) (background light)) (:background "grey70" :weight bold)) (t (:weight bold))) "Face for the file header line in `log-view-mode'." :group log-view put log-view-file-face face-alias default-boundp set-default log-view-message ((((class color) (background light)) (:background "grey85")) (t (:weight bold))) "Face for the message header line in `log-view-mode'." log-view-message-face (lambda (#1=#:defconst-tmp-var) (defconst log-view-file-re #1#)) "^\\(?:Working file: \\(.+\\)\\|\\(?:SCCS/s\\.\\|Changes to \\)\\(.+\\):\\)\n" (lambda (#2=#:defconst-tmp-var) (defconst log-view-message-re #2#)) "^\\(?:revision \\([.0-9]+\\)\\(?: .*\\)?\\|r\\([0-9]+\\) | .* | .*\\|D \\([.0-9]+\\) .*\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n] .*@.*\n\\(?: \\* \\(.*\\)\\)?\\)$" log-view-font-lock-keywords (lambda (#3=#:defconst-tmp-var) (defconst log-view-font-lock-keywords #3#)) ((1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) (0 log-view-file-face append)) log-view-font-lock-defaults (lambda (#4=#:defconst-tmp-var) (defconst log-view-font-lock-defaults #4#)) (log-view-font-lock-keywords t nil nil nil) log-view-mode-hook variable-documentation "Hook run when entering Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp log-view-mode-map definition-name log-view-mode make-sparse-keymap log-view-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 6) #@151 Major mode for browsing CVS log output. This mode runs the hook `log-view-mode-hook', as the final step during initialization. \{log-view-mode-map} (defalias 'log-view-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \307\306\315!\210 \306\316!\210\317)\320\321!\2035\321\322!\207\323\322!\207" [delay-mode-hooks major-mode mode-name log-view-mode-map log-view-mode-syntax-table log-view-mode-abbrev-table make-local-variable t kill-all-local-variables log-view-mode "Log-View" use-local-map set-syntax-table font-lock-defaults cvs-minor-wrap-function log-view-minor-wrap fboundp run-mode-hooks log-view-mode-hook run-hooks local-abbrev-table buffer-read-only log-view-font-lock-defaults] 2 (#$ . 3750) nil]) (add-to-list 'debug-ignored-errors "^No \\(previous\\|next\\) log message") #@38 Go to the next COUNT'th log message. (defalias 'log-view-msg-next #[(&optional count) "\204\304\305W\203\306[!\207\307 !\203T\310\311 \310\312$\2049\307 !\2031db\210\202d\313\314\315\"\210\202d\305\224b\210p\316\317 !=\203dt\203d\212\311 \310\312\320$)\206Vd\321 \310\312#\204c\322\323!\210))\310\207" [count log-view-message-re was-narrowed endpt 1 0 log-view-msg-prev looking-at nil re-search-forward t error "No next %s" "log message" window-buffer selected-window 2 pos-visible-in-window-p recenter (0)] 5 (#$ . 4575) "p"]) (put 'log-view-msg-next 'definition-name 'log-view-msg) #@41 Go to the previous COUNT'th log message (defalias 'log-view-msg-prev #[(&optional count) "\204\303\304W\203\305[!\207\306\307\n\306\310$\204!\311\312\313\"\210)\306\207" [count was-narrowed log-view-message-re 1 0 log-view-msg-next nil re-search-backward t error "No previous %s" "log message"] 5 (#$ . 5188) "p"]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put log-view-msg-prev definition-name log-view-msg add-to-list debug-ignored-errors "^No \\(previous\\|next\\) file"] 4) #@31 Go to the next COUNT'th file. (defalias 'log-view-file-next #[(&optional count) "\204\304\305W\203\306[!\207\307 !\203T\310\311 \310\312$\2049\307 !\2031db\210\202d\313\314\315\"\210\202d\305\224b\210p\316\317 !=\203dt\203d\212\311 \310\312\320$)\206Vd\321 \310\312#\204c\322\323!\210))\310\207" [count log-view-file-re was-narrowed endpt 1 0 log-view-file-prev looking-at nil re-search-forward t error "No next %s" "file" window-buffer selected-window 2 pos-visible-in-window-p recenter (0)] 5 (#$ . 5695) "p"]) (put 'log-view-file-next 'definition-name 'log-view-file) #@34 Go to the previous COUNT'th file (defalias 'log-view-file-prev #[(&optional count) "\204\303\304W\203\305[!\207\306\307\n\306\310$\204!\311\312\313\"\210)\306\207" [count was-narrowed log-view-file-re 1 0 log-view-file-next nil re-search-backward t error "No previous %s" "file"] 5 (#$ . 6295) "p"]) (put 'log-view-file-prev 'definition-name 'log-view-file) (defalias 'log-view-goto-rev #[(rev) "eb\210\300\301\302\217\207" [nil (byte-code "\301 \232\204 \302 \210\202\303\207" [rev log-view-current-tag log-view-msg-next t] 2) ((error))] 3]) (byte-code "\301B\302\303!\207" [current-load-list log-view-dir-re (lambda (#1=#:defconst-tmp-var) (defconst log-view-dir-re #1#)) "^cvs[.ex]* [a-z]+: Logging \\(.+\\)$"] 2) (defalias 'log-view-current-file #[nil "\212\306y\210\307\310\311#\204\312!\210\313\306!\206\313\314!\307\n\310\311#\205%\313\306!\315\304!\2057\307\f\310\311#\2057\313\306!\316\211 \203I\317 \" \203T\317 \")\317 \"-\207" [log-view-file-re file log-view-dir-re cvsdir cvs-pcl-cvs-dirchange-re pcldir 1 re-search-backward nil t re-search-forward match-string 2 boundp "" expand-file-name dir default-directory] 5]) (defalias 'log-view-current-tag #[(&optional where) "\212\203b\210\306y\210`\307\n\310\311#\205C\310\312\313!G\314\245\315\f W\2036 \206.\316\fT!\fT\211\202!*\317 \311#?\205B )*\207" [where pt log-view-message-re rev i #1=#:--cl-dotimes-temp-- 1 re-search-backward nil t match-data integers 2 0 match-string re-search-forward log-view-file-re] 4]) (defalias 'log-view-minor-wrap #[(buf f) "rq\210`\n\203\306 \202`\307 !\307 !\f \230\203*\212 b\210\310 \210\307 )\311 \fB\311 -BB\211 \211\f@A) \211\f@A)\205P \211\fAA) \211\f@@) \211\fA@)\205\201 \211\f@@) \211\fA@)\232?\205\201 \211\fA@)CB\312  -\207" [buf beg mark-active end fr to mark log-view-current-tag log-view-msg-next log-view-current-file "/F" data x cvs-force-command cvs-minor-current-files cvs-secondary-branch-prefix cvs-branch-prefix f] 6]) #@29 Visit the version at point. (defalias 'log-view-find-version #[(pos) "\212b\210\301\302\303 \304 \"!)\207" [pos switch-to-buffer vc-find-version log-view-current-file log-view-current-tag] 4 (#$ . 8341) "d"]) #@254 Get the diff between two revisions. If the mark is not active or the mark is on the revision at point, get the diff between the revision at point and its previous revision. Otherwise, get the diff between the revisions where the region starts and ends. (defalias 'log-view-diff #[(beg end) "\304!\304 !\211\n\230\203\212 b\210\305 \210\304 )\306\307 \n #*\207" [beg end to fr log-view-current-tag log-view-msg-next vc-version-diff log-view-current-file] 5 (#$ . 8558) (list (if mark-active (region-beginning) (point)) (if mark-active (region-end) (point)))]) (provide 'log-view)