Use #' where appropriate

Author: bbatsov

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"

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.")
 

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

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*")

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"

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"

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