From: shuhei <shuhei>
Date: Tue, 20 May 2003 12:04:40 +0000 (+0000)
Subject: Modified comments.
X-Git-Tag: apel-10_5~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=083a78204632a29de6f83f894f9ce055382573ac;p=elisp%2Fapel.git

Modified comments.
---

diff --git a/ChangeLog b/ChangeLog
index c381cd2..4d7226f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-20  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
+
+	* poe.el (make-temp-file) [no make-temp-file, multi-user system]:
+	Modified comments.
+
 2003-05-19  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
 	* poe.el (make-temp-file) [no make-temp-file, multi-user system]:
diff --git a/poe.el b/poe.el
index ecdaa5a..94a192f 100644
--- a/poe.el
+++ b/poe.el
@@ -1709,13 +1709,12 @@ If SUFFIX is non-nil, add that at the end of the file name."
                                ;; `make-directory' returns nil for success,
                                ;; otherwise signals an error.
                                (make-directory dir))
-                           (file-already-exists t))
-                    ;; the dir was somehow created by someone else
-                    ;; between `make-temp-name' and `make-directory',
-                    ;; let's try again.
-                    )
+                           ;; the dir was somehow created by someone else
+                           ;; between `make-temp-name' and `make-directory',
+                           ;; let's try again.
+                           (file-already-exists t)))
                   dir)
-              ;; Create a temporary file.
+              ;; Create a new empty file.
               (let (tempdir tempfile)
                 (unwind-protect
                     (let (file)
@@ -1728,9 +1727,8 @@ If SUFFIX is non-nil, add that at the end of the file name."
                                                    "DIR")))
                                    ;; return nil or signal an error.
                                    (make-directory tempdir))
-                               (file-already-exists t))
-                        ;; let's try again.
-                        )
+                               ;; let's try again.
+                               (file-already-exists t)))
                       ;; Second, create a temporary file in the tempdir.
                       ;; There *is* a race condition between `make-temp-name'
                       ;; and `write-region', but we don't care it since we are
@@ -1745,9 +1743,8 @@ If SUFFIX is non-nil, add that at the end of the file name."
                                        (setq file (concat file suffix)))
                                    ;; return nil or signal an error.
                                    (add-name-to-file tempfile file))
-                               (file-already-exists t))
-                        ;; let's try again.
-                        )
+                               ;; let's try again.
+                               (file-already-exists t)))
                       file)
                   ;; Cleanup the tempfile.
                   (and tempfile