   (modify-frame-parameters nil (list (cons 'jail-windows-mode state))))
 
 (defvar jail-windows--modeline-base " JW"
-  "[Internal] Base of modeline text.")
+  "[Internal] Base of modeline text for `jail-windows-mode'.")
 (defvar jail-windows-mode nil
   "Indicator variable for variable `minor-mode-alist'.")
 

  :type '(repeat function)
  :group 'jail-windows)
(defcustom jail-windows-debug-messages '(on-off)
  "TODO"
  :type '(set (const :tag "on-off TODO" on-off)
              (const :tag "layout TODO" layout)
              (const :tag "selection TODO" selection)
              (const :tag "selection verbose TODO" selection-verbose))
  :group 'jail-windows)

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

             'jail-windows-mode-hook
             (unless (jail-windows/active-p)
               'jail-windows-mode-out-hook))
  (jail-windows--update-modeline)
  (jail-windows--message 'on-off
                         "jail-windows-mode %sabled"
                         (if (jail-windows/active-p)
