changeset 78649:73d0aca5f90c

(backup-buffer-copy): Fully revert change. Sigh.
author Glenn Morris <rgm@gnu.org>
date Fri, 24 Aug 2007 07:11:54 +0000
parents 919ee0e1f2e3
children 7fb400a76787
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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