#! /bin/csh -f
#
#  This script may be use within SEDIT to replace spaces with tabulations
#
#  Exemple of use :     button UNEX  save.shell $xhome/unex $name.quit
#                       (. is the "Control-Line-Feed" separator)
#
 
set dir = $1:h       # directory
 
mv $1 $dir/sedit.unexpand.@file
 
unexpand -a $dir/sedit.unexpand.@file >! $1
 
rm $dir/sedit.unexpand.@file
