From xemacs-m  Sun Jul 27 18:42:51 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA25196
	for <xemacs-beta@xemacs.org>; Sun, 27 Jul 1997 18:42:50 -0500 (CDT)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id TAA22630; Sun, 27 Jul 1997 19:47:04 -0400 (EDT)
Received: from tomorrow.eng.ecf.teradyne.com. (tomorrow.ecf.teradyne.com [131.101.192.7]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id BAA05985; Mon, 28 Jul 1997 01:42:16 +0200 (MET DST)
Received: by tomorrow.eng.ecf.teradyne.com. (SMI-8.6/SMI-SVR4)
	id BAA07336; Mon, 28 Jul 1997 01:42:12 +0200
To: Martin Buchholz <mrb@Eng.Sun.COM>
Cc: xemacs-beta@xemacs.org
Subject: Re: How to determine build-dir within running XEmacs?
References: <rxszprrme68.fsf@ecf.teradyne.com> <199707131143.EAA02550@xemacs.eng.sun.com> <rxsyb6srtji.fsf@tomorrow.ecf.teradyne.com> <rxsvi1wm6ez.fsf@ecf.teradyne.com>
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jul_28_01:42:12_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 28 Jul 1997 01:42:12 +0200
In-Reply-To: Adrian Aichner's message of "28 Jul 1997 01:17:24 +0200"
Message-ID: <rxsbu3o2hbf.fsf@tomorrow.ecf.teradyne.com>
Lines: 38
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta15) - "Berlin"

--Multipart_Mon_Jul_28_01:42:12_1997-1
Content-Type: text/plain; charset=US-ASCII


... and the other foot:

I forgot the require config. Here is a slightly different version:


--Multipart_Mon_Jul_28_01:42:12_1997-1
Content-Type: application/octet-stream; type=emacs-lisp
Content-Disposition: attachment; filename="c-v-h-t.el"
Content-Transfer-Encoding: 7bit


(require 'config)

(find-file config-value-file)

(maphash (lambda (k v) (insert (format "%s = %s\n" k v))) (config-value-hash-table))

(gethash 'srcdir (config-value-hash-table))

--Multipart_Mon_Jul_28_01:42:12_1997-1
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable


-- =

                            Adrian Aichner
                        Applications Engineer
  Teradyne GmbH
  Semiconductor Test Group    Telephone +49/89/41861(0)-208
  Dingolfinger Stra=DFe 2       Fax       +49/89/41861-217
  D-81673 M=DCNCHEN             E-mail    aichner@ecf.teradyne.com

--Multipart_Mon_Jul_28_01:42:12_1997-1--

