invisible text in compilation-goto-locus

[Josef Urban]

Hi,

The function compilation-goto-locus used in compile.el shows
invisibile text only if it was created by the hideshow mode:

  ;; If hideshow got in the way of
  ;; seeing the right place, open permanently.
  (mapcar (function (lambda (ov)
                      (when (eq 'hs (overlay-get ov 'invisible))
                        (delete-overlay ov)
                        (goto-char (cdr next-error)))))
          (overlays-at (point)))

Should not there be a more general property (like isearch-open-invisible)
or even a variable (like buffer-invisibility-spec) to allow customization
of its behavior?

Thanks,
Josef Urban