find({
    wanted   => \&tagEmacsFiles,
    no_chdir => 1,
}, "C:/Program Files/Emacs");

sub tagEmacsFiles
{
    system("etags -a \"$File::Find::name\"")
        if /\.el$/i && -f $File::Find::name;
}