diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2022-09-10 08:20:31 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-10 08:20:31 +0200 |
| commit | d22aacd930292e998df1225b2321b4213915cecf (patch) | |
| tree | af0170559ccc0f5b0bf6c45bb67dc38a1dd2a2b3 /lisp/wdired.el | |
| parent | 3062baf609baf49ea3742f224d522ca8d793cdb5 (diff) | |
| download | emacs-d22aacd930292e998df1225b2321b4213915cecf.tar.gz emacs-d22aacd930292e998df1225b2321b4213915cecf.tar.bz2 emacs-d22aacd930292e998df1225b2321b4213915cecf.zip | |
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).
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 3 |
1 files changed, 2 insertions, 1 deletions
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" |