     (define-key map (kbd "C-c Y d") 'ycmd-goto-declaration)
     (define-key map (kbd "C-c Y i") 'ycmd-goto-implementation)
     (define-key map (kbd "C-c Y I") 'ycmd-goto-imprecise)
+    (define-key map (kbd "C-c Y s") 'ycmd-toggle-force-semantic-completion)
     map)
   "Keymap for `ycmd-mode'.")
 

        (pop-to-buffer "*ycmd-completions*")
        (erase-buffer)
        (insert (pp-to-string completions))))))

(defun ycmd-get-completions ()
  "Get completions for the current position from the ycmd server.

\\{ycmd-mode-map}"
  :init-value nil
  :keymap ycmd-mode-map
  :lighter (" ycmd" (:eval (when ycmd-force-semantic-completion "/s")))
  :group 'ycmd
  :require 'ycmd
  :after-hook (ycmd--conditional-parse 'mode-enabled)
