.key dirname
.bra {
.ket }
set olddir `cd`
cd {dirname}
set linkdir NONE
if exists rcs_link
 set linkdir `type rcs_link`
endif
if exists RCS
 set linkdir RCS
endif
if NOT $linkdir EQ NONE
 cd $linkdir
 list >t:rlfile p #?,v lformat="rlog -L -R %n"
 execute t:rlfile
 delete t:rlfile quiet
endif
cd $olddir
