view move-if-change @ 98763:436d98f3ba22

(Writing Emacs Primitives): The interactive spec of a primitive can be a Lisp form.

#!/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