diff options
author | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-07-28 18:26:55 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-07-28 18:26:55 +0300 |
commit | d7763fe06708510f1166e81410190c6818d72a44 (patch) | |
tree | 52a28abd3786e2085fe6e32d7db19864d01dea6b /cider-macroexpansion.el | |
parent | 1a635242405a5fffdab206396134c07e62d295cb (diff) |
[Fix #681] Add a few extra keybindings to cider-macroexpansion-minor-mode-map
Diffstat (limited to 'cider-macroexpansion.el')
-rw-r--r-- | cider-macroexpansion.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el index 5bf82797..5c5c79b9 100644 --- a/cider-macroexpansion.el +++ b/cider-macroexpansion.el @@ -66,7 +66,7 @@ This variable specifies both what was expanded and the expander.") "Macroexpand, use EXPANDER, the given EXPR." (let* ((expansion (cider-macroexpansion expander expr))) (setq cider-last-macroexpand-expression expr) - (cider-initialize-macroexpansion-buffer expansion nrepl-buffer-ns))) + (cider-initialize-macroexpansion-buffer expansion (cider-current-ns)))) (defun cider-macroexpand-expr-inplace (expander) "Substitute the form preceding point with its macroexpansion using EXPANDER." @@ -146,6 +146,9 @@ and point is placed at CURRENT-POINT." (let ((map (make-sparse-keymap))) (define-key map (kbd "g") 'cider-macroexpand-again) (define-key map (kbd "q") 'cider-popup-buffer-quit-function) + (define-key map (kbd "d") 'cider-doc) + (define-key map (kbd "j") 'cider-javadoc) + (define-key map (kbd ".") 'cider-jump-to-var) (cl-labels ((redefine-key (from to) (dolist (mapping (where-is-internal from cider-mode-map)) (define-key map mapping to)))) |