# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1204044722 0
# Node ID c67d2b72f70a19845509df6f114e49610ca52d1d
# Parent  ac7edea19aab0cf460d7ff5374d501d21be70b69
(make-auto-save-file-name): Encode more characters in
non-file buffer names. Use url-encoding.

diff -r ac7edea19aab -r c67d2b72f70a lisp/files.el
--- a/lisp/files.el	Tue Feb 26 16:34:36 2008 +0000
+++ b/lisp/files.el	Tue Feb 26 16:52:02 2008 +0000
@@ -4561,15 +4561,18 @@
     (let ((buffer-name (buffer-name))
 	  (limit 0)
 	  file-name)
-      ;; 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)
+      ;; Restrict the characters used in the file name to those which
+      ;; are known to be safe on all filesystems, url-encoding the
+      ;; rest.
+      ;; We do this on all platforms, because even if we are not
+      ;; running on DOS/Windows, the current directory may be on a
+      ;; mounted VFAT filesystem, such as a USB memory stick.
+      (while (string-match "[^A-Za-z0-9-_.~#+]" buffer-name limit)
 	(let* ((character (aref buffer-name (match-beginning 0)))
 	       (replacement
-		(cond ((eq character ?%) "%%")
-		      ((eq character ?/) "%+")
-		      ((eq character ?\\) "%-"))))
+                ;; For multibyte characters, this will produce more than
+                ;; 2 hex digits, so is not true URL encoding.
+                (format "%%%02X" character)))
 	  (setq buffer-name (replace-match replacement t t buffer-name))
 	  (setq limit (1+ (match-end 0)))))
       ;; Generate the file name.