From: ueno <ueno>
Date: Sun, 30 Apr 2006 06:12:19 +0000 (+0000)
Subject: XEmacs doesn't have temporary-file-directory.
X-Git-Tag: epg-0_0_2~66
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1acc67f107196d1ad2111cdfd88f0b3089c86d57;p=elisp%2Fepg.git

XEmacs doesn't have temporary-file-directory.
---

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.