From: Stefan Monnier Date: Thu, 7 Apr 2022 23:20:54 +0000 (-0400) Subject: lisp/simple.el: Use #' in new code X-Git-Tag: emacs-29.0.90~1931^2~717 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c57867df49314df47178e9e8a8754689c6753b1;p=emacs.git 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 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.")