(vt100-wide-mode): Add missing arg in set-frame-width.

[gnu-emacs] / make-dist

diff --git a/make-dist b/make-dist
index 09211d6239b7f01892495d4821d3992c0f85e0f3..e671cc0964c7972c2a2442c55b3e755f41fbe1b4 100755 (executable)
--- a/make-dist
+++ b/make-dist
@@ -87,6 +87,16 @@ them, and try again." >&2
   exit 1
 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
+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
+
 echo "Creating staging directory: \`${tempparent}'"
 mkdir ${tempparent}
 emacsname="emacs-${version}${new_extension}"
@@ -124,7 +134,7 @@ echo "Updating version number in README."
 echo "Creating subdirectories."
 # I think we're not going to distribute anything in external-lisp, so
 # I've removed it from this list.
-for subdir in lisp lisp/term local-lisp \
+for subdir in lisp lisp/term site-lisp \
              src src/m src/s src/bitmaps lib-src oldXMenu \
              etc lock cpp info man shortnames vms; do
   mkdir ${tempdir}/${subdir}
@@ -281,7 +291,8 @@ done
 #### actually we just re-copy anything with a link count greater
 #### than two.
 echo "Breaking intra-tree links."
-find ${tempdir} ! -type d -links +2 -exec cp {} $$ \; -exec mv $$ {} \;
+find ${tempdir} ! -type d -links +2 \
+  -exec cp {} $$ \; -exec rm -f {} \; -exec mv $$ {} \;
 
 if [ "${newer}" ]; then
   echo "Removing files older than $newer."