emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add narf/company-dict-or-keywords

Browse source
This commit is contained in:
Henrik Lissner 2016-02-22 12:41:45 -05:00
parent 7cbeb4325e
commit 3760c7bcdf
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/defuns/defuns-company.el
View file

@ -44,5 +44,11 @@
(prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1)) (prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1))
(candidates (all-completions arg lines))))) (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) (provide 'defuns-company)
;;; defuns-company.el ends here ;;; defuns-company.el ends here

2
private/my-bindings.el
View file

@ -307,7 +307,7 @@
:i "C-SPC" 'company-complete-common :i "C-SPC" 'company-complete-common
(:prefix "C-x" (:prefix "C-x"
:i "C-l" 'narf/company-whole-lines :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-f" 'company-files
:i "C-]" 'company-tags :i "C-]" 'company-tags
:i "s" 'company-ispell :i "s" 'company-ispell