[elpa] externals/vc-got 09d5937 103/145: implement retrieve-tag and complete the tag system!

[ELPA Syncer]

branch: externals/vc-got
commit 09d593791051febee8552638ed57d57fe026bdb0
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@omarpolo.com>

    implement retrieve-tag and complete the tag system!
---
 vc-got.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/vc-got.el b/vc-got.el
index fadebe6..718b233 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -90,7 +90,7 @@
 ;;
 ;; TAG SYSTEM
 ;; - create-tag                         DONE
-;; - retrieve-tag                       NOT IMPLEMENTED
+;; - retrieve-tag                       DONE
 ;;
 ;; MISCELLANEOUS                        NOT IMPLEMENTED
 ;; - make-version-backups-p             NOT NEEDED, `got' works fine locally
@@ -826,6 +826,15 @@ true, NAME should create a new branch otherwise it will 
pop-up a
                         (vc-got--tag-callback name)
                       (kill-buffer buf))))))))
 
+(defun vc-got-retrieve-tag (dir name _update)
+  "Switch to the tag NAME for files at or below DIR."
+  (let ((default-directory dir))
+    (with-temp-buffer
+      (unless (zerop (vc-got--call "update" "-b" name dir))
+        (error "[vc-got] can't switch to tag %s: %s"
+               name
+               (buffer-string))))))
+
 
 ;; Miscellaneous