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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Chong Yidong <cyd>      08/07/24 16:16:00

Index: dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.151.2.7
retrieving revision 1.151.2.8
diff -u -b -r1.151.2.7 -r1.151.2.8
--- dired-aux.el        6 Apr 2008 21:05:17 -0000       1.151.2.7
+++ dired-aux.el        24 Jul 2008 16:16:00 -0000      1.151.2.8
@@ -1180,9 +1180,15 @@
            (if (file-exists-p to)
                (or top (dired-handle-overwrite to))
              (condition-case err
+                 ;; We used to call set-file-modes here, but on some
+                 ;; Linux kernels, that returns an error on vfat
+                 ;; filesystems
+                 (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)