From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 10 Sep 2022 06:20:31 +0000 (+0200)
Subject: Make wdired match dired with symlink permissions
X-Git-Tag: emacs-29.0.90~1856^2~616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d22aacd930292e998df1225b2321b4213915cecf;p=emacs.git

Make wdired match dired with symlink permissions

* lisp/wdired.el (wdired-do-perm-changes): Do not follow symlinks,
to be consistent with plain dired (bug#50189).
---

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 33e0b96f0f5..6904bac4d0e 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -1024,7 +1024,8 @@ Like original function but it skips read-only words."
         (setq filename (wdired-get-filename nil t))
         (if (= (length perms-new) 10)
             (condition-case nil
-                (set-file-modes filename (wdired-perms-to-number perms-new))
+		(set-file-modes filename (wdired-perms-to-number perms-new)
+				'nofollow)
               (error
                (setq errors (1+ errors))
                (dired-log "Setting mode of `%s' to `%s' failed\n\n"