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

[Eli Zaretskii]

Index: emacs/lisp/files.el
diff -u emacs/lisp/files.el:1.799 emacs/lisp/files.el:1.800
--- emacs/lisp/files.el:1.799   Tue Dec 27 22:54:08 2005
+++ emacs/lisp/files.el Fri Jan  6 11:55:01 2006
@@ -3469,7 +3469,9 @@
            ;; If we get an error writing the new file, and we made
            ;; the backup by renaming, undo the backing-up.
            (and setmodes (not success)
-                (rename-file (cdr setmodes) buffer-file-name))))))
+                (progn
+                  (rename-file (cdr setmodes) buffer-file-name t)
+                  (setq buffer-backed-up nil)))))))
     setmodes))
 
 (defun diff-buffer-with-file (&optional buffer)