dotfiles

commit 899e968ac9d2e5154ee7b8952398337b4b8009c7
parent 605e9ed5b8c79cefbe4882504339a5ba1330e842
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Thu, 14 Jan 2021 22:09:39 +0100

Teach my/describe-revision to work with VC

This works with C-x v {l,h,g}.

Diffstat:
M
.emacs
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git 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."