diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 338f3e3fd89..5502cd49aa4 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3336,7 +3336,7 @@ to `shell-command-history'." (shell-completion-vars) (set (make-local-variable 'minibuffer-default-add-function) 'minibuffer-default-add-shell-commands)) - (apply 'read-from-minibuffer prompt initial-contents + (apply #'read-from-minibuffer prompt initial-contents minibuffer-local-shell-command-map nil (or hist 'shell-command-history) @@ -8494,10 +8494,7 @@ Called from `temp-buffer-show-hook'." "In this buffer, type \\[choose-completion] to \ select the completion near point.\n\n")))))) -(add-hook 'completion-setup-hook 'completion-setup-function) - -(define-key minibuffer-local-completion-map [prior] 'switch-to-completions) -(define-key minibuffer-local-completion-map "\M-v" 'switch-to-completions) +(add-hook 'completion-setup-hook #'completion-setup-function) (defun switch-to-completions () "Select the completion list window." |