diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-05-27 23:52:07 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-05-27 23:52:07 +0300 |
commit | 7f73323d1ab6fda94a9d1a42cad6255554a217d9 (patch) | |
tree | 077b359741c9bb30de32e8cfce350f121ccd7698 | |
parent | a13c12f2f90bb8a9f9631c8b79855aa6b541c82e (diff) |
Use #' where appropriate
-rw-r--r-- | cider-inspector.el | 18 | ||||
-rw-r--r-- | cider-interaction.el | 4 | ||||
-rw-r--r-- | cider-macroexpansion.el | 18 | ||||
-rw-r--r-- | cider-scratch.el | 2 | ||||
-rw-r--r-- | cider-stacktrace.el | 36 | ||||
-rw-r--r-- | cider-test.el | 24 | ||||
-rw-r--r-- | nrepl-client.el | 12 |
7 files changed, 57 insertions, 57 deletions
diff --git a/cider-inspector.el b/cider-inspector.el index d61e99b5..9798a6d6 100644 --- a/cider-inspector.el +++ b/cider-inspector.el @@ -41,15 +41,15 @@ (defvar cider-inspector-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map cider-popup-buffer-mode-map) - (define-key map [return] 'cider-inspector-operate-on-point) - (define-key map "\C-m" 'cider-inspector-operate-on-point) - (define-key map [mouse-1] 'cider-inspector-operate-on-click) - (define-key map "l" 'cider-inspector-pop) - (define-key map "g" 'cider-inspector-refresh) - (define-key map [tab] 'cider-inspector-next-inspectable-object) - (define-key map "\C-i" 'cider-inspector-next-inspectable-object) - (define-key map [(shift tab)] 'cider-inspector-previous-inspectable-object) ; Emacs translates S-TAB - (define-key map [backtab] 'cider-inspector-previous-inspectable-object) ; to BACKTAB on X. + (define-key map [return] #'cider-inspector-operate-on-point) + (define-key map "\C-m" #'cider-inspector-operate-on-point) + (define-key map [mouse-1] #'cider-inspector-operate-on-click) + (define-key map "l" #'cider-inspector-pop) + (define-key map "g" #'cider-inspector-refresh) + (define-key map [tab] #'cider-inspector-next-inspectable-object) + (define-key map "\C-i" #'cider-inspector-next-inspectable-object) + (define-key map [(shift tab)] 3'cider-inspector-previous-inspectable-object) ; Emacs translates S-TAB + (define-key map [backtab] #'cider-inspector-previous-inspectable-object) ; to BACKTAB on X. map)) (define-derived-mode cider-inspector-mode fundamental-mode "Inspector" diff --git a/cider-interaction.el b/cider-interaction.el index 54edc3b6..94f27cc0 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -505,8 +505,8 @@ Returns to the buffer in which the command was invoked." (defvar cider-minibuffer-map (let ((map (make-sparse-keymap))) (set-keymap-parent map minibuffer-local-map) - (define-key map (kbd "TAB") 'complete-symbol) - (define-key map (kbd "M-TAB") 'complete-symbol) + (define-key map (kbd "TAB") #'complete-symbol) + (define-key map (kbd "M-TAB") #'complete-symbol) map) "Minibuffer keymap used for reading Clojure expressions.") diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el index cc2c46fc..41880182 100644 --- a/cider-macroexpansion.el +++ b/cider-macroexpansion.el @@ -173,11 +173,11 @@ and point is placed after the expanded form." (defvar cider-macroexpansion-mode-map (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-find-var) + (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-find-var) (easy-menu-define cider-macroexpansion-mode-menu map "Menu for CIDER's doc mode" '("Macroexpansion" @@ -191,10 +191,10 @@ and point is placed after the expanded form." (cl-labels ((redefine-key (from to) (dolist (mapping (where-is-internal from cider-mode-map)) (define-key map mapping to)))) - (redefine-key 'cider-macroexpand-1 'cider-macroexpand-1-inplace) - (redefine-key 'cider-macroexpand-all 'cider-macroexpand-all-inplace) - (redefine-key 'advertised-undo 'cider-macroexpand-undo) - (redefine-key 'undo 'cider-macroexpand-undo)) + (redefine-key 'cider-macroexpand-1 #'cider-macroexpand-1-inplace) + (redefine-key 'cider-macroexpand-all #'cider-macroexpand-all-inplace) + (redefine-key 'advertised-undo #'cider-macroexpand-undo) + (redefine-key 'undo #'cider-macroexpand-undo)) map)) (define-minor-mode cider-macroexpansion-mode diff --git a/cider-scratch.el b/cider-scratch.el index b1c9aac0..5d487b9d 100644 --- a/cider-scratch.el +++ b/cider-scratch.el @@ -35,7 +35,7 @@ (defvar cider-clojure-interaction-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map clojure-mode-map) - (define-key map (kbd "C-j") 'cider-eval-print-last-sexp) + (define-key map (kbd "C-j") #'cider-eval-print-last-sexp) map)) (defconst cider-scratch-buffer-name "*cider-scratch*") diff --git a/cider-stacktrace.el b/cider-stacktrace.el index 51b889f2..921af70d 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -148,24 +148,24 @@ cyclical data structures." (defvar cider-stacktrace-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "M-p") 'cider-stacktrace-previous-cause) - (define-key map (kbd "M-n") 'cider-stacktrace-next-cause) - (define-key map (kbd "M-.") 'cider-stacktrace-jump) - (define-key map "q" 'cider-popup-buffer-quit-function) - (define-key map "j" 'cider-stacktrace-toggle-java) - (define-key map "c" 'cider-stacktrace-toggle-clj) - (define-key map "r" 'cider-stacktrace-toggle-repl) - (define-key map "t" 'cider-stacktrace-toggle-tooling) - (define-key map "d" 'cider-stacktrace-toggle-duplicates) - (define-key map "a" 'cider-stacktrace-toggle-all) - (define-key map "1" 'cider-stacktrace-cycle-cause-1) - (define-key map "2" 'cider-stacktrace-cycle-cause-2) - (define-key map "3" 'cider-stacktrace-cycle-cause-3) - (define-key map "4" 'cider-stacktrace-cycle-cause-4) - (define-key map "5" 'cider-stacktrace-cycle-cause-5) - (define-key map "0" 'cider-stacktrace-cycle-all-causes) - (define-key map [tab] 'cider-stacktrace-cycle-current-cause) - (define-key map [backtab] 'cider-stacktrace-cycle-all-causes) + (define-key map (kbd "M-p") #'cider-stacktrace-previous-cause) + (define-key map (kbd "M-n") #'cider-stacktrace-next-cause) + (define-key map (kbd "M-.") #'cider-stacktrace-jump) + (define-key map "q" #'cider-popup-buffer-quit-function) + (define-key map "j" #'cider-stacktrace-toggle-java) + (define-key map "c" #'cider-stacktrace-toggle-clj) + (define-key map "r" #'cider-stacktrace-toggle-repl) + (define-key map "t" #'cider-stacktrace-toggle-tooling) + (define-key map "d" #'cider-stacktrace-toggle-duplicates) + (define-key map "a" #'cider-stacktrace-toggle-all) + (define-key map "1" #'cider-stacktrace-cycle-cause-1) + (define-key map "2" #'cider-stacktrace-cycle-cause-2) + (define-key map "3" #'cider-stacktrace-cycle-cause-3) + (define-key map "4" #'cider-stacktrace-cycle-cause-4) + (define-key map "5" #'cider-stacktrace-cycle-cause-5) + (define-key map "0" #'cider-stacktrace-cycle-all-causes) + (define-key map [tab] #'cider-stacktrace-cycle-current-cause) + (define-key map [backtab] #'cider-stacktrace-cycle-all-causes) (easy-menu-define cider-stacktrace-mode-menu map "Menu for CIDER's stacktrace mode" '("Stacktrace" diff --git a/cider-test.el b/cider-test.el index 11449b8e..8f608bc9 100644 --- a/cider-test.el +++ b/cider-test.el @@ -103,18 +103,18 @@ (defvar cider-test-report-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "C-c ,") 'cider-test-run-tests) - (define-key map (kbd "C-c C-,") 'cider-test-rerun-tests) - (define-key map (kbd "C-c M-,") 'cider-test-run-test) - (define-key map (kbd "M-p") 'cider-test-previous-result) - (define-key map (kbd "M-n") 'cider-test-next-result) - (define-key map (kbd "M-.") 'cider-test-jump) - (define-key map (kbd "t") 'cider-test-jump) - (define-key map (kbd "d") 'cider-test-ediff) - (define-key map (kbd "e") 'cider-test-stacktrace) - (define-key map "q" 'cider-popup-buffer-quit-function) - (define-key map (kbd "<backtab>") 'backward-button) - (define-key map (kbd "TAB") 'forward-button) + (define-key map (kbd "C-c ,") #'cider-test-run-tests) + (define-key map (kbd "C-c C-,") #'cider-test-rerun-tests) + (define-key map (kbd "C-c M-,") #'cider-test-run-test) + (define-key map (kbd "M-p") #'cider-test-previous-result) + (define-key map (kbd "M-n") #'cider-test-next-result) + (define-key map (kbd "M-.") #'cider-test-jump) + (define-key map (kbd "t") #'cider-test-jump) + (define-key map (kbd "d") #'cider-test-ediff) + (define-key map (kbd "e") #'cider-test-stacktrace) + (define-key map "q" #'cider-popup-buffer-quit-function) + (define-key map (kbd "<backtab>") #'backward-button) + (define-key map (kbd "TAB") #'forward-button) (easy-menu-define cider-test-report-mode-menu map "Menu for CIDER's test result mode" '("Test-Report" diff --git a/nrepl-client.el b/nrepl-client.el index 35bc9637..472192dd 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -1138,8 +1138,8 @@ operations.") (defvar nrepl-messages-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "n") 'next-line) - (define-key map (kbd "p") 'previous-line) + (define-key map (kbd "n") #'next-line) + (define-key map (kbd "p") #'previous-line) map)) (define-derived-mode nrepl-messages-mode special-mode "nREPL Messages" @@ -1291,10 +1291,10 @@ Also close associated REPL and server buffers." ;; often used across cider, so it's not very internal. (defvar nrepl-connections-buffer-mode-map (let ((map (make-sparse-keymap))) - (define-key map "d" 'nrepl-connections-make-default) - (define-key map "g" 'nrepl-connection-browser) - (define-key map (kbd "C-k") 'nrepl-connections-close-connection) - (define-key map (kbd "RET") 'nrepl-connections-goto-connection) + (define-key map "d" #'nrepl-connections-make-default) + (define-key map "g" #'nrepl-connection-browser) + (define-key map (kbd "C-k") #'nrepl-connections-close-connection) + (define-key map (kbd "RET") #'nrepl-connections-goto-connection) map)) (define-derived-mode nrepl-connections-buffer-mode cider-popup-buffer-mode |