Company backend only complete on utop buffers

2018-06-10 21:35:19 -05:00 · 2018-06-10 21:35:19 -05:00 · ea38850e60
parent 4009cb09dc
commit ea38850e60
1 changed files with 2 additions and 1 deletions
--- a/src/top/utop.el
+++ b/src/top/utop.el
@ -1231,7 +1231,8 @@ Special keys for utop:
  (pcase command
    ('interactive (company-begin-backend 'utop-company-backend))
    ('sorted t)
-    ('prefix (company-grab-symbol))
+    ('prefix (and (derived-mode-p 'utop-mode)
+                  (or (company-grab-symbol-cons "\\." 1) 'stop)))
    ('candidates
     (progn
       `(:async