[Emacs-diffs] master 70a4f9e: Bind up/down in ecomplete

[Lars Ingebrigtsen]

branch: master
commit 70a4f9ee21820381ead2bfe5f68e6cbf1e1e2dfe
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Bind up/down in ecomplete
    
    * lisp/ecomplete.el (ecomplete-display-matches): Allow using
    up/down in addition to M-p/M-n.
---
 lisp/ecomplete.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 2197d95..3f0d21c 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))