3342 |
(setq buffer-name (replace-match replacement t t buffer-name)) |
(setq buffer-name (replace-match replacement t t buffer-name)) |
3343 |
(setq limit (1+ (match-end 0))))) |
(setq limit (1+ (match-end 0))))) |
3344 |
;; Generate the file name. |
;; Generate the file name. |
3345 |
(expand-file-name |
(make-temp-file |
3346 |
(format "#%s#%s#" buffer-name (make-temp-name "")) |
(expand-file-name |
3347 |
;; Try a few alternative directories, to get one we can write it. |
(format "#%s#" buffer-name) |
3348 |
(cond |
;; Try a few alternative directories, to get one we can write it. |
3349 |
((file-writable-p default-directory) default-directory) |
(cond |
3350 |
((file-writable-p "/var/tmp/") "/var/tmp/") |
((file-writable-p default-directory) default-directory) |
3351 |
("~/")))))) |
((file-writable-p "/var/tmp/") "/var/tmp/") |
3352 |
|
("~/"))))))) |
3353 |
|
|
3354 |
(defun auto-save-file-name-p (filename) |
(defun auto-save-file-name-p (filename) |
3355 |
"Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. |
"Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. |