diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-03 22:43:01 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-03 22:43:01 +0000 |
| commit | 02e43de8af7fd97e9dc9fbd73ced2d39c10b17a7 (patch) | |
| tree | 43b00e135c0731c1ce6fd3e96e276b40c6f8868f /lisp/vc.el | |
| parent | 3f0161d0d226e7e3a791153cb377235398688c27 (diff) | |
| download | emacs-02e43de8af7fd97e9dc9fbd73ced2d39c10b17a7.tar.gz | |
(vc-print-log): Unconditionally use `show-log-entry'.
(vc-default-show-log-entry): New fun.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 8a6cdb3ac1a..25805fb5978 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.335 2002/07/22 18:52:04 spiegel Exp $ +;; $Id: vc.el,v 1.336 2002/09/04 20:47:08 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -2486,14 +2486,15 @@ allowed and simply skipped)." (delete-char (- (match-end 0) (match-beginning 0)))) (shrink-window-if-larger-than-buffer) ;; move point to the log entry for the current version - (if (fboundp 'log-view-goto-rev) - (log-view-goto-rev ',(vc-workfile-version file)) - (if (vc-find-backend-function ',(vc-backend file) 'show-log-entry) - (vc-call-backend ',(vc-backend file) - 'show-log-entry - ',(vc-workfile-version file)))) + (vc-call-backend ',(vc-backend file) + 'show-log-entry + ',(vc-workfile-version file)) (set-buffer-modified-p nil))))) +(defun vc-default-show-log-entry (backend ver) + (if (fboundp 'log-view-goto-rev) + (log-view-goto-rev rev))) + (defun vc-default-comment-history (backend file) "Return a string with all log entries stored in BACKEND for FILE." (if (vc-find-backend-function backend 'print-log) |