File texi2utf8 of Package xemacs-packages

#!/bin/sh
for i in $(find packages -name "*.texi*")
do 
xemacs -q -batch  $i \
       -eval '(set-language-environment "Japanese")' \
       -eval '(replace-regexp "\\(-\\*-.*coding:\\s-*\\)\\(\\S-+\\)\\(\\s-*-\\*-\\)" "\\1utf-8\\3")' \
       -eval '(set-buffer-file-coding-system (quote utf-8))' \
       -eval '(set-buffer-modified-p t (current-buffer))' \
       -eval '(save-buffer 0)'
done