Mercurial > hg > xemacs-beta
comparison modules/aclocal.m4 @ 265:8efd647ea9ca r20-5b31
Import from CVS: tag r20-5b31
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:25:37 +0200 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
264:682d2a9d41a5 | 265:8efd647ea9ca |
---|---|
1 AC_DEFUN(XE_EMACS, [ | |
2 dnl | |
3 dnl Apparently, if you run a shell window in Emacs, it sets the EMACS | |
4 dnl environment variable to 't'. Lets undo the damage. | |
5 dnl | |
6 if test "${EMACS}" = "t"; then | |
7 EMACS="" | |
8 fi | |
9 | |
10 AC_ARG_WITH(xemacs, --with-xemacs Use XEmacs to build, [ if test "${withval}" = "yes"; then EMACS=xemacs; else EMACS=${withval}; fi ]) | |
11 AC_ARG_WITH(emacs, --with-emacs Use Emacs to build, [ if test "${withval}" = "yes"; then EMACS=emacs; else EMACS=${withval}; fi ]) | |
12 AC_CHECK_PROG(EMACS, xemacs, xemacs, emacs) | |
13 AC_SUBST(EMACS) | |
14 ]) | |
15 | |
16 AC_DEFUN(XE_CONFIG_VALUE, [ | |
17 OUTPUT=./conftest-$$ | |
18 rm -f ${OUTPUT} | |
19 ${EMACS} -batch -eval " | |
20 (let ((hash (config-value-hash-table)) | |
21 (desired (split-string \"$1\"))) | |
22 (mapcar | |
23 (lambda (key) | |
24 (message \"Checking for %S\" (intern key)) | |
25 (if (config-value (intern key)) | |
26 (progn | |
27 (write-region (format \"%s=\\\"%s\\\"\n\" key (config-value (intern key))) | |
28 nil \"${OUTPUT}\" t)))) | |
29 desired)) | |
30 " 2> /dev/null > /dev/null | |
31 test -f ${OUTPUT} && . ${OUTPUT} | |
32 rm -f ${OUTPUT} | |
33 for ac_func in $1; do | |
34 : | |
35 done | |
36 ]) |