From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Jun 1994 02:43:39 +0000 (+0000)
Subject: (make-auto-save-file-name): Don't use slashes in autosave name for a non-file
X-Git-Tag: emacs-19.34~7958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d483e8c841354c80e09d930d538f23969f1aadd;p=emacs.git

(make-auto-save-file-name): Don't use slashes in autosave name for a non-file
buffer.
---

diff --git a/lisp/files.el b/lisp/files.el
index a01c13465ec..b0aabd9eebf 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1951,7 +1951,14 @@ See also `auto-save-file-name-p'."
 	      (file-name-nondirectory buffer-file-name)
 	      "#")
     ;; For non-file bfr, use bfr name and Emacs pid.
-    (expand-file-name (format "#%s#%s#" (buffer-name) (make-temp-name "")))))
+    ;; Don't allow slashes, though; auto-save would try to interpret it
+    ;; as a pathname, and it might not exist.
+    (let ((buffer-name (buffer-name))
+	  (save-match-data (match-data)))
+      (while (string-match "/" buffer-name)
+	(aset buffer-name (match-beginning 0) ?-))
+      (store-match-data save-match-data)
+      (expand-file-name (format "#%s#%s#" buffer-name (make-temp-name ""))))))
 
 (defun auto-save-file-name-p (filename)
   "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.