(make-auto-save-file-name): Remove replacement function.

1 files changed, 0 insertions, 15 deletions

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 3c643533cc1..6a8037ceac0 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -227,21 +227,6 @@ You should set this to t when using a non-system shell.\n\n"))))
 ;	     (setq source-directory (file-name-as-directory
 ;				     (expand-file-name ".." exec-directory)))))
 
-;; Avoid creating auto-save file names containing invalid characters.
-(fset 'original-make-auto-save-file-name
-      (symbol-function 'make-auto-save-file-name))
-
-(defun make-auto-save-file-name ()
-  "Return file name to use for auto-saves of current buffer.
-Does not consider `auto-save-visited-file-name' as that variable is checked
-before calling this function.  You can redefine this for customization.
-See also `auto-save-file-name-p'."
-  (let ((filename (original-make-auto-save-file-name)))
-    ;; Don't modify remote (ange-ftp) filenames
-    (if (string-match "^/\\w+@[-A-Za-z0-9._]+:" filename)
-	filename
-      (convert-standard-filename filename))))
-
 (defun convert-standard-filename (filename)
   "Convert a standard file's name to something suitable for the current OS.
 This function's standard definition is trivial; it just returns the argument.