   ; else
     nil))
 
+(defun ac-fsharp-can-make-request ()
+  (and ac-fsharp-completion-process
+       (member (file-truename (buffer-file-name)) ac-fsharp-project-files)))
+
 ;;;###autoload
 (defun ac-fsharp-tooltip-at-point ()
   "Fetch and display F# tooltips at point"
   (interactive)
   (require 'pos-tip)
-  (when ac-fsharp-completion-process
+  (when (ac-fsharp-can-make-request)
     (ac-fsharp-parse-current-buffer)
     (ac-fsharp-send-pos-request "tooltip"
                                 (buffer-file-name)

          (ac-fsharp-parse-file (car (last ac-fsharp-project-files))))

         ((string/starts-with msg "INFO: ")
          (message msg))

         ((string/starts-with msg "ERROR: ")
          (message msg)

(defvar ac-fsharp-completion-data "")
(defvar ac-fsharp-completion-cache nil)
(defvar ac-fsharp-project-files nil)
(defvar ac-fsharp-idle-timer nil)
(defvar ac-fsharp-verbose nil)

(defconst eom "\n<<EOF>>\n"
  "End of message marker")
