# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1213982201 0
# Node ID 673e286487b1dc29b2a4ecbf488d67af00dbbd12
# Parent  48b2db6b4c286489b08288a15dbf20a18013d967
(vc-mtn-log-view-mode): Set log-view-per-file-logs and
log-view-file-re.

diff -r 48b2db6b4c28 -r 673e286487b1 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 20 17:10:33 2008 +0000
+++ b/lisp/ChangeLog	Fri Jun 20 17:16:41 2008 +0000
@@ -5,6 +5,9 @@
 
 2008-06-20  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-mtn.el (vc-mtn-log-view-mode): Set log-view-per-file-logs and
+	log-view-file-re.
+
 	* vc.el (vc-dir-hide-up-to-date): Undo previous change.
 	(vc-switch-backend): Simplify.
 	(Todo): Remove solved items.
diff -r 48b2db6b4c28 -r 673e286487b1 lisp/vc-mtn.el
--- a/lisp/vc-mtn.el	Fri Jun 20 17:10:33 2008 +0000
+++ b/lisp/vc-mtn.el	Fri Jun 20 17:16:41 2008 +0000
@@ -24,6 +24,11 @@
 
 ;; 
 
+;;; TODO:
+
+;; - The `previous-version' VC method needs to be supported, 'D' in
+;;   log-view-mode uses it.
+
 ;;; Code:
 
 (eval-when-compile (require 'cl) (require 'vc))
@@ -158,10 +163,12 @@
 (defvar log-view-message-re)
 (defvar log-view-file-re)
 (defvar log-view-font-lock-keywords)
+(defvar log-view-per-file-logs)
 
 (define-derived-mode vc-mtn-log-view-mode log-view-mode "Mtn-Log-View"
-  ;; TODO: Not sure what to do about file markers for now.
-  (set (make-local-variable 'log-view-file-re) "\\'\\`")
+  ;; Don't match anything.
+  (set (make-local-variable 'log-view-file-re) "\\`a\\`")
+  (set (make-local-variable 'log-view-per-file-logs) nil)
   ;; TODO: Use a more precise regexp than "[ |/]+" to avoid false positives
   ;; in the ChangeLog text.
   (set (make-local-variable 'log-view-message-re)