[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el |
Date: |
Wed, 06 Mar 2002 13:21:10 -0500 |
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/w32-fns.el,
Eli Zaretskii <=