From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 1 Feb 2015 05:42:48 +0000 (+0200)
Subject: company-search-map: Add company-complete-number bindings
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/1b0dc627c68008d856662e40c3e9622ff4b52740?ds=sidebyside

company-search-map: Add company-complete-number bindings

#292
---

diff --git a/NEWS.md b/NEWS.md
index b65d06709..0718b399a 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 f7f8613af..dcdc19d85 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.")