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