From: João Távora <joaotavora@gmail.com>
Date: Tue, 17 Aug 2021 12:06:06 +0000 (+0100)
Subject: Bind <up> and <down> in icomplete-vertical-mode
X-Git-Tag: emacs-28.0.90~1468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6fb7e44cc7da97f7c29246dbff89009de9a4633;p=emacs.git

Bind <up> and <down> in icomplete-vertical-mode

Suggested by Ergus <spacibba@aol.com>

* lisp/icomplete.el (icomplete-vertical-mode-minibuffer-map): Bind
<up> and <down>
---

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 96b7e0f2014..81fc6ff03ca 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -624,6 +624,8 @@ Usually run by inclusion in `minibuffer-setup-hook'."
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "C-n") 'icomplete-forward-completions)
     (define-key map (kbd "C-p") 'icomplete-backward-completions)
+    (define-key map (kbd "<down>") 'icomplete-forward-completions)
+    (define-key map (kbd "<up>") 'icomplete-backward-completions)
     (define-key map (kbd "M-<") 'icomplete-vertical-goto-first)
     (define-key map (kbd "M->") 'icomplete-vertical-goto-last)
     map)