changeset 82813:56aa3ad4741d

(backup-buffer-copy): Fully revert change. Sigh.
author Glenn Morris <rgm@gnu.org>
date Fri, 24 Aug 2007 07:10:53 +0000
parents eafaf692b318
children f0c0222ef990
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Fri Aug 24 05:51:28 2007 +0000
+++ b/lisp/files.el	Fri Aug 24 07:10:53 2007 +0000
@@ -3172,9 +3172,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