 file that has been instrumented with Edebug."
   (cl-check-type buffer buffer-live)
   (let ((file-name (elisp/ert/sanitize--string
-                    (file-relative-name (buffer-file-name buffer))))
+                    (elisp/ert/file--display-name (buffer-file-name buffer))))
         (functions ())
         (functions-hit 0)
         (lines (make-hash-table :test #'eql))

  ;; newlines.
  (let ((case-fold-search nil))
    (replace-regexp-in-string (rx (not (any alnum blank punct))) "?" string)))

;; This polyfill needs to be defined before using it as type to prevent errors
;; during compilation.

          (cl-destructuring-bind (buffer . point) definition
            (with-current-buffer buffer
              (message "%s:%d: %s"
                       (elisp/ert/file--display-name buffer-file-name directory)
                       (line-number-at-pos point :absolute)
                       message)
              ;; If ‘find-function-search-for-symbol’ has created a new buffer,
