From 3c57867df49314df47178e9e8a8754689c6753b1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 7 Apr 2022 19:20:54 -0400 Subject: [PATCH] lisp/simple.el: Use #' in new code * lisp/simple.el (minibuffer-local-shell-command-map): Use #' to quote function names. --- lisp/simple.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 80c27d6e0e5..eb657018039 100644 --- 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.") -- 2.39.5