X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/348a60a8f3ee881a5fbeda36ae73bec64c6237ac..36fc09321bce7286ce378c45382a0a4773d69a9d:/lisp/shadowfile.el

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index ece12c367e..aa99b1e785 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -1,7 +1,7 @@
 ;;; shadowfile.el --- automatic file copying
 
 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Boris Goldowsky <boris@gnu.org>
 ;; Keywords: comm files
@@ -575,13 +575,7 @@ site."
       (set-buffer buffer)
       (condition-case i
 	  (progn
-	    (if buffer-swapped-with
-		(progn
-		  (buffer-swap-text buffer-swapped-with)
-		  (unwind-protect
-		      (write-region nil nil to)
-		    (buffer-swap-text buffer-swapped-with)))
-	      (write-region nil nil to))
+            (write-region nil nil to)
             (shadow-remove-from-todo s))
         (error (message "Shadow %s not updated!" (cdr s)))))))