Mercurial > hg > xemacs-beta

comparison lisp/w3/custom-check @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents c53a95d3c46d
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
2 EMACS=${1:-emacs} 2 EMACS=${1:-emacs}
3 if [ -z "$HOME" ]; then 3 if [ -z "$HOME" ]; then
4 HOME=`(cd ; pwd)` 4 HOME=`(cd ; pwd)`
5 fi 5 fi
6 6
7 if [ -n "$WIDGETDIR" ]; then 7 if [ -f "${HOME}/.emacs" ]; then
8 echo "WIDGETDIR environment variable set, good good" 8 DOTEMACS="-l ${HOME}/.emacs"
9 exit 0
10 fi 9 fi
11 10
12 WITH=`${EMACS} -batch -l ${HOME}/.emacs -eval '(princ (locate-library "custom"))' | cut -f3- |xargs dirname` 11 WITH=` ${EMACS} -batch ${DOTEMACS} -eval '(princ (file-truename (locate-library "custom")))'`
13 WITHOUT=`${EMACS} -batch -eval '(princ (locate-library "custom"))' | cut -f3- |xargs dirname` 12 WITHOUT=`${EMACS} -batch -q -no-site-file -eval '(princ (file-truename (locate-library "custom")))'`
14 13
15 if [ "${WITH}" = "${WITHOUT}" ]; then 14 if [ "${WITH}" = "${WITHOUT}" ]; then
16 exit 0 15 exit 0
17 else 16 else
18 echo "WARNING -- WARNING -- WARNING" 17 echo "WARNING -- WARNING -- WARNING"