[nongnu] elpa/go-mode 520f070 182/495: allow users to customize path of 'go' tool.

[ELPA Syncer]

branch: elpa/go-mode
commit 520f0701cebb0301ca49de8ba61f6c3164ff6e44
Author: Alan Donovan <adonovan@google.com>
Commit: Dominik Honnef <dominikh@fork-bomb.org>

    allow users to customize path of 'go' tool.
    
    Some users have multiple Go development trees and invoke the
    'go' tool via a wrapper that sets GOROOT and GOPATH based on
    the current directory.  Such users should customize go-command
    to point to the wrapper script.
---
 go-mode.el | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index 7f082c0..438fe92 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -159,6 +159,14 @@
   :type 'hook
   :group 'go)
 
+(defcustom go-command "go"
+  "The 'go' command.  Some users have multiple Go development
+trees and invoke the 'go' tool via a wrapper that sets GOROOT and
+GOPATH based on the current directory.  Such users should
+customize this variable to point to the wrapper script."
+  :type 'string
+  :group 'go)
+
 (defface go-coverage-untracked
   '((t (:foreground "#505050")))
   "Coverage color of untracked code."
@@ -852,7 +860,8 @@ uncommented, otherwise a new import will be added."
           ('none (insert "\nimport (\n\t" line "\n)\n")))))))
 
 (defun go-root-and-paths ()
-  (let* ((output (split-string (shell-command-to-string "go env GOROOT 
GOPATH") "\n"))
+  (let* ((output (split-string (shell-command-to-string (concat go-command " 
env GOROOT GOPATH"))
+                               "\n"))
          (root (car output))
          (paths (split-string (cadr output) ":")))
     (append (list root) paths)))
@@ -911,9 +920,10 @@ If IGNORE-CASE is non-nil, the comparison is 
case-insensitive."
                           (if (string= (file-truename (match-string 1 line)) 
(file-truename buffer-file-name))
                               (string-to-number (match-string 2 line)))))
                     (split-string (shell-command-to-string
-                                   (if (string-match "_test\.go$" 
buffer-file-truename)
-                                       "go test -c"
-                                     "go build -o /dev/null")) "\n")))))
+                                   (concat go-command
+                                           (if (string-match "_test\.go$" 
buffer-file-truename)
+                                               " test -c"
+                                             " build -o /dev/null"))) "\n")))))
 
 (defun go-remove-unused-imports (arg)
   "Removes all unused imports. If ARG is non-nil, unused imports