branch: elpa/go-mode
commit d2095503f59cf4ea2d7d3fc4514a2c967dc61be7
Author: Alan Donovan <[email protected]>
Commit: Dominik Honnef <[email protected]>
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 <[email protected]>
---
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)
