From bb8aa8bf783adbde93734c7569c1a478e34708c2 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 1 Feb 2015 06:02:54 +0200
Subject: [PATCH] company-search-map: Include <up> and <down> bindings

#292
---
 NEWS.md    | 4 ++++
 company.el | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index 413918609..aa98b51b8 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,9 @@
 # History of user-visible changes
 
+## Next
+
+* Pressing `<up>` or `<down>` doesn't quit the search mode.
+
 ## 2015-01-23 (0.8.9)
 
 * New commands `company-next-page` and `company-previous-page`, remapping
diff --git a/company.el b/company.el
index 38757aab9..0352ac96e 100644
--- a/company.el
+++ b/company.el
@@ -1710,6 +1710,8 @@ from the rest of the back-ends in the group, if any, will be left at the end."
     (define-key keymap (vector meta-prefix-char t) 'company-search-other-char)
     (define-key keymap (kbd "M-n") 'company-select-next)
     (define-key keymap (kbd "M-p") 'company-select-previous)
+    (define-key keymap (kbd "<down>") 'company-select-next-or-abort)
+    (define-key keymap (kbd "<up>") 'company-select-previous-or-abort)
     (define-key keymap "\e\e\e" 'company-search-other-char)
     (define-key keymap [escape escape escape] 'company-search-other-char)
     (define-key keymap (kbd "DEL") 'company-search-delete-char)
-- 
2.39.2