(make-auto-save-file-name): Replace both / and \

with sequences starting with %.

1 files changed, 11 insertions, 14 deletions

diff --git a/lisp/files.el b/lisp/files.el
index eabb70377cb..6d36275e365 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2578,20 +2578,17 @@ See also `auto-save-file-name-p'."
 
     (let ((buffer-name (buffer-name))
           (limit 0))
-      ;; Use technique from Sebastian Kremer's auto-save
-      ;; package to turn slashes into \\!.  This ensures that
-      ;; the auto-save buffer name is unique.
-
-      (while (string-match "[/\\]" buffer-name limit)
-        (setq buffer-name (concat (substring buffer-name 0 (match-beginning 0))
-                        (if (string= (substring buffer-name
-                                                (match-beginning 0)
-                                                (match-end 0))
-                                     "/")
-                            "\\!"
-                          "\\\\")
-                        (substring buffer-name (match-end 0))))
-        (setq limit (1+ (match-end 0))))
+      ;; Eliminate all slashes and backslashes by
+      ;; replacing them with sequences that start with %.
+      ;; Quote % also, to keep distinct names distinct.
+      (while (string-match "[/\\%]" buffer-name limit)
+        (let* ((character (aref buffer-name (match-beginning 0)))
+               (replacement
+                (cond ((eq character ?%) "%%")
+                      ((eq character ?/) "%+")
+                      ((eq character ?\\) "%-"))))
+          (setq buffer-name (replace-match replacement t t buffer-name))
+          (setq limit (1+ (match-end 0)))))
       ;; Generate the file name.
       (expand-file-name
        (format "#%s#%s#" buffer-name (make-temp-name ""))