fi
### 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
+ls -1 lisp/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
+ls -1 lisp/[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:"
fi
rm -f /tmp/el /tmp/elc
+### Check for .el files with no corresponding .elc file.
+(cd lisp; ls -1 [a-z]*.el) > /tmp/el
+(cd lisp; ls -1 [a-z]*.elc) | sed 's/\.elc$/.el/' > /tmp/elc
+losers="`comm -23 /tmp/el /tmp/elc`"
+for file in $losers; do
+ if ! grep -q "dontcompilefiles:.* $file\($\| \)" lisp/Makefile; then
+ bogosities="$file $bogosities"
+ fi
+done
+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 that would overflow the 14-char limit if compiled.
long=`find lisp -name '[a-zA-Z0-9]??????????*.el' -print`
if [ "$long" != "" ]; then