diff options
| author | Richard M. Stallman | 2002-03-03 21:57:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-03 21:57:59 +0000 |
| commit | 75244a672adc068f9502b910756a1263b281ea12 (patch) | |
| tree | e68dc03edf9b25a0cd58573a703dc20730e84a83 | |
| parent | f9e6f049b3a52ac2c483a9499b5406c3dcdb3de4 (diff) | |
| download | emacs-75244a672adc068f9502b910756a1263b281ea12.tar.gz emacs-75244a672adc068f9502b910756a1263b281ea12.zip | |
(make-auto-save-file-name): Use make-temp-file.
| -rw-r--r-- | lisp/files.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/files.el b/lisp/files.el index e748b6069ce..f5ab220ba15 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -3342,13 +3342,14 @@ See also `auto-save-file-name-p'." | |||
| 3342 | (setq buffer-name (replace-match replacement t t buffer-name)) | 3342 | (setq buffer-name (replace-match replacement t t buffer-name)) |
| 3343 | (setq limit (1+ (match-end 0))))) | 3343 | (setq limit (1+ (match-end 0))))) |
| 3344 | ;; Generate the file name. | 3344 | ;; Generate the file name. |
| 3345 | (expand-file-name | 3345 | (make-temp-file |
| 3346 | (format "#%s#%s#" buffer-name (make-temp-name "")) | 3346 | (expand-file-name |
| 3347 | ;; Try a few alternative directories, to get one we can write it. | 3347 | (format "#%s#" buffer-name) |
| 3348 | (cond | 3348 | ;; Try a few alternative directories, to get one we can write it. |
| 3349 | ((file-writable-p default-directory) default-directory) | 3349 | (cond |
| 3350 | ((file-writable-p "/var/tmp/") "/var/tmp/") | 3350 | ((file-writable-p default-directory) default-directory) |
| 3351 | ("~/")))))) | 3351 | ((file-writable-p "/var/tmp/") "/var/tmp/") |
| 3352 | ("~/"))))))) | ||
| 3352 | 3353 | ||
| 3353 | (defun auto-save-file-name-p (filename) | 3354 | (defun auto-save-file-name-p (filename) |
| 3354 | "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. | 3355 | "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. |