Mercurial > hg > xemacs-beta

comparison lisp/w3/custom-check @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents 8d2a9b52c682
children
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
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 WITH=` ${EMACS} -batch -l ${HOME}/.emacs -eval '(princ (file-truename (locate-library "custom")))'` 7 if [ -f "${HOME}/.emacs" ]; then
8 WITHOUT=`${EMACS} -batch -q -no-site-file -l docomp.el -eval '(princ (file-truename (locate-library "custom")))'` 8 DOTEMACS="-l ${HOME}/.emacs"
9 fi
10
11 WITH=` ${EMACS} -batch ${DOTEMACS} -eval '(princ (file-truename (locate-library "custom")))'`
12 WITHOUT=`${EMACS} -batch -q -no-site-file -eval '(princ (file-truename (locate-library "custom")))'`
9 13
10 if [ "${WITH}" = "${WITHOUT}" ]; then 14 if [ "${WITH}" = "${WITHOUT}" ]; then
11 exit 0 15 exit 0
12 else 16 else
13 echo "WARNING -- WARNING -- WARNING" 17 echo "WARNING -- WARNING -- WARNING"