             (rg-mode      . search)
             (vterm-mode   . terminal)))
 
+  (with-eval-after-load 'window-purpose-x
+    (add-to-list 'purpose-x-popwin-buffer-names "*Messages*")
+    (add-to-list 'purpose-x-popwin-buffer-name-regexps
+                 (concat (regexp-quote whitespace-report-buffer-name) "\\(<[[:digit:]]+>\\)*"))
+    (add-to-list 'purpose-x-popwin-buffer-name-regexps
+                 (concat (regexp-quote whitespace-help-buffer-name) "\\(<[[:digit:]]+>\\)*")))
+
   (purpose-x-code1-setup)
   (purpose-x-popwin-setup)
   (purpose-x-kill-setup)

                           (remove-unrestorable-file-buffers tail)
                         tail))))))

    (defun frameset--restore-frame-advice (old-func &rest args)
      (let ((window-state (cadr args)))
        (apply old-func

        (x-focus-frame (selected-frame)))
      (set-window-hscroll window 0))
    (advice-add 'edebug-pop-to-buffer :override 'edebug-pop-to-buffer-advice))

  (with-eval-after-load 'wid-browse
    (define-key widget-browse-mode-map [remap bury-buffer] 'quit-window))

  (with-eval-after-load 'frameset
    (defun remove-unrestorable-file-buffers (window-tree)
