branch: externals/diff-hl
commit cdb90ab26733a0c3764c2d541cc2d5e66a96a11b
Author: Dmitry Gutov <dmi...@gutov.dev>
Commit: Dmitry Gutov <dmi...@gutov.dev>
Support other VCS as well
---
diff-hl.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/diff-hl.el b/diff-hl.el
index ab2541a01b..e4d78e17df 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -416,7 +416,8 @@ It can be a relative expression as well, such as \"HEAD^\"
with Git, or
(let* ((ref-changes
(and diff-hl-reference-revision
(diff-hl-changes-from-buffer
- (diff-hl-changes-buffer file backend "HEAD"))))
+ (diff-hl-changes-buffer file backend
+ (diff-hl-tip-revision
backend)))))
(diff-hl-reference-revision nil)
(work-changes (diff-hl-changes-from-buffer
(diff-hl-changes-buffer file backend))))
@@ -427,6 +428,12 @@ It can be a relative expression as well, such as \"HEAD^\"
with Git, or
((eq state 'removed)
`((1 ,(line-number-at-pos (point-max)) delete))))))))
+(defun diff-hl-tip-revision (backend)
+ (if (eq backend 'Git)
+ "HEAD"
+ ;; That seems to cover Hg and Bzr. Any others?
+ "-1"))
+
(defun diff-hl-adjust-changes (old new)
(let ((acc 0)
(ref old)
