From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 20 Feb 2024 14:18:52 +0000 (+0100)
Subject: ; Bind M-<left>/<right> in minibuffer for navigating *Completions*
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4a83e82a1e5ce01d0f469364ef7cc0c7e6ae97c;p=emacs.git

; Bind M-<left>/<right> in minibuffer for navigating *Completions*

* lisp/minibuffer.el (minibuffer-local-completion-map): Bind
'M-<left>/<right>' to 'minibuffer-previous/next-completion', and bind
'M-<down>/<up>' to the vertical variants of these commands.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 30e898c0c3c..0e2be767df6 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3393,8 +3393,10 @@ The completion method is determined by `completion-at-point-functions'."
   "<prior>"   #'switch-to-completions
   "M-v"       #'switch-to-completions
   "M-g M-c"   #'switch-to-completions
-  "M-<up>"    #'minibuffer-previous-completion
-  "M-<down>"  #'minibuffer-next-completion
+  "M-<up>"    #'minibuffer-previous-line-completion
+  "M-<down>"  #'minibuffer-next-line-completion
+  "M-<left>"  #'minibuffer-previous-completion
+  "M-<right>" #'minibuffer-next-completion
   "M-RET"     #'minibuffer-choose-completion
   "C-x C-v"   #'minibuffer-sort-completions
   "C-x n"     'minibuffer-narrow-completions-map