                 (warn "Received output but no callback in `intero-callbacks': %S"
                       string)))))
         (delete-region (point-min) (point))))))
+
+(defun strip-carriage-returns (string)
+  "Removes the \r from \r\n newlines on Windows"
+  (replace-regexp-in-string "\r" "" string))
 
 (defun intero-get-buffer-create (worker)
   "Get or create the stack buffer for this current directory and

  "Return buffer-file-name stripped of any text properties."
  (let ((name (buffer-file-name buffer)))
    (when name
      (substring-no-properties name))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Query/commands

              (concat "[\r\n]\\([A-Z]?:?[^ \r\n:][^:\n\r]+\\):\\([0-9()-:]+\\):"
                      "[ \n\r]+\\([[:unibyte:][:nonascii:]]+?\\)\n[^ ]")
              nil t 1)
        (let* ((file (intero-canonicalize-path (match-string 1)))
               (location-raw (match-string 2))
               (msg (match-string 3)) ;; Replace gross bullet points.
               (type (cond ((string-match "^Warning:" msg)
