Mercurial > emacs
changeset 81510:6eafc2a3843a
(vc-default-log-view-mode): New function.
(vc-print-log): Add new `log-view-mode' VC operation.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 20 Jun 2007 16:32:09 +0000 |
| parents | 389e5c0c02ab |
| children | 9785d18889ed |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 16 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jun 20 15:23:01 2007 +0000 +++ b/lisp/ChangeLog Wed Jun 20 16:32:09 2007 +0000 @@ -1,3 +1,8 @@ +2007-06-20 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc.el (vc-default-log-view-mode): New function. + (vc-print-log): Add new `log-view-mode' VC operation. + 2007-06-20 Juanma Barranquero <lekktu@gmail.com> * ido.el (ido-find-file-in-dir): Don't signal an error for
--- a/lisp/vc.el Wed Jun 20 15:23:01 2007 +0000 +++ b/lisp/vc.el Wed Jun 20 16:32:09 2007 +0000 @@ -105,7 +105,9 @@ ;; ;; * registered (file) ;; -;; Return non-nil if FILE is registered in this backend. +;; Return non-nil if FILE is registered in this backend. Both this +;; function as well as `state' should be careful to fail gracefully in the +;; event that the backend executable is absent. ;; ;; * state (file) ;; @@ -270,6 +272,12 @@ ;; Insert the revision log of FILE into BUFFER, or the *vc* buffer ;; if BUFFER is nil. ;; +;; - log-view-mode () +;; +;; Mode to use for the output of print-log. This defaults to +;; `log-view-mode' and is expected to be changed (if at all) to a derived +;; mode of `log-view-mode'. +;; ;; - show-log-entry (version) ;; ;; If provided, search the log entry for VERSION in the current buffer, @@ -2453,7 +2461,7 @@ (pop-to-buffer (current-buffer)) (vc-exec-after `(let ((inhibit-read-only t)) - (log-view-mode) + (vc-call-backend ',(vc-backend file) 'log-view-mode) (goto-char (point-max)) (forward-line -1) (while (looking-at "=*\n") (delete-char (- (match-end 0) (match-beginning 0))) @@ -2468,6 +2476,7 @@ ',focus-rev) (set-buffer-modified-p nil))))) +(defun vc-default-log-view-mode (backend) (log-view-mode)) (defun vc-default-show-log-entry (backend rev) (with-no-warnings (log-view-goto-rev rev)))