Mercurial > emacs
changeset 96125:673e286487b1
(vc-mtn-log-view-mode): Set log-view-per-file-logs and
log-view-file-re.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jun 2008 17:16:41 +0000 |
| parents | 48b2db6b4c28 |
| children | fcd827c4a553 |
| files | lisp/ChangeLog lisp/vc-mtn.el |
| diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)