           (insert contents))))))
 
 (defun intero-localize-path (path)
-  "Turn a possibly remote path to a purely local one. This is used to create paths which a remote intero process can load."
+  "Turn a possibly-remote PATH to a purely local one.
+This is used to create paths which a remote intero process can load."
   (if (tramp-tramp-file-p path)
       (tramp-file-name-localname (tramp-dissect-file-name path))
     path))

            (let ((original-buffer (intero-temp-file-origin-buffer loaded-file)))
              (if original-buffer
                  (switch-to-buffer original-buffer)
                (error "Attempted to load temp file. Try restarting Intero.
If the problem persists, please report this as a bug!")))
          (find-file loaded-file))
        (pop-mark)

;; Process communication

(defun intero-call-process (program &optional infile destination display &rest args)
  "Synchronously call PROGRAM.
INFILE, DESTINATION, DISPLAY and ARGS are as for
'call-process'/'process-file'.  Provides TRAMP compatibility for
'call-process'; when the 'default-directory' is on a remote
machine, PROGRAM is launched on that machine."
  (let ((process-args (append (list program infile destination display) args)))
    (apply 'process-file process-args)))

