View | Details | Raw Unified
Collapse All | Expand All

(-) lisp/files.el (-1 / +6 lines)
 Lines 3120-3126    Link Here  
	    (file-error nil))))))
	    (file-error nil))))))

        
(defun backup-buffer-copy (from-name to-name modes)
(defun backup-buffer-copy (from-name to-name modes)

            

              
  (let ((umask (default-file-modes)))

              
  (let ((umask (default-file-modes))

            

            

              

              
	(dir (or (file-name-directory to-name)

            

            

              

              
		 default-directory)))

            

            

              

              
    ;; Can't delete or create files in a read-only directory.

            

            

              

              
    (unless (file-writable-p dir)

            

            

              

              
      (signal 'file-error (list "Directory is not writable" dir)))

            

        
    (unwind-protect
    (unwind-protect

        
	(progn
	(progn

        
	  ;; Create temp files with strict access rights.  It's easy to
	  ;; Create temp files with strict access rights.  It's easy to