19 lines
515 B
EmacsLisp
19 lines
515 B
EmacsLisp
|
;;; defuns-company.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/company-evil-complete-next ()
|
||
|
|
(call-interactively 'company-dabbrev)
|
||
|
|
(if (eq company-candidates-length 1)
|
||
|
|
(company-complete)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/company-evil-complete-previous ()
|
||
|
|
(let ((company-selection-wrap-around t))
|
||
|
|
(call-interactively 'company-dabbrev)
|
||
|
|
(if (eq company-candidates-length 1)
|
||
|
|
(company-complete)
|
||
|
|
(call-interactively 'company-select-previous))))
|
||
|
|
|
||
|
|
(provide 'defuns-company)
|
||
|
|
;;; defuns-company.el ends here
|