magit-ref-maybe-qualify: new function

This pattern will be used in several places as we deal with ambiguous refname issues.
magit · Jun 10, 2017 · dfa440f · dfa440f
1 parent 7026b9b
commit dfa440f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
@@ -851,6 +851,12 @@ string \"true\", otherwise return nil."
 (defun magit-ref-ambiguous-p (name)
   (not (magit-ref-fullname name)))
 
+(cl-defun magit-ref-maybe-qualify (name &optional (prefix "heads/"))
+  "If NAME is ambiguous, prepend PREFIX to it."
+  (concat (and (magit-ref-ambiguous-p name)
+               prefix)
+          name))
+
 (defun magit-ref-exists-p (ref)
   (magit-git-success "show-ref" "--verify" ref))