X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9a0115abd18f219f234d6dd460cf7f5ed3c0332f..77c7bcb1157b405bde1227b20ef5f7ce9a90e689:/lisp/epg.el

diff --git a/lisp/epg.el b/lisp/epg.el
index 4da06cd993..6529afb2d3 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -1951,12 +1951,12 @@ The returned file name (created by appending some random characters at the end
 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 orig-modes)
+      (let ((orig-modes (default-file-modes))
+	    tempdir tempfile)
 	(setq prefix (expand-file-name prefix
 				       (if (featurep 'xemacs)
 					   (temp-directory)
 					 temporary-file-directory)))
-	(setq orig-modes (default-file-modes))
 	(unwind-protect
 	    (let (file)
 	      ;; First, create a temporary directory.