 ;(set (make-local-variable 'gud-gdb-completion-function) 'gud-gdb-completions)
 
 ;(local-set-key "\C-i" 'completion-at-point)
-(local-set-key "\C-i" 'indent-for-tab-command)
+;(local-set-key "\C-i" 'indent-for-tab-command)
+
 (defun ac-fsharp-stash-partial (str)
-  (setq ac-fsharp-partial-data (concat ac-fsharp-partial-data This)))
+  (setq ac-fsharp-partial-data (concat ac-fsharp-partial-data str)))
 
 
 ; str function is called whenever fsintellisense.exe writes something on stdout

           (skip-chars-backward "^ ." (line-beginning-position))
           (point))))
    (list start end
          (let ((ac-fsharp-status 'fetch-in-progress)
                (ac-fsharp-data nil))
            (ac-fsharp-parse-file)
            (ac-fsharp-send-completion-request)
            (while (eq ac-fsharp-status 'fetch-in-progress)

    (fetch-in-progress
     (ac-fsharp-stash-partial str)
     (if (and
          (>= (length str) 8)
          (string= (substring str -8 nil) "<<EOF>>\n"))
         (progn
           (setq str ac-fsharp-partial-data)
           (setq ac-fsharp-partial-data "")
