From ea38850e606dd18c94e2ccabc28485fec1c8f91f Mon Sep 17 00:00:00 2001
From: Mario Rodas <marsam@users.noreply.github.com>
Date: Sun, 10 Jun 2018 21:35:19 -0500
Subject: [PATCH] Company backend only complete on utop buffers

---
 src/top/utop.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index 64b24ab..49f78a2 100644
--- 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