 The timeout can be set with the variable
 `ycmd-startup-timeout'."
   (let ((server-start-time (float-time))
-         server-started)
+        server-started)
     (while (and (not server-started) (ycmd-running?))
       (sit-for 0.1)
       (if (ycmd--server-ready? :include-subserver)

            (append (ycmd--standard-content buffer pos)
                    (and ycmd-force-semantic-completion
                         (list (cons "force_semantic" t))))))
      (ycmd--request
       "/completions"
       content
       :parser 'json-read
       :sync sync))))

(defun ycmd--handle-exception (result)
  "Handle exception in completion RESULT.

This function handles `UnknownExtraConf', `ValueError' and
`RuntimeError' exceptions."
  (let-alist result
    (pcase .exception.TYPE
      ("UnknownExtraConf"
       (ycmd--handle-extra-conf-exception .exception.extra_conf_file))
      ((or "ValueError" "RuntimeError")
       (ycmd--handle-error-exception .message)))))

(defun ycmd--send-request (subcommand success-handler)
  "Send SUBCOMMAND to the `ycmd' server.

    (message "%s" (concat (when is-error "ERROR: ")
                          (if msg msg "Unknown exception.")))))

(defun ycmd--handle-notify-response (response)
  "Handle RESPONSE from event notification."
  (if (ycmd--exception? response)
      (ycmd--handle-exception response)
    (ycmd--report-status 'parsed)
    (run-hook-with-args 'ycmd-file-parse-result-hook response)))

(defun ycmd--notify-server (event-name &optional event-content-alist)
  "Send a simple event notification for EVENT-NAME to the
