[Emacs-diffs] Changes to emacs/lisp/dired-aux.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/07/24 16:12:20

Index: dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.170
retrieving revision 1.171
diff -u -b -r1.170 -r1.171
--- dired-aux.el        6 May 2008 07:57:30 -0000       1.170
+++ dired-aux.el        24 Jul 2008 16:12:20 -0000      1.171
@@ -1195,9 +1195,13 @@
            (if (file-exists-p to)
                (or top (dired-handle-overwrite to))
              (condition-case err
+                 ;; Create the directory with correct permissions.
+                 (let ((default-mode (default-file-modes)))
+                   (unwind-protect
                  (progn
-                   (make-directory to)
-                   (set-file-modes to #o700))
+                         (set-default-file-modes #o700)
+                         (make-directory to))
+                     (set-default-file-modes default-mode)))
                (file-error
                 (push (dired-make-relative from)
                       dired-create-files-failures)