[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.550 emacs/lisp/files.el:1.551
*** emacs/lisp/files.el:1.550   Wed Feb  6 10:29:29 2002
--- emacs/lisp/files.el Sun Mar  3 16:57:59 2002
***************
*** 3342,3354 ****
          (setq buffer-name (replace-match replacement t t buffer-name))
          (setq limit (1+ (match-end 0)))))
        ;; 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'.
--- 3342,3355 ----
          (setq buffer-name (replace-match replacement t t buffer-name))
          (setq limit (1+ (match-end 0)))))
        ;; Generate the file name.
!       (make-temp-file
!        (expand-file-name
!       (format "#%s#" buffer-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'.