From f07188c0164a9433e5c62230538d3d02851345d9 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 17 Sep 1998 16:19:08 +0000
Subject: [PATCH] (PACKAGEDIR): New variable. (EMH_PREFIX): Change to "emh" if
 it is installed as a XEmacs package.

---
 EMH-CFG |   21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/EMH-CFG b/EMH-CFG
index e383535..e8671f2 100644
--- a/EMH-CFG
+++ b/EMH-CFG
@@ -1,5 +1,5 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
+
 ;; EMH-CFG: installation setting about EMH.
 
 ;;; Code:
@@ -35,8 +35,25 @@
 (defvar PREFIX install-prefix)
 ;;(setq PREFIX "~/")
 
+(defvar PACKAGEDIR
+  (if (boundp 'early-packages)
+      (let ((dirs (append (if early-package-load-path
+			      early-packages)
+			  (if late-package-load-path
+			      late-packages)
+			  (if last-package-load-path
+			      last-packages)))
+	    dir)
+	(while (not (file-exists-p
+		     (setq dir (car dirs))))
+	  (setq dirs (cdr dirs)))
+	dir)))
+
 ;; Please specify prefix for ``emh'' [optional]
-(setq EMH_PREFIX "semi")
+(setq EMH_PREFIX
+      (if PACKAGEDIR
+	  "emh"
+	"semi"))
 
 
 
-- 
1.7.10.4