(check for .elc files): Avoid bash-specific syntax.
(check for overflow 14-char limit): Simplify.
This commit is contained in:
@@ -144,8 +144,10 @@ them, and try again." >&2
|
||||
fi
|
||||
|
||||
### Check for .elc files with no corresponding .el file.
|
||||
ls -1 {lisp,leim}/[a-z]*.el {lisp,leim}/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
|
||||
ls -1 {lisp,leim}/[a-z]*.elc {lisp,leim}/[a-z]*/[a-z]*.elc > /tmp/elc
|
||||
ls -1 lisp/[a-z]*.el lisp/[a-z]*/[a-z]*.el \
|
||||
leim/[a-z]*.el leim/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
|
||||
ls -1 lisp/[a-z]*.elc lisp/[a-z]*/[a-z]*.elc \
|
||||
leim/[a-z]*.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:"
|
||||
@@ -181,8 +183,7 @@ 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
|
||||
find leim -name '[a-zA-Z0-9]??????????*.el' -print`
|
||||
long=`find lisp leim -name '[a-zA-Z0-9]??????????*.el' -print`
|
||||
if [ "$long" != "" ]; then
|
||||
echo "The following .el file names are too long:"
|
||||
echo "$long"
|
||||
|
||||
Reference in New Issue
Block a user