Mercurial > hg > xemacs-beta

comparison lib-src/update-custom.sh @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 4f79e16b1112
children 1f50e6fe4f3f
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
43 test -z "$EMACS" && EMACS="./src/xemacs" 43 test -z "$EMACS" && EMACS="./src/xemacs"
44 echo " (using $EMACS)" 44 echo " (using $EMACS)"
45 45
46 export EMACS 46 export EMACS
47 47
48 EMACS_DIR=`cd \`dirname $EMACS\` && pwd`; 48 REAL=`cd \`dirname $EMACS\` ; pwd | sed 's|^/tmp_mnt||'`/`basename $EMACS`
49 # Account for various system automounter configurations
50 if test -d "/net"; then
51 if test -d "/tmp_mnt/net"; then tdir="/tmp_mnt/net"; else tdir="/tmp_mnt"; fi
52 EMACS_DIR=`echo "$EMACS_DIR" | \
53 sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
54 fi
55 REAL="$EMACS_DIR/`basename $EMACS`"
56 49
57 echo "Rebuilding custom-loads with $REAL..." 50 echo "Rebuilding custom-loads with $REAL..."
58 51
59 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then 52 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then
60 echon() 53 echon()
61 { 54 {
62 /bin/echo $* '\c' 55 /bin/echo $* '\c'
63 } 56 }
64 else 57 else
65 echon() 58 echon()
66 { 59 {
67 echo -n $* 60 echo -n $*
68 } 61 }
69 fi 62 fi
70 63
71 # Compute patterns to ignore when searching for files 64 # Compute patterns to ignore when searching for files
72 ignore_dirs="" 65 # These directories don't have customizations, or are partially broken.
66 # If some of the packages listed here are customized, don't forget to
67 # remove the directory!
68 ignore_dirs="cl egg eos its language locale sunpro term \
69 tooltalk iso electric \
70 hm--html-menus gnats pcl-cvs vm"
73 71
74 # Only use Mule XEmacs to build Mule-specific autoloads & custom-loads. 72 # Only use Mule XEmacs to build Mule-specific autoloads & custom-loads.
75 echon "Checking for Mule support..." 73 echon "Checking for Mule support..."
76 lisp_prog='(princ (featurep (quote mule)))' 74 lisp_prog='(princ (featurep (quote mule)))'
77 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`" 75 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`"
78 if test "$mule_p" = nil ; then 76 if test "$mule_p" = nil ; then
79 echo No 77 echo No
80 ignore_dirs="$ignore_dirs mule" 78 ignore_dirs="$ignore_dirs mule leim skk"
81 else 79 else
82 echo Yes 80 echo Yes
83 fi 81 fi
84 82
85 echon "Checking directories..." 83 echon "Checking directories..."