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.

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