bug#20470: Acknowledgement (24.5; VC log buffer no longer scrolls itself)

[Raoul Gough <raoulgough@yahoo.co.uk>]

[-- Attachment #1: Type: text/plain, Size: 112 bytes --]

I've attached a propose patch to fix this bug, which makes the jump-to-revision configurable (defaulting to off)

[-- Attachment #2: vc.el.20470.patch --]
[-- Type: application/octet-stream, Size: 1213 bytes --]

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index bb4dd60..409a1d8 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -807,6 +807,17 @@ Not all VC backends are able to support this feature."
   :type 'integer
   :group 'vc)
 
+(defcustom vc-log-jump-to-current nil
+  "If non-nil, `vc-print-log' moves point automatically to the
+log message for the current working revision.
+
+Jumping to the current revision was the default behaviour until
+emacs 24.4 where it was disabled unconditionally. Now it is
+configurable."
+  :type 'boolean
+  :group 'vc
+  :version "25.1")
+
 (defcustom vc-allow-async-revert nil
   "Specifies whether the diff during \\[vc-revert] may be asynchronous.
 Enabling this option means that you can confirm a revert operation even
@@ -2304,7 +2315,7 @@ WORKING-REVISION and LIMIT."
   (let* ((vc-fileset (vc-deduce-fileset t)) ;FIXME: Why t? --Stef
 	 (backend (car vc-fileset))
 	 (files (cadr vc-fileset))
-;;	 (working-revision (or working-revision (vc-working-revision (car files))))
+         (working-revision (or working-revision (and vc-log-jump-to-current (vc-working-revision (car files)))))
          )
     (vc-print-log-internal backend files working-revision nil limit)))