Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/w3/custom-check	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/w3/custom-check	Mon Aug 13 09:23:06 2007 +0200
@@ -4,13 +4,12 @@
     HOME=`(cd ; pwd)`
 fi
 
-if [ -n "$WIDGETDIR" ]; then
-    echo "WIDGETDIR environment variable set, good good" 
-    exit 0
+if [ -f "${HOME}/.emacs" ]; then
+    DOTEMACS="-l ${HOME}/.emacs"
 fi
 
-WITH=`${EMACS} -batch -l ${HOME}/.emacs -eval '(princ (locate-library "custom"))' | cut -f3- |xargs dirname`
-WITHOUT=`${EMACS} -batch -eval '(princ (locate-library "custom"))' | cut -f3- |xargs dirname`
+WITH=`   ${EMACS} -batch ${DOTEMACS}      -eval '(princ (file-truename (locate-library "custom")))'`
+WITHOUT=`${EMACS} -batch -q -no-site-file -eval '(princ (file-truename (locate-library "custom")))'`
 
 if [ "${WITH}" = "${WITHOUT}" ]; then
     exit 0