              (buffer-substring-no-properties (point-min) (point-max))))))
 
 (defun ac-fsharp-parse-file (file)
-  (view-file file)
-  (ac-fsharp-parse-current-buffer)
-  (View-quit))
+  (with-current-buffer (find-file-noselect file)
+    (ac-fsharp-parse-current-buffer)))
 
 ;;;###autoload
 (defun ac-fsharp-load-project (file)

          (setq ac-fsharp-waiting nil))

         ((string/starts-with msg "DATA: finddecl")
          (message "Received finddecl")
          (message msg)
          (message (buffer-file-name))
          (if (string-match "\\([0-9]+\\):\\([0-9]+\\)" msg)
              (goto-char
               (line-column-to-pos (+ 1

    nil))

(defun ac-fsharp-can-make-request ()
  (and ac-fsharp-completion-process
       (member (expand-file-name (buffer-file-name)) ac-fsharp-project-files)))

