Added <up> and <down> as keybindings for selecting.

diff --git a/company.el b/company.el
index 7aca3c89e7eb9b3483ec82eab32fdfd9abd31e01..9d25e81fa4ca0ca06635ed3cae8394f068f3031b 100644 (file)
--- a/company.el
+++ b/company.el
@@ -235,6 +235,8 @@ immediately when a prefix of `company-minimum-prefix-length' is reached."
   (let ((keymap (make-sparse-keymap)))
     (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)
+    (define-key keymap (kbd "<up>") 'company-select-previous)
     (define-key keymap "\C-m" 'company-complete-selection)
     (define-key keymap "\t" 'company-complete-common)
     (define-key keymap (kbd "<f1>") 'company-show-doc-buffer)