branch: elpa/magit
commit 5e14081d7337922beeec3ddf5e504f552711c75b
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit--abbrev-if-hash: New function
---
lisp/magit-git.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 692a8a3f519..fd55c5788f2 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2293,6 +2293,11 @@ If `first-parent' is set, traverse only first parents."
(defun magit-rev-abbrev (rev)
(magit-rev-parse (magit-abbrev-arg "short") rev))
+(defun magit--abbrev-if-hash (rev)
+ (cond ((or (magit-ref-p rev) (member rev '("{index}" "{worktree}"))) rev)
+ ((magit-rev-parse (magit-abbrev-arg "short") rev))
+ (rev)))
+
(defun magit-commit-children (rev &optional args)
(seq-keep (lambda (line)
(pcase-let ((`(,child . ,parents) (split-string line " ")))
