From a2a32f6f06b44a8c1414e69aa36f564b7a858b04 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 24 Aug 2007 07:10:53 +0000 Subject: [PATCH] (backup-buffer-copy): Fully revert change. Sigh. --- lisp/files.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index be3c53951c4..f2307b9d416 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3172,9 +3172,7 @@ BACKUPNAME is the backup file name, which is the old file renamed." (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 -- 2.39.5