[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/08/24 03:08:13

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.922
retrieving revision 1.923
diff -u -b -r1.922 -r1.923
--- files.el    24 Aug 2007 03:03:52 -0000      1.922
+++ files.el    24 Aug 2007 03:08:13 -0000      1.923
@@ -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))