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

      (car os))))

(defun intero-highlight-uses-mode-highlight (start end current)
  "Make a highlight overlay at the given span."
  (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))
