Add narf/company-dict-or-keywords

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

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