mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(vc-mtn-log-view-mode): Set log-view-per-file-logs and

Browse Source 
log-view-file-re.
This commit is contained in:
Dan Nicolaescu 2008-06-20 17:16:41 +00:00
parent d445b3f863
commit 469ca4030a
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

11
lisp/vc-mtn.el
View File

@ -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)