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

[gnu-emacs-elpa] / company.el

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)