 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)))
+    (let* ((buff (current-buffer))
+           (content (cons '("event_name" . "FileReadyToParse")
+                          (ycmd--standard-content-with-extras buff nil t))))
 
       ;; 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 . 0)
      (filetype_specific_completion_to_disable (gitcommit . 1))
      (collect_identifiers_from_comments_and_strings . 0)
      (min_num_of_chars_for_completion . 2)

        ("line_num" . ,line-num)
        ("column_num" . ,column-num)))))

(defun ycmd--standard-content-with-extras (buffer &optional force-semantic use-tags)
  "Generate 'standard' content for BUFFER with extras."
  (append (ycmd--standard-content buffer)
          (when (and force-semantic ycmd-force-semantic-completion)
            '(("force_semantic" . "true")))
          (when (and use-tags ycmd-tag-files)
            (-when-let (tag-files (ycmd--get-tag-files buffer))
              `(("tag_files" . ,tag-files))))))


(defvar ycmd--log-enabled nil
  "Whether http content should be logged. This is useful for
  debugging.")
