diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-08-24 03:09:33 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-08-24 03:09:33 +0000 |
| commit | 17c68eb7132b464ec3a9959da198b3e1038a3018 (patch) | |
| tree | ab0f0d060a9408d5e4c24e44858201c24f7a9a01 /lisp/files.el | |
| parent | c5b21a7f53bd2cac9a901eb5c7a50444bcdbb643 (diff) | |
| download | emacs-17c68eb7132b464ec3a9959da198b3e1038a3018.tar.gz | |
Ulrich Mueller <ulm at gentoo.org> (tiny change)
(backup-buffer-copy): Don't wrap delete in condition-case, only try to
delete if file exists.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index dab90097119..84aa78b4a52 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3131,9 +3131,8 @@ BACKUPNAME is the backup file name, which is the old file renamed." (set-default-file-modes ?\700) (while (condition-case () (progn - (condition-case nil - (delete-file to-name) - (file-error nil)) + (and (file-exists-p to-name) + (delete-file to-name)) (copy-file from-name to-name nil t) nil) (file-already-exists t)) |