summaryrefslogtreecommitdiff
path: root/lisp/w32-fns.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2002-03-06 18:23:37 +0000
committerEli Zaretskii <eliz@gnu.org>2002-03-06 18:23:37 +0000
commita730e8506bc3c0e670f197da28c8ba63827c25c3 (patch)
treea9d7559585e90899f554d40a6c75de349b911866 /lisp/w32-fns.el
parent1e57a69675b0597c3ad381dc19d514d3b54e28c5 (diff)
downloademacs-a730e8506bc3c0e670f197da28c8ba63827c25c3.tar.gz
(make-auto-save-file-name): Remove replacement function.
Diffstat (limited to 'lisp/w32-fns.el')
-rw-r--r--lisp/w32-fns.el15
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.