From 914ee405b8dd80999ba77c8f46dce5dec5e3f624 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Mon, 27 Apr 2015 05:56:59 -0400 Subject: [PATCH] company: add terminal support for S-TAB --- contrib/auto-completion/packages.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/contrib/auto-completion/packages.el b/contrib/auto-completion/packages.el index bd1f5ecc7..e542144fd 100644 --- a/contrib/auto-completion/packages.el +++ b/contrib/auto-completion/packages.el @@ -80,12 +80,18 @@ (spacemacs|diminish company-mode " ⓐ" " a") ;; key bindings ;; use TAB to auto-complete instead of RET + (defun spacemacs//company-complete-common-or-cycle-backward () + "Complete common prefix or cycle backward." + (interactive) + (company-complete-common-or-cycle -1)) (let ((map company-active-map)) (define-key map [tab] 'company-complete-common-or-cycle) (define-key map (kbd "TAB") 'company-complete-common-or-cycle) (define-key map (kbd "") 'company-complete-common-or-cycle) - (define-key map (kbd "") (lambda () (interactive) - (company-complete-common-or-cycle -1))) + (define-key map (kbd "") + 'spacemacs//company-complete-common-or-cycle-backward) + (define-key map (kbd "") + 'spacemacs//company-complete-common-or-cycle-backward) (define-key map (kbd "C-j") 'company-select-next) (define-key map (kbd "C-k") 'company-select-previous) (define-key map (kbd "C-/") 'company-search-candidates)