-### Check for .elc files with no corresponding .el file.
-ls -1 lisp/*.el | sed 's/\.el$/.elc/' > /tmp/el
-ls -1 lisp/*.elc > /tmp/elc
-bogosities="`comm -13 /tmp/el /tmp/elc`"
-if [ "${bogosities}" != "" ]; then
- echo "The following .elc files have no corresponding .el files:"
- echo "${bogosities}"
-fi
-rm -f /tmp/el /tmp/elc
+### Find where to run Emacs.
+if [ $check = yes ];
+then
+ ### Check for .elc files with no corresponding .el file.
+ ls -1 lisp/[a-zA-Z]*.el lisp/[a-z]*/[a-zA-Z0-9]*.el \
+ leim/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
+ ls -1 lisp/[a-zA-Z]*.elc lisp/[a-z]*/[a-zA-Z0-9]*.elc \
+ leim/[a-z]*/[a-z]*.elc > /tmp/elc
+ bogosities="`comm -13 /tmp/el /tmp/elc`"
+ if [ "${bogosities}" != "" ]; then
+ echo "The following .elc files have no corresponding .el files:"
+ echo "${bogosities}"
+ fi
+ rm -f /tmp/el /tmp/elc
+
+ ### Check for .el files with no corresponding .elc file.
+ ls -1 lisp/[a-zA-Z]*.el lisp/[a-z]*/[a-zA-Z0-9]*.el \
+ leim/[a-z]*/[a-z]*.el > /tmp/el
+ ls -1 lisp/[a-zA-Z]*.elc lisp/[a-z]*/[a-zA-Z0-9]*.elc \
+ leim/[a-z]*/[a-z]*.elc | sed 's/\.elc$/.el/' > /tmp/elc
+ losers="`comm -23 /tmp/el /tmp/elc`"
+ bogosities=
+ for file in $losers; do
+ if ! grep -q "no-byte-compile: t" $file; then
+ case $file in
+ site-init.el | site-load.el | site-start.el | default.el)
+ ;;
+ *)
+ bogosities="$file $bogosities"
+ ;;
+ esac
+ fi
+ done
+ if [ x"${bogosities}" != x"" ]; then
+ echo "The following .el files have no corresponding .elc files:"
+ echo "${bogosities}"
+ fi
+ rm -f /tmp/el /tmp/elc