From 1b0dc627c68008d856662e40c3e9622ff4b52740 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 1 Feb 2015 07:42:48 +0200 Subject: [PATCH] company-search-map: Add company-complete-number bindings #292 --- NEWS.md | 1 + company.el | 2 ++ 2 files changed, 3 insertions(+) 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 `` or `` 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.") -- 2.39.2