Mercurial > emacs
changeset 43756:321baeaafdc2
(make-auto-save-file-name): Remove replacement function.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 06 Mar 2002 18:21:10 +0000 |
| parents | 485d5d33f9d6 |
| children | 5f52274dcc10 |
| files | lisp/dos-fns.el lisp/w32-fns.el |
| diffstat | 2 files changed, 0 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-fns.el Wed Mar 06 18:19:43 2002 +0000 +++ b/lisp/dos-fns.el Wed Mar 06 18:21:10 2002 +0000 @@ -180,25 +180,6 @@ (dos-8+3-filename dir)) string)))))) -;; Make sure auto-save file names don't contain characters invalid for -;; the underlying filesystem. This is particularly annoying with -;; `compose-mail's *mail* buffers: `*' is not allowed in file names on -;; DOS/Windows, so Emacs bitches on you each time it tries to autosave -;; the message being composed. -(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)))) - ;; See dos-vars.el for defcustom. (defvar msdos-shells)
--- a/lisp/w32-fns.el Wed Mar 06 18:19:43 2002 +0000 +++ b/lisp/w32-fns.el Wed Mar 06 18:21:10 2002 +0000 @@ -227,21 +227,6 @@ ; (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.