lisp/simple.el: Use #' in new code

* lisp/simple.el (minibuffer-local-shell-command-map): Use #' to quote
function names.

diff --git a/lisp/simple.el b/lisp/simple.el
index 80c27d6e0e57f2477d5866d58313c7a26b94a1e0..eb657018039403d70be2feda9d58129d891250a0 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3923,12 +3923,12 @@ to the end of the list of defaults just after the default value."
 (defvar minibuffer-local-shell-command-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map minibuffer-local-map)
-    (define-key map "\t" 'completion-at-point)
-    (define-key map [M-up]   'minibuffer-choose-previous-completion)
-    (define-key map [M-down] 'minibuffer-choose-next-completion)
-    (define-key map [M-S-up]   'minibuffer-previous-completion)
-    (define-key map [M-S-down] 'minibuffer-next-completion)
-    (define-key map [?\M-\r]   'minibuffer-choose-completion)
+    (define-key map "\t"       #'completion-at-point)
+    (define-key map [M-up]     #'minibuffer-choose-previous-completion)
+    (define-key map [M-down]   #'minibuffer-choose-next-completion)
+    (define-key map [M-S-up]   #'minibuffer-previous-completion)
+    (define-key map [M-S-down] #'minibuffer-next-completion)
+    (define-key map [?\M-\r]   #'minibuffer-choose-completion)
     map)
   "Keymap used for completing shell commands in minibuffer.")