# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1187939514 0
# Node ID 73d0aca5f90c9bd72b12fe8a3d7f09e42e2683c9
# Parent  919ee0e1f2e331b696288f510d0d9a996ddd33c6
(backup-buffer-copy): Fully revert change. Sigh.

diff -r 919ee0e1f2e3 -r 73d0aca5f90c lisp/files.el
--- a/lisp/files.el	Fri Aug 24 03:09:33 2007 +0000
+++ b/lisp/files.el	Fri Aug 24 07:11:54 2007 +0000
@@ -3120,9 +3120,7 @@
 	    (file-error nil))))))
 
 (defun backup-buffer-copy (from-name to-name modes)
-  (let ((umask (default-file-modes))
-	(dir (or (file-name-directory to-name)
-		 default-directory)))
+  (let ((umask (default-file-modes)))
     (unwind-protect
 	(progn
 	  ;; Create temp files with strict access rights.  It's easy to