procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-print-log): Unconditionally use `show-log-entry'.

Browse source 
(vc-default-show-log-entry): New fun.
This commit is contained in:
Stefan Monnier 2002-10-03 22:43:01 +00:00
parent 3f0161d0d2
commit 02e43de8af
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/vc.el
View file

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