[nongnu] elpa/go-mode b949a9b 363/495: cmd/guru: emacs: add go-guru-debug variable

[ELPA Syncer]

branch: elpa/go-mode
commit b949a9bc3fb66939c2a0b8dc679ee4aed68d9c1d
Author: Dominik Honnef <dominik@honnef.co>
Commit: Dominik Honnef <dominik@honnef.co>

    cmd/guru: emacs: add go-guru-debug variable
    
    Don't print debug messages unless go-guru-debug is set.
    
    Change-Id: I1332a0b10eba1d1107ef987734b2b787ae28d9c2
    Reviewed-on: https://go-review.googlesource.com/20432
    Reviewed-by: Alan Donovan <adonovan@google.com>
---
 guru_import/cmd/guru/go-guru.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/guru_import/cmd/guru/go-guru.el b/guru_import/cmd/guru/go-guru.el
index 9284a08..fd54927 100644
--- a/guru_import/cmd/guru/go-guru.el
+++ b/guru_import/cmd/guru/go-guru.el
@@ -50,6 +50,11 @@
   :type 'string
   :group 'go-guru)
 
+(defcustom go-guru-debug nil
+  "Print debug messages when running guru."
+  :type 'boolean
+  :group 'go-guru)
+
 ;; Extend go-mode-map.
 (let ((m (define-prefix-command 'go-guru-map)))
   (define-key m "d" #'go-guru-describe)
@@ -133,9 +138,10 @@ a scope if not already set.  Return the output buffer."
                           flags
                           (list mode posn))))
        ;; Log the command to *Messages*, for debugging.
-       (message "Command: %s:" args)
-       (message nil) ; clears/shrinks minibuffer
-       (message "Running guru %s..." mode)
+       (when go-guru-debug
+         (message "Command: %s:" args)
+         (message nil) ; clears/shrinks minibuffer
+         (message "Running guru %s..." mode))
        ;; Use dynamic binding to modify/restore the environment
        (let* ((process-environment (list* goroot-env gopath-env 
process-environment))
               (c-p-args (append (list (point-min)