From 3760c7bcdf75a3d47bf393f270aeb0b6bee53239 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 22 Feb 2016 12:41:45 -0500 Subject: [PATCH] Add narf/company-dict-or-keywords --- core/defuns/defuns-company.el | 6 ++++++ private/my-bindings.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/core/defuns/defuns-company.el b/core/defuns/defuns-company.el index 79a0e64cb..d22e45cbb 100644 --- a/core/defuns/defuns-company.el +++ b/core/defuns/defuns-company.el @@ -44,5 +44,11 @@ (prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1)) (candidates (all-completions arg lines))))) +;;;###autoload +(defun narf/company-dict-or-keywords () + (interactive) + (let ((company-backends '((company-keywords company-dict)))) + (call-interactively 'company-complete-common))) + (provide 'defuns-company) ;;; defuns-company.el ends here diff --git a/private/my-bindings.el b/private/my-bindings.el index 9674b16fc..df6817250 100644 --- a/private/my-bindings.el +++ b/private/my-bindings.el @@ -307,7 +307,7 @@ :i "C-SPC" 'company-complete-common (:prefix "C-x" :i "C-l" 'narf/company-whole-lines - :i "C-k" 'company-dict + :i "C-k" 'narf/company-dict-or-keywords :i "C-f" 'company-files :i "C-]" 'company-tags :i "s" 'company-ispell