[Emacs-diffs] Changes to emacs/lisp/w32-fns.el

[Eli Zaretskii]

Index: emacs/lisp/w32-fns.el
diff -c emacs/lisp/w32-fns.el:1.49 emacs/lisp/w32-fns.el:1.50
*** emacs/lisp/w32-fns.el:1.49  Fri Jan 25 08:14:16 2002
--- emacs/lisp/w32-fns.el       Wed Mar  6 13:21:10 2002
***************
*** 227,247 ****
  ;          (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 "^/address@hidden:" 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.
--- 227,232 ----