Company backend only complete on utop buffers
This commit is contained in:
parent
4009cb09dc
commit
ea38850e60
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue