From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 May 1997 05:49:27 +0000 (+0000)
Subject: Warn about .el files that are not compiled.
X-Git-Tag: emacs-20.1~1907
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/8615e792428131034d4c6f4ed6681ac2ffaf67dd

Warn about .el files that are not compiled.
---

diff --git a/make-dist b/make-dist
index 6b924b1f6b..67aaffe9d4 100755
--- a/make-dist
+++ b/make-dist
@@ -144,8 +144,8 @@ them, and try again." >&2
 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:"
@@ -153,6 +153,21 @@ if [ "${bogosities}" != "" ]; then
 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