\lstnewenvironment 不起作用

Question

在下面的代码中，我尝试通过 来创建我的lstlisting环境（名为drenv）\lstnewenvironment。它无法通过编译。我想知道为什么以及如何让它工作。

代码：

\documentclass{article}
\usepackage{listings}
\usepackage{xparse}
%------------------------------
\newsavebox{\mybox}
\NewDocumentEnvironment{dr}{O{}m}
{
  \begin{lrbox}{\mybox}
  \begin{minipage}{#2}
}
{
  \end{minipage}
  \end{lrbox}
  \colorbox{#1}{\usebox\mybox}
}
\lstnewenvironment{drenv}[3][]
 {
   \dr[#2]{#3}
   \lstset{#1}
 }
 {
   \enddr
 }
%------------------------------
\begin{document}
\begin{drenv}{red}{5in}
\rule{2in}{5pt}
\end{drenv}
\end{document}