Упомянутый вами фрагмент больше не работает.
Вот фрагмент, который вы можете использовать вместо:
(defun company-yasnippet-or-completion ()
(interactive)
(let ((yas-fallback-behavior nil))
(unless (yas-expand)
(call-interactively #'company-complete-common))))
Чтобы убедиться, что это вызывается вместо company-complete-common
, используйте
(add-hook 'company-mode-hook (lambda ()
(substitute-key-definition 'company-complete-common
'company-yasnippet-or-completion
company-active-map)))
Справочная информация: локально изменяет значение yas-fallback-behaviour
, в результате чего yas вызывает company-complete-common
, если завершение не найдено.