From 899e968ac9d2e5154ee7b8952398337b4b8009c7 Mon Sep 17 00:00:00 2001
From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Thu, 14 Jan 2021 22:09:39 +0100
Subject: Teach my/describe-revision to work with VC

This works with C-x v {l,h,g}.
---
 .emacs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/.emacs b/.emacs
index 742f9f1..c1ad7a5 100644
--- a/.emacs
+++ b/.emacs
@@ -268,9 +268,12 @@
 
 (defun my/revision-at-point ()
   (cond
-   ;; TODO: add vc support.
    ((derived-mode-p 'magit-mode)
-    (magit-branch-or-commit-at-point))))
+    (magit-branch-or-commit-at-point))
+   ((derived-mode-p 'vc-git-log-view-mode)
+    (log-view-current-tag))
+   ((derived-mode-p 'vc-annotate-mode)
+    (car (vc-annotate-extract-revision-at-line)))))
 
 (defun my/describe-revision (rev)
   "Format a Git revision in a format suitable for changelogs."
-- 
cgit v1.2.3