                       "^\\*magit-\\(diff\\|commit\\)"
                       "^\\*Occur\\*$"
                       "^\\*Pp Eval Output\\*$"
+                      "^\\*shell"
                       "^\\*trace-output\\*$"
                       "^\\*vc\\(-diff\\)?\\*$"
                       "^\\*\\(Wo\\)?Man"


(defun jail-windows--message (type &rest args)
  "[Internal] Debug messaging."
  (when (let ((-compare-fn #'eq)) (-contains? jail-windows-debug-messages type))
    (apply #'message args)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

     any other relevant information. This cons cell is not used by the code.

 (group-defs (group1 (\"...\"
                      (lambda (buffer) ...)
                      t)))
     An alist of group names to lists of group matchers. Group matchers can be
     one of several types: strings are treated as regexps that will test
