باید این کد رو هم اضافه کنیم :
توی فایل گذاشتم نمونشو.
کد: [انتخاب]
\makeatletter
\renewcommand\lstlistingname{\if@RTLmain برنامه\else Listings\fi}
\long\def\@makecaption#1#2{%
\vskip\abovecaptionskip
\sbox\@tempboxa{#1: #2}%
\ifdim \wd\@tempboxa >\hsize
\if@RTLmain\beginR\fi#1: #2\if@RTLmain\endR\fi\par
\else
\global \@minipagefalse
\hb@xt@\hsize{\if@RTLmain\beginR\fi\hfil\box\@tempboxa\hfil\if@RTLmain\endR\fi}%
\fi
\vskip\belowcaptionskip}%
\makeatother
توی فایل گذاشتم نمونشو.