mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Eli Zaretskii 2002-03-06 18:23:37 +00:00
parent 1e57a69675
commit a730e8506b
3 changed files with 9 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2002-03-06 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (make-auto-save-file-name): Make sure the produced file
name does not contain characters that are invalid for DOS/Windows
filesystems.
* dos-fns.el, w32-fns.el: (make-auto-save-file-name): Remove
replacement functions.
2002-03-06 Gerd Moellmann <gerd@gnu.org>
* font-lock.el (lisp-font-lock-keywords-2): Highlight keywords of

19
lisp/dos-fns.el
View file

@ -180,25 +180,6 @@ with a definition that really does change some file names."
(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)

15
lisp/w32-fns.el
View file

@ -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.