[nongnu] elpa/go-mode d209550 353/495: cmd/guru: emacs: minor changes to keybindings

[ELPA Syncer]

branch: elpa/go-mode
commit d2095503f59cf4ea2d7d3fc4514a2c967dc61be7
Author: Alan Donovan <alan@alandonovan.net>
Commit: Dominik Honnef <dominik@honnef.co>

    cmd/guru: emacs: minor changes to keybindings
    
    Major modes should use the C-c prefix followed by C-something.  We'll
    stick with C-o (oracle) since C-g is taken by go-jump-xxx (and in any
    case C-g should be reserved for keyboard-quit.)
    
    Change-Id: I18f41d7cbd5bf83aa53909554501e7f76543f033
    Reviewed-on: https://go-review.googlesource.com/19510
    Reviewed-by: Michael Matloob <matloob@golang.org>
---
 guru_import/cmd/guru/guru.el | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/guru_import/cmd/guru/guru.el b/guru_import/cmd/guru/guru.el
index 619b8db..4e9ad32 100644
--- a/guru_import/cmd/guru/guru.el
+++ b/guru_import/cmd/guru/guru.el
@@ -35,19 +35,18 @@
 
 ;; Extend go-mode-map.
 (let ((m go-mode-map))
-  (define-key m (kbd "C-c C-o t") #'go-guru-describe) ; t for type
-  (define-key m (kbd "C-c C-o f") #'go-guru-freevars)
-  (define-key m (kbd "C-c C-o g") #'go-guru-callgraph)
-  (define-key m (kbd "C-c C-o i") #'go-guru-implements)
-  (define-key m (kbd "C-c C-o c") #'go-guru-peers)  ; c for channel
-  (define-key m (kbd "C-c C-o r") #'go-guru-referrers)
-  (define-key m (kbd "C-c C-o d") #'go-guru-definition)
-  (define-key m (kbd "C-c C-o p") #'go-guru-pointsto)
-  (define-key m (kbd "C-c C-o s") #'go-guru-callstack)
-  (define-key m (kbd "C-c C-o <") #'go-guru-callers)
-  (define-key m (kbd "C-c C-o >") #'go-guru-callees)
-  (define-key m (kbd "<f5>") #'go-guru-describe)
-  (define-key m (kbd "<f6>") #'go-guru-referrers))
+  (define-key m "d" #'go-guru-describe)
+  (define-key m "f" #'go-guru-freevars)
+  (define-key m "i" #'go-guru-implements)
+  (define-key m "c" #'go-guru-peers)  ; c for channel
+  (define-key m "r" #'go-guru-referrers)
+  (define-key m "j" #'go-guru-definition) ; j for jump
+  (define-key m "p" #'go-guru-pointsto)
+  (define-key m "s" #'go-guru-callstack) ; s for stack
+  (define-key m "<" #'go-guru-callers)
+  (define-key m ">" #'go-guru-callees))
+
+(define-key go-mode-map (kbd "C-c C-o") #'go-guru-map)
 
 ;; TODO(dominikh): Rethink set-scope some. Setting it to a file is
 ;; painful because it doesn't use find-file, and variables/~ aren't
@@ -125,7 +124,7 @@ a scope if not already set.  Return the output buffer."
        ;; Log the command to *Messages*, for debugging.
        (message "Command: %s:" args)
        (message nil) ; clears/shrinks minibuffer
-       (message "Running guru...")
+       (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)