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

diffs, and comint buffers. The bottom right window is intended to show
completion options and source control overview buffers (eg, vc-dir or magit
status).")
    (group-defs (help "^\\*Apropos\\*$"
                      "^\\*Backtrace\\*$"
                      "^\\*Colors\\*$"
                      "^\\*Compile-Log\\*$"
                      "^\\*Customize "
                      "^\\*ediff.*\\*$"
                      "^\\*e?shell"
                      "^\\*Help\\*$"
                      "^\\*h?grep\\*$"
                      "^\\*info\\*$"

     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
