(make-auto-save-file-name):

Delete the auto-save file after make-temp-file creates it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff91b5e6248824feaeaee3fb4257e05cfaf5fdd9..2415b2e2f8a357e81f05bab202504d3c24c0a289 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-14  Richard M. Stallman  <rms@gnu.org>
+
+       * files.el (make-auto-save-file-name):
+       Delete the auto-save file after make-temp-file creates it.
+
 2002-05-13  Kim F. Storm  <storm@cua.dk>
 
        * emulation/cua-base.el (cua-enable-cursor-indications): Default off.

diff --git a/lisp/files.el b/lisp/files.el
index 7a33267789a9b2c67378feb91e1baa7c0e57afe0..3cde660a4b4cc2ad481315680b4295025f5b0f28 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3439,7 +3439,8 @@ See also `auto-save-file-name-p'."
     ;; mode tends to create a good number of these.)
 
     (let ((buffer-name (buffer-name))
-         (limit 0))
+         (limit 0)
+         filename)
       ;; Eliminate all slashes and backslashes by
       ;; replacing them with sequences that start with %.
       ;; Quote % also, to keep distinct names distinct.
@@ -3452,27 +3453,34 @@ See also `auto-save-file-name-p'."
          (setq buffer-name (replace-match replacement t t buffer-name))
          (setq limit (1+ (match-end 0)))))
       ;; Generate the file name.
-      (make-temp-file
-       (let ((fname
-             (expand-file-name
-              (format "#%s#" buffer-name)
-              ;; Try a few alternative directories, to get one we can
-              ;; write it.
-              (cond
-               ((file-writable-p default-directory) default-directory)
-               ((file-writable-p "/var/tmp/") "/var/tmp/")
-               ("~/")))))
-        (if (and (memq system-type '(ms-dos windows-nt))
-                 ;; Don't modify remote (ange-ftp) filenames
-                 (not (string-match "^/\\w+@[-A-Za-z0-9._]+:" fname)))
-            ;; The call to convert-standard-filename is in case
-            ;; buffer-name includes characters not allowed by the
-            ;; DOS/Windows filesystems.  make-temp-file writes to the
-            ;; file it creates, so we must fix the file name _before_
-            ;; make-temp-file is called.
-            (convert-standard-filename fname)
-          fname))
-       nil "#"))))
+      (setq file-name
+           (make-temp-file
+            (let ((fname
+                   (expand-file-name
+                    (format "#%s#" buffer-name)
+                    ;; Try a few alternative directories, to get one we can
+                    ;; write it.
+                    (cond
+                     ((file-writable-p default-directory) default-directory)
+                     ((file-writable-p "/var/tmp/") "/var/tmp/")
+                     ("~/")))))
+              (if (and (memq system-type '(ms-dos windows-nt))
+                       ;; Don't modify remote (ange-ftp) filenames
+                       (not (string-match "^/\\w+@[-A-Za-z0-9._]+:" fname)))
+                  ;; The call to convert-standard-filename is in case
+                  ;; buffer-name includes characters not allowed by the
+                  ;; DOS/Windows filesystems.  make-temp-file writes to the
+                  ;; file it creates, so we must fix the file name _before_
+                  ;; make-temp-file is called.
+                  (convert-standard-filename fname)
+                fname))
+            nil "#"))
+      ;; make-temp-file creates the file,
+      ;; but we don't want it to exist until we do an auto-save.
+      (condition-case ()
+         (delete-file file-name)
+       (file-error nil))
+      file-name)))
 
 (defun auto-save-file-name-p (filename)
   "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.