Company backend only complete on utop buffers

This commit is contained in:
Mario Rodas 2018-06-10 21:35:19 -05:00 committed by Perry E. Metzger
parent 4009cb09dc
commit ea38850e60
1 changed files with 2 additions and 1 deletions

View File

@ -1231,7 +1231,8 @@ Special keys for utop:
(pcase command (pcase command
('interactive (company-begin-backend 'utop-company-backend)) ('interactive (company-begin-backend 'utop-company-backend))
('sorted t) ('sorted t)
('prefix (company-grab-symbol)) ('prefix (and (derived-mode-p 'utop-mode)
(or (company-grab-symbol-cons "\\." 1) 'stop)))
('candidates ('candidates
(progn (progn
`(:async `(:async