     (with-no-warnings
       (ring-insert find-tag-marker-ring (point-marker)))))
 
-(defun ycmd--handle-goto-success (result)
-  "Handle a successfull GoTo response for RESULT."
-  (let* ((is-vector (vectorp result))
-         (num-items (if is-vector (length result) 1)))
+(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 result (append result nil)))
+      (setq response (append response nil)))
     (if (eq 1 num-items)
-        (ycmd--goto-location result 'find-file)
-      (ycmd--view result major-mode))))
+        (ycmd--goto-location response 'find-file)
+      (ycmd--view response major-mode))))
 
 (defun ycmd--goto (type)
   "Implementation of GoTo according to the request TYPE."

         (point-min) (point-max) nil))
      (buffer-string))))

(defun ycmd--handle-get-parent-or-type-success (result)
  "Handle a successful GetParent or GetType response for RESULT."
  (--when-let (cdr (assq 'message result))
    (message "%s" (pcase it
                    ((or `"Unknown semantic parent"
                         `"Unknown type"

       (ycmd-view-mode)
       buf)))

(defun ycmd--view (response mode)
  "Select `ycmd-view-mode' buffer and display items from RESPONSE.
MODE is a major mode for fontifaction."
  (let ((view-buffer
         (ycmd--with-view-buffer
          (->>
           (--group-by (cdr (assq 'filepath it)) response)
           (mapc (lambda (it) (ycmd--view-insert-location it mode)))))))
    (pop-to-buffer view-buffer)
    (setq next-error-last-buffer view-buffer)))
