#! /usr/local/bin/perl
chdir;
open(INPUT, ".twmrc");
open(OUTPUT, ">.twmrc.new");
while (<INPUT>) {
    if (/emacs/) {
	$old = $_;
	s/\-wn/\-name/;
	s/\-in emacs //;
	if ($old ne $_) {
	    $mod = 1;
	}
    }
    print OUTPUT $_;
}
close (INPUT);
close (OUTPUT);
if ($mod) {
    unlink(".twmrc.old");
    rename(".twmrc",".twmrc.old");
    rename(".twmrc.new", ".twmrc");
}
else {
    unlink(".twmrc.new");
}