      any other relevant information. This cons cell is not used by the code.
 
  (group-defs (group1 (\"...\"
-                      (lambda () ...)
+                      (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


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

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

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