diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-06-20 17:16:41 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-06-20 17:16:41 +0000 |
| commit | 469ca4030a351d865a4412a284ace9d2e11cf9e7 (patch) | |
| tree | 403465e03b27b265bc0fd5e7c98a6d8a4fc42d7c /lisp/vc-mtn.el | |
| parent | d445b3f8635b2f78990e016bc610337298307556 (diff) | |
| download | emacs-469ca4030a351d865a4412a284ace9d2e11cf9e7.tar.gz | |
(vc-mtn-log-view-mode): Set log-view-per-file-logs and
log-view-file-re.
Diffstat (limited to 'lisp/vc-mtn.el')
| -rw-r--r-- | lisp/vc-mtn.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el index 4a415bbf34a..b20b1db48d0 100644 --- a/lisp/vc-mtn.el +++ b/lisp/vc-mtn.el @@ -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) |