         (when (> (length (cdr f)) 1)
           (throw 'done t))))))
 
-(defun ycmd--handle-fixit-success (result)
-  "Handle a successful FixIt response for RESULT."
-  (-if-let* ((fixits (cdr (assq 'fixits result)))
+(defun ycmd--handle-fixit-success (response)
+  "Handle a successful FixIt RESPONSE."
+  (-if-let* ((fixits (cdr (assq 'fixits response)))
              (fixits (append fixits nil)))
       (if (and (not ycmd-confirm-fixit)
                (not (ycmd--fixits-have-same-location-p fixits)))

   (if arg "GetDocQuick" "GetDoc")
   'ycmd--handle-get-doc-success))

(defun ycmd--handle-get-doc-success (result)
  "Handle successful GetDoc response for RESULT."
  (let ((documentation (cdr (assq 'detailed_info result))))
    (if (not (s-blank? documentation))
        (with-help-window (get-buffer-create " *ycmd-documentation*")
          (with-current-buffer standard-output

    (with-no-warnings
      (ring-insert find-tag-marker-ring (point-marker)))))

(defun ycmd--handle-goto-success (response)
  "Handle a successfull GoTo RESPONSE."
  (let* ((is-vector (vectorp response))
         (num-items (if is-vector (length response) 1)))
    (ycmd--save-marker)
    (when is-vector
      (setq response (append response nil)))
    (if (eq 1 num-items)
        (ycmd--goto-location response 'find-file)
      (ycmd--view response major-mode))))

(defun ycmd--goto (type)
  "Implementation of GoTo according to the request TYPE."
