From a8abaf83a47eaf0fd0196516629056d2bd861ad5 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 1 Sep 1996 00:20:33 +0000
Subject: [PATCH] (make-auto-save-file-name): Try a few directories to get one
 we can write in.

---
 lisp/files.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/files.el b/lisp/files.el
index 84dd9391846..35c430c1942 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2471,8 +2471,14 @@ See also `auto-save-file-name-p'."
 			  "\\\\")
 			(substring buffer-name (match-end 0))))
 	(setq limit (1+ (match-end 0))))
-
-      (expand-file-name (format "#%s#%s#" buffer-name (make-temp-name ""))))))
+      ;; Generate the file name.
+      (expand-file-name
+       (format "#%s#%s#" buffer-name (make-temp-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/")
+	("~/"))))))
 
 (defun auto-save-file-name-p (filename)
   "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.
-- 
2.11.4.GIT