From 1acc67f107196d1ad2111cdfd88f0b3089c86d57 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 30 Apr 2006 06:12:19 +0000
Subject: [PATCH] XEmacs doesn't have temporary-file-directory.

---
 epg.el |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/epg.el b/epg.el
index 16005c3..c25de81 100644
--- a/epg.el
+++ b/epg.el
@@ -1195,7 +1195,10 @@ of PREFIX, and expanding against `temporary-file-directory' if necessary),
 is guaranteed to point to a newly created empty file.
 You can then use `write-region' to write new data into the file."
     (let (tempdir tempfile)
-      (setq prefix (expand-file-name prefix temporary-file-directory))
+      (setq prefix (expand-file-name prefix
+				     (if (featurep 'xemacs)
+					 (temp-directory)
+				       temporary-file-directory)))
       (unwind-protect
 	  (let (file)
 	    ;; First, create a temporary directory.
-- 
1.7.10.4