[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0a172c5 47/66: company-search-map: Support keypad numbers
From: |
Dmitry Gutov |
Subject: |
[elpa] master 0a172c5 47/66: company-search-map: Support keypad numbers |
Date: |
Tue, 13 Jan 2015 02:45:01 +0000 |
branch: master
commit 0a172c53217dd20fbc4c331780cd050ee3c9fdc9
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
company-search-map: Support keypad numbers
Fixes #273
---
company.el | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/company.el b/company.el
index e6bebbf..066f1c0 100644
--- a/company.el
+++ b/company.el
@@ -1583,6 +1583,12 @@ from the rest of the back-ends in the group, if any,
will be left at the end."
(cl-return i))
(cl-incf i))))
+(defun company-search-keypad ()
+ (interactive)
+ (let* ((name (symbol-name last-command-event))
+ (last-command-event (aref name (1- (length name)))))
+ (company-search-printing-char)))
+
(defun company-search-printing-char ()
(interactive)
(company-search-assert-enabled)
@@ -1674,6 +1680,8 @@ from the rest of the back-ends in the group, if any, will
be left at the end."
(while (< i 256)
(define-key keymap (vector i) 'company-search-printing-char)
(cl-incf i))
+ (dotimes (i 10)
+ (define-key keymap (read (format "[kp-%s]" i)) 'company-search-keypad))
(let ((meta-map (make-sparse-keymap)))
(define-key keymap (char-to-string meta-prefix-char) meta-map)
(define-key keymap [escape] meta-map))
- [elpa] master 6d023fd 36/66: Add NEWS entry, (continued)
- [elpa] master 6d023fd 36/66: Add NEWS entry, Dmitry Gutov, 2015/01/12
- [elpa] master 8d4ba7a 38/66: company-preview-show-at-point: Handle the pseudo-tooltip-overlay, Dmitry Gutov, 2015/01/12
- [elpa] master bd5e453 39/66: #267 follow-up fixes, Dmitry Gutov, 2015/01/12
- [elpa] master 7ac956a 37/66: Fix typo, Dmitry Gutov, 2015/01/12
- [elpa] master ccecb37 32/66: Merge pull request #252 from markus1189/bbdb-customize-group, Dmitry Gutov, 2015/01/12
- [elpa] master 6ff5ed3 40/66: Clear out unused variable warnings, Dmitry Gutov, 2015/01/12
- [elpa] master 8b587c0 43/66: Add .elpaignore, Dmitry Gutov, 2015/01/12
- [elpa] master eef07a5 44/66: Support template functions in company-clang annotations, Dmitry Gutov, 2015/01/12
- [elpa] master 80620a1 45/66: Remove ineffective change from c6e9fbad312fc62876d40032a84a94439a055d05, Dmitry Gutov, 2015/01/12
- [elpa] master 829b40f 46/66: company--continue-failed: Don't burp on `stop', Dmitry Gutov, 2015/01/12
- [elpa] master 0a172c5 47/66: company-search-map: Support keypad numbers,
Dmitry Gutov <=
- [elpa] master ff9bafc 41/66: Don't idle-begin when company-candidates is non-nil, Dmitry Gutov, 2015/01/12
- [elpa] master 9335f7b 48/66: company-search-delete-char: New command, Dmitry Gutov, 2015/01/12
- [elpa] master 048a9c4 50/66: company-search-old-map: Remove, unused, Dmitry Gutov, 2015/01/12
- [elpa] master a850cdb 51/66: Privatize some search functions (and a var), Dmitry Gutov, 2015/01/12
- [elpa] master 7b312dd 52/66: Introduce `company-search-toggle-filtering', Dmitry Gutov, 2015/01/12
- [elpa] master 0d2757c 56/66: company-search-map: Add M-n and M-p bindings, Dmitry Gutov, 2015/01/12
- [elpa] master f5942e9 55/66: company-fill-propertize: Don't highlight match beg till common part, Dmitry Gutov, 2015/01/12
- [elpa] master aa7c1ca 57/66: Simplify NEWS entry, Dmitry Gutov, 2015/01/12
- [elpa] master eb1f0db 58/66: Fixup a test, Dmitry Gutov, 2015/01/12
- [elpa] master 9c99c7c 60/66: company-search-abort: Move predicate reset to the mode function, Dmitry Gutov, 2015/01/12