awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-20 16:11:07 -05:00
Code Issues Packages Projects Releases Wiki Activity

Less intrusive company completion

Browse Source
This commit is contained in:
Henrik Lissner
2016-02-23 13:11:00 -05:00
parent 3ce43bf173
commit 4c0e39c9ce
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/defuns/defuns-company.el
View File

@@ -48,7 +48,15 @@
(defun narf/company-dict-or-keywords ()
(interactive)
(let ((company-backends '((company-keywords company-dict))))
(call-interactively 'company-complete-common)))
(call-interactively 'company-complete)))
;;;###autoload
(defun narf/company-complete ()
"Bring up the completion popup. If there is only one result, auto-complete it."
(interactive)
(when (and (company-manual-begin)
(= company-candidates-length 1))
(company-complete-common)))
(provide 'defuns-company)
;;; defuns-company.el ends here