         (message "Ycmd completion unavailable while parsing is in progress."))
 
       (when ycmd-mode
-        (let ((content (append (ycmd--standard-content)
-                               (when ycmd-force-semantic-completion
-                                 '(("force_semantic" . "true"))))))
-          (ycmd--request
-           "/completions"
-           content
-           :parser 'json-read)))))
+        (ycmd--request
+         "/completions"
+         (ycmd--standard-content-with-extras buffer t)
+         :parser 'json-read))))
 
 (defun ycmd--handle-exception (results &optional default-handler)
   (cond ((string-equal (assoc-default 'TYPE (assoc-default 'exception results))

functions in `ycmd-file-parse-result-hook'.
"
  (when (and ycmd-mode (not (ycmd-parsing-in-progress-p)))
    (let ((content (cons '("event_name" . "FileReadyToParse")
                         (ycmd--standard-content)))
          (buff (current-buffer)))

      ;; Record that the buffer is being parsed
      (ycmd--report-status 'parsing)

      (global_ycm_extra_conf . ,global-config)
      (extra_conf_globlist . ,extra-conf-whitelist)
      (hmac_secret . ,hmac-secret)
      (collect_identifiers_from_tags_files . ,(if ycmd-tag-files 1 0))
      (filetype_specific_completion_to_disable (gitcommit . 1))
      (collect_identifiers_from_comments_and_strings . 0)
      (min_num_of_chars_for_completion . 2)
