company-search-map: Include <up> and <down> bindings

#292

diff --git a/NEWS.md b/NEWS.md
index 4139186095e763af57f0b639abbcda1081702566..aa98b51b8c1eafdcc8bb1a8634ba0ed3e9901dd4 100644 (file)
--- 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 38757aab908c4276958a8d912fc2068e75e11f42..0352ac96e2a5602f882bf458d825e58f3ce89c33 100644 (file)
--- 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)