227 |
; (setq source-directory (file-name-as-directory |
; (setq source-directory (file-name-as-directory |
228 |
; (expand-file-name ".." exec-directory))))) |
; (expand-file-name ".." exec-directory))))) |
229 |
|
|
|
;; 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)))) |
|
|
|
|
230 |
(defun convert-standard-filename (filename) |
(defun convert-standard-filename (filename) |
231 |
"Convert a standard file's name to something suitable for the current OS. |
"Convert a standard file's name to something suitable for the current OS. |
232 |
This function's standard definition is trivial; it just returns the argument. |
This function's standard definition is trivial; it just returns the argument. |