view move-if-change @ 5488:1e544fd7be12

Import looking-back from GNU Emacs. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-04-30 Didier Verna <didier@xemacs.org> * subr.el (looking-back): New function.
author Didier Verna <didier@lrde.epita.fr>
date Sat, 30 Apr 2011 17:38:35 +0200
parents 376386a54a3c
children
line wrap: on
line source

#!/bin/sh
if
test -r $2
then
if
cmp $1 $2 > /dev/null
then
echo $2 is unchanged
rm -f $1
else
mv -f $1 $2
fi
else
mv -f $1 $2
fi