Mercurial > emacs
comparison lisp/files.el @ 70961:ec18670c9aae
* files.el (backup-buffer-copy): Remove deleted MUSTBENEW argument
to copy-file.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 26 May 2006 15:21:21 +0000 |
parents | 3279e0cf893a |
children | ae67d314ac22 |
comparison
equal
deleted
inserted
replaced
70960:d876c40c06dd | 70961:ec18670c9aae |
---|---|
2992 (while (condition-case () | 2992 (while (condition-case () |
2993 (progn | 2993 (progn |
2994 (condition-case nil | 2994 (condition-case nil |
2995 (delete-file to-name) | 2995 (delete-file to-name) |
2996 (file-error nil)) | 2996 (file-error nil)) |
2997 (copy-file from-name to-name t t 'excl) | 2997 (copy-file from-name to-name nil t) |
2998 nil) | 2998 nil) |
2999 (file-already-exists t)) | 2999 (file-already-exists t)) |
3000 ;; The file was somehow created by someone else between | 3000 ;; The file was somehow created by someone else between |
3001 ;; `delete-file' and `copy-file', so let's try again. | 3001 ;; `delete-file' and `copy-file', so let's try again. |
3002 nil)) | 3002 nil)) |