From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 18 Jan 2018 11:16:23 +0000 (+0100)
Subject: Bind up/down in ecomplete
X-Git-Tag: emacs-27.0.90~5862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70a4f9ee21820381ead2bfe5f68e6cbf1e1e2dfe;p=emacs.git

Bind up/down in ecomplete

* lisp/ecomplete.el (ecomplete-display-matches): Allow using
up/down in addition to M-p/M-n.
---

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 2197d9512de..3f0d21c2305 100644
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -168,13 +168,15 @@ matches."
 	    nil)
 	(setq highlight (ecomplete-highlight-match-line matches line))
 	(let ((local-map (make-sparse-keymap))
+              (prev-func (lambda () (setq line (max (1- line) 0))))
+              (next-func (lambda () (setq line (min (1+ line) max-lines))))
 	      selected)
 	  (define-key local-map (kbd "RET")
 	    (lambda () (setq selected (nth line (split-string matches "\n")))))
-	  (define-key local-map (kbd "M-n")
-	    (lambda () (setq line (min (1+ line) max-lines))))
-	  (define-key local-map (kbd "M-p")
-	    (lambda () (setq line (max (1- line) 0))))
+	  (define-key local-map (kbd "M-n") next-func)
+	  (define-key local-map (kbd "<down>") next-func)
+	  (define-key local-map (kbd "M-p") prev-func)
+	  (define-key local-map (kbd "<up>") prev-func)
 	  (let ((overriding-local-map local-map))
 	    (while (and (null selected)
 			(setq command (read-key-sequence highlight))