> I've tested the patch and the implementation works like a charm.
 >
 > However, I would prefer this line to be added.
 >
 >    :type '(choice (const :tag "All major modes" t)
 > +                (const :tag "Bury, don't kill" nil)
 > 		         (repeat (symbol :tag "Major mode")))
 >    :version "31.1"
 >    :group 'windows)

Then maybe the attached would fit you better.  The text "Bury, don't
kill" is subtly misleading here because 'quit-window' will also bury the
buffer when its major mode is not a member of a list of modes specified
by this option.

martin