;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:18 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/log-view.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\305\306\307\310\311&\207" [require pcvs-util 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 (("n" . log-view-msg-next) ("p" . log-view-msg-prev) ("N" . log-view-file-next) ("P" . log-view-file-prev) ("M-n" . log-view-file-next) ("M-p" . log-view-file-prev)) nil boundp :group log-view :inherit] 9) (#$ . 829)) #@41 Hook run at the end of `log-view-mode'. (defvar log-view-mode-hook nil (#$ . 1234)) (byte-code "\306\301\307\310\311\312%\210\301B\313\301!\204\301\306\302\314\315\311\312%\210\302B\313\302!\204(\302\303B\316\304B\317\305B \320B\f\302BD\321B\322\323B\313\323!\204U\324 \325B\313\325!\204e\326\327\330\"\331B\332\331\330\"\210\333\334\335\336#\207" [current-load-list log-view-file-face log-view-message-face log-view-file-re log-view-message-re log-view-font-lock-keywords custom-declare-face ((((class color) (background light)) (:background "grey70" :bold t)) (t (:bold t))) "Face for the file header line in `log-view-mode'." :group log-view boundp ((((class color) (background light)) (:background "grey85")) (t (:bold t))) "Face for the message header line in `log-view-mode'." "^\\(Working file: \\(.+\\)\\|SCCS/s\\.\\(.+\\):\\)\n" "^\\(revision \\([.0-9]+\\)\\(?: .*\\)?\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$" ((2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) (3 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) (0 log-view-file-face append)) log-view-font-lock-defaults (log-view-font-lock-keywords t nil nil nil) log-view-mode-map make-sparse-keymap log-view-mode-syntax-table make-char-table syntax-table nil log-view-mode-abbrev-table define-abbrev-table put log-view-mode derived-mode-parent fundamental-mode] 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 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\327\330!L\210\327\331!\332L\210\333\334!\207" [major-mode mode-name log-view-mode-map log-view-mode-syntax-table parent local-abbrev-table fundamental-mode special put log-view-mode t "Log-View" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol log-view-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-variable font-lock-defaults cvs-minor-wrap-function log-view-minor-wrap run-hooks log-view-mode-hook log-view-mode-abbrev-table log-view-font-lock-defaults] 5 (#$ . 2632) 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\303\304W\203\305[!\207\306 !\203T\307 \310\311$\2040\306 !\203,db\207\312\313!\207\304\224b\210p\314\315 !=\205[t\205[\212\307 \310\311\316$)\206Md\317\n\310\311#?\205Z\320\321!)\207" [count log-view-message-re endpt 1 0 log-view-msg-prev looking-at re-search-forward nil t error "No next log message" window-buffer selected-window 2 pos-visible-in-window-p recenter (0)] 5 (#$ . 3756) nil]) #@41 Go to the previous COUNT'th log message (defalias 'log-view-msg-prev #[(&optional count) "\204\302\303W\203\304[!\207\305 \306\307$?\205\310\311!\207" [count log-view-message-re 1 0 log-view-msg-next re-search-backward nil t error "No previous log message"] 5 (#$ . 4266) nil]) (add-to-list 'debug-ignored-errors "^No \\(previous\\|next\\) file") #@31 Go to the next COUNT'th file. (defalias 'log-view-file-next #[(&optional count) "\204\303\304W\203\305[!\207\306 !\203T\307 \310\311$\2040\306 !\203,db\207\312\313!\207\304\224b\210p\314\315 !=\205[t\205[\212\307 \310\311\316$)\206Md\317\n\310\311#?\205Z\320\321!)\207" [count log-view-file-re endpt 1 0 log-view-file-prev looking-at re-search-forward nil t error "No next file" window-buffer selected-window 2 pos-visible-in-window-p recenter (0)] 5 (#$ . 4630) nil]) #@34 Go to the previous COUNT'th file (defalias 'log-view-file-prev #[(&optional count) "\204\302\303W\203\304[!\207\305 \306\307$?\205\310\311!\207" [count log-view-file-re 1 0 log-view-file-next re-search-backward nil t error "No previous file"] 5 (#$ . 5125) nil]) (defalias 'log-view-goto-rev #[(rev) "eb\210\300\301\302\217\207" [#1=#:G97273 (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\301\207" [current-load-list log-view-dir-re "^cvs[.ex]* [a-z]+: Logging \\(.+\\)$"] 2) (defalias 'log-view-current-file #[nil "\212\306y\210\307\310\311#\204\312!\210\313\314!\206\313\315!\307\n\310\311#\205%\313\306!\316\304!\2057\307\f\310\311#\2057\313\306!\317\317 \203I\320 \" \203T\320 \"\320 \".\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 3 boundp "" expand-file-name dir default-directory] 4]) (defalias 'log-view-current-tag #[nil "\212\304y\210`\305 \306\307#\205#\310\311!\206\310\312!\313 \307#?\205\"\n)*\207" [pt log-view-message-re rev log-view-file-re 1 re-search-backward nil t match-string 2 3 re-search-forward] 4]) (defalias 'log-view-minor-wrap #[(buf f) "rq\210\306 \307 B \205\212\310 b\210\306 \307 )B)B\211\211@A)\n\211@A)\2050\n\211AA)\n\211@@)\n\211A@)\205W\n\211@@)\n\211A@)\232?\205W\n\211A@)CB\311\n \f -\207" [buf mark-active data x cvs-force-command cvs-minor-current-files log-view-current-file log-view-current-tag mark "/F" cvs-secondary-branch-prefix cvs-branch-prefix f] 6]) (provide 'log-view)