Mercurial > emacs

comparison lisp/files.el @ 43681:5f02f10efd8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-auto-save-file-name): Use make-temp-file.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Mar 2002 21:57:59 +0000
parents 97ca502aebf5
children 485d5d33f9d6
comparison
equal deleted inserted replaced
43680:d12db931f164 43681:5f02f10efd8a
3340 ((eq character ?/) "%+") 3340 ((eq character ?/) "%+")
3341 ((eq character ?\\) "%-")))) 3341 ((eq character ?\\) "%-"))))
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'.
3355 FILENAME should lack slashes. You can redefine this for customization." 3356 FILENAME should lack slashes. You can redefine this for customization."
3356 (string-match "^#.*#$" filename)) 3357 (string-match "^#.*#$" filename))