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): Try a few directories

Browse source 
to get one we can write in.
This commit is contained in:
Richard M. Stallman 1996-09-01 00:20:33 +00:00
parent 85ea1a285f
commit a8abaf83a4
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/files.el
View file

@ -2471,8 +2471,14 @@ See also `auto-save-file-name-p'."
"\\\\")
(substring buffer-name (match-end 0))))
(setq limit (1+ (match-end 0))))
(expand-file-name (format "#%s#%s#" buffer-name (make-temp-name ""))))))
;; Generate the file name.
(expand-file-name
(format "#%s#%s#" buffer-name (make-temp-name ""))
;; Try a few alternative directories, to get one we can write it.
(cond
((file-writable-p default-directory) default-directory)
((file-writable-p "/var/tmp/") "/var/tmp/")
("~/"))))))
(defun auto-save-file-name-p (filename)
"Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.