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 33e0b96f0f5dff1b718481b2940fd53c4a300a47..6904bac4d0ea8eb6762b7307eafdfc882ff5f301 100644 (file)
--- 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"