 (cl-defun ycmd--request (location
                          content
                          &key
-                         (parser 'buffer-string)
                          (type "POST")
                          (params nil)
                          (sync nil)

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

(defun ycmd--handle-exception (response)
  "Handle exception in completion RESPONSE.

                          (ycmd--log-content "HTTP RESPONSE CONTENT" data)
                          data)))
         (request-args (list :type type :params params :data content
                             :parser 'json-read :headers headers
                             :timeout timeout)))
    (ycmd--log-content "HTTP REQUEST CONTENT" content)

