From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sat, 8 Nov 2014 21:12:25 +0000 (+0200)
Subject: company-complete-number: Handle keypad events
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/43756857c8d9e713a2f978b052ba2cf7521ab08a

company-complete-number: Handle keypad events
---

diff --git a/NEWS.md b/NEWS.md
index 208ff1f32..a527c0456 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## Next
 
+* `company-complete-number` can be bound to keypad numbers directly, with or
+  without modifiers.
 * `company-cmake` supports expansion of `<LANG>` and `<CONFIG>` placeholders
   inside of variable names.
 
diff --git a/company.el b/company.el
index cf88ddd30..3258f1694 100644
--- a/company.el
+++ b/company.el
@@ -1862,7 +1862,13 @@ To show the number next to the candidates in some back-ends, enable
 `company-show-numbers'.  When called interactively, uses the last typed
 character, stripping the modifiers.  That character must be a digit."
   (interactive
-   (list (let ((n (- (event-basic-type last-command-event) ?0)))
+   (list (let* ((type (event-basic-type last-command-event))
+                (char (if (characterp type)
+                          ;; Number on the main row.
+                          type
+                        ;; Keypad number, if bound directly.
+                        (car (last (string-to-list (symbol-name type))))))
+                (n (- char ?0)))
            (if (zerop n) 10 n))))
   (when (company-manual-begin)
     (and (or (< n 1) (> n company-candidates-length))