# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1187924893 0
# Node ID 1fbf8f4df1a78c3b496f72f262a65fd1bb6c9d31
# Parent  9f65c637f6d313b944459dc972a2594fa6c7e34b
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.

diff -r 9f65c637f6d3 -r 1fbf8f4df1a7 lisp/files.el
--- a/lisp/files.el	Fri Aug 24 03:07:45 2007 +0000
+++ b/lisp/files.el	Fri Aug 24 03:08:13 2007 +0000
@@ -3183,9 +3183,8 @@
 	  (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))