Lines 3120-3126
Link Here
|
3120 |
(file-error nil)))))) |
3120 |
(file-error nil)))))) |
3121 |
|
3121 |
|
3122 |
(defun backup-buffer-copy (from-name to-name modes) |
3122 |
(defun backup-buffer-copy (from-name to-name modes) |
3123 |
(let ((umask (default-file-modes))) |
3123 |
(let ((umask (default-file-modes)) |
|
|
3124 |
(dir (or (file-name-directory to-name) |
3125 |
default-directory))) |
3126 |
;; Can't delete or create files in a read-only directory. |
3127 |
(unless (file-writable-p dir) |
3128 |
(signal 'file-error (list "Directory is not writable" dir))) |
3124 |
(unwind-protect |
3129 |
(unwind-protect |
3125 |
(progn |
3130 |
(progn |
3126 |
;; Create temp files with strict access rights. It's easy to |
3131 |
;; Create temp files with strict access rights. It's easy to |