                             (fstar-issue-col-to issue)))
          (overlay (make-overlay from (max to (1+ from)) (current-buffer) t nil)))
     (overlay-put overlay 'fstar-subp-issue t)
-    (overlay-put overlay 'face 'fstar-subp-overlay-issue-face)
-    (overlay-put overlay 'help-echo (fstar-issue-message issue))
+    (overlay-put overlay 'face (fstar-subp-issue-face issue))
+    (overlay-put overlay 'help-echo #'fstar-subp--help-echo)
+    (overlay-put overlay 'fstar-subp-message (fstar-issue-message issue))
     (overlay-put overlay 'modification-hooks '(fstar-subp-remove-issue-overlay))
     (when (fboundp 'pulse-momentary-highlight-region)
       (pulse-momentary-highlight-region from to))))
 
 (defun fstar-subp-highlight-issues (issues)
-  "Highlight ISSUES whose name match that of the current buffer."
-  (fstar-assert issues)
+  "Highlight ISSUES."
   (mapcar #'fstar-subp-highlight-issue issues))
 
 (defun fstar-subp-jump-to-issue (issue)

      (delete-region resp-beg resp-real-end)
      (when (fstar-subp-live-p proc)
        (fstar-subp-with-source-buffer proc
          (fstar-subp-process-response status response))))))

(defun fstar-subp-clear-issues ()

  (goto-char (fstar-issue-offset (fstar-issue-line-from issue)
                            (fstar-issue-col-from issue))))

(defun fstar-subp--local-issue-p (issue)
  "Check if ISSUE came from the current buffer."
  (string= (expand-file-name buffer-file-name)
           (expand-file-name (fstar-issue-filename issue))))

(defun fstar-subp-parse-and-highlight-issues (success response overlay)
  "Parse issues (relative to OVERLAY) in RESPONSE and display them.
Complain if SUCCESS is nil and RESPONSE doesn't contain issues."
  (let* ((raw-issues (fstar-subp-parse-issues response))
         (issues (mapcar (lambda (i) (fstar-subp-cleanup-issue i overlay)) raw-issues))
         (partitioned (-group-by #'fstar-subp--local-issue-p issues))
         (local-issues (cdr (assq t partitioned)))
         (other-issues (cdr (assq nil partitioned))))
    (unless (or success issues)
      (warn "No issues found in response despite prover failure: [%s]" response))
    (when other-issues
      (message "F* reported issues in other files: [%S]" other-issues))
    (fstar-subp-log "Highlighting issues: %s" issues)
    (when local-issues
      (fstar-subp-jump-to-issue (car local-issues))
      (fstar-subp-highlight-issues local-issues)
      (display-local-help))))

(defun fstar-subp-status (overlay)
  "Get status of OVERLAY."
