[elpa] master 1b0dc62 06/10: company-search-map: Add company-complete-number bindings

[Dmitry Gutov]

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

    company-search-map: Add company-complete-number bindings
    
    #292
---
 NEWS.md    |    1 +
 company.el |    2 ++
 2 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index b65d067..0718b39 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -3,6 +3,7 @@
 ## Next
 
 * Better tracking of the current selection.
+* Pressing `M-0`...`M-9` works in the search mode.
 * Pressing `<up>` or `<down>` doesn't quit the search mode.
 
 ## 2015-01-23 (0.8.9)
diff --git a/company.el b/company.el
index f7f8613..dcdc19d 100644
--- a/company.el
+++ b/company.el
@@ -1727,6 +1727,8 @@ from the rest of the back-ends in the group, if any, will 
be left at the end."
     (define-key keymap "\C-s" 'company-search-repeat-forward)
     (define-key keymap "\C-r" 'company-search-repeat-backward)
     (define-key keymap "\C-o" 'company-search-toggle-filtering)
+    (dotimes (i 10)
+      (define-key keymap (read-kbd-macro (format "M-%d" i)) 
'company-complete-number))
     keymap)
   "Keymap used for incrementally searching the completion candidates.")