       (car os))))
 
 (defun intero-highlight-uses-mode-highlight (start end current)
-  "Make a highlight overlay at the given span."
+  "Make a highlight overlay at the span from START to END.
+If CURRENT, highlight the span uniquely."
   (let ((o (make-overlay start end)))
     (overlay-put o 'priority 999)
     (overlay-put o 'face

  (remove-overlays (point-min) (point-max) 'intero-highlight-uses-mode-highlight t))

(defun intero-highlight-uses-mode-replace ()
  "Replace all highlighted instances in the buffer with something
  else."
  (interactive)
  (save-excursion
    (goto-char (point-min))

    (buffer-string)))

(defun intero-uses-at ()
  "Highlight where the identifier at point is used."
  (interactive)
  (let* ((thing (intero-thing-at-point))
         (uses (split-string (apply #'intero-get-uses-at thing)
