diff options
| author | Richard M. Stallman | 1996-09-01 00:20:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-01 00:20:33 +0000 |
| commit | a8abaf83a47eaf0fd0196516629056d2bd861ad5 (patch) | |
| tree | 1e52f80812113b01032b0fcabd5e6711a310d0a1 | |
| parent | 85ea1a285f9d77677d8ed88aa72560644f99b253 (diff) | |
| download | emacs-a8abaf83a47eaf0fd0196516629056d2bd861ad5.tar.gz emacs-a8abaf83a47eaf0fd0196516629056d2bd861ad5.zip | |
(make-auto-save-file-name): Try a few directories
to get one we can write in.
| -rw-r--r-- | lisp/files.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 84dd9391846..35c430c1942 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2471,8 +2471,14 @@ See also `auto-save-file-name-p'." | |||
| 2471 | "\\\\") | 2471 | "\\\\") |
| 2472 | (substring buffer-name (match-end 0)))) | 2472 | (substring buffer-name (match-end 0)))) |
| 2473 | (setq limit (1+ (match-end 0)))) | 2473 | (setq limit (1+ (match-end 0)))) |
| 2474 | 2474 | ;; Generate the file name. | |
| 2475 | (expand-file-name (format "#%s#%s#" buffer-name (make-temp-name "")))))) | 2475 | (expand-file-name |
| 2476 | (format "#%s#%s#" buffer-name (make-temp-name "")) | ||
| 2477 | ;; Try a few alternative directories, to get one we can write it. | ||
| 2478 | (cond | ||
| 2479 | ((file-writable-p default-directory) default-directory) | ||
| 2480 | ((file-writable-p "/var/tmp/") "/var/tmp/") | ||
| 2481 | ("~/")))))) | ||
| 2476 | 2482 | ||
| 2477 | (defun auto-save-file-name-p (filename) | 2483 | (defun auto-save-file-name-p (filename) |
| 2478 | "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. | 2484 | "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. |