|
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 |
