                                           collect f))))
 
     (cond ((called-interactively-p 'any)
-           (message "%s %s; %s"
+           (message "%s %s\n%s %s"
                     (propertize "Faces:" 'face 'font-lock-comment-face)
                     (if faces
                         (cl-loop for face in faces


;;;###autoload
(defun doom/what-face (&optional pos)
  "Lists all faces at point. Overlay faces are denoted with an asterix."
  (interactive)
  (unless pos
    (setq pos (point)))

                                 else
                                   concat (concat (propertize (symbol-name face) 'face face) " "))
                      "n/a ")
                    (propertize "Overlays:" 'face 'font-lock-comment-face)
                    (if overlays
                        (cl-loop for ov in overlays
                                 concat (concat (propertize (symbol-name ov) 'face ov) " "))
