[elpa] master bb8aa8b 04/10: company-search-map: Include <up> and <down> bindings

[Dmitry Gutov]

branch: master
commit bb8aa8bf783adbde93734c7569c1a478e34708c2
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    company-search-map: Include <up> and <down> bindings
    
    #292
---
 NEWS.md    |    4 ++++
 company.el |    2 ++
 2 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 4139186..aa98b51 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 38757aa..0352ac9 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)