Handle symlinks in wdired.el when restoring filename property

* lisp/wdired.el (wdired--restore-dired-filename-prop): If the
file name is a symbolic link, only propertize the link name.  This
prevents wdired-create-parentdirs from turning the link into a
directory.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 1d0106775d6..be0bde290ab 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -611,7 +611,10 @@ Optional arguments are ignored."
       (when (re-search-forward directory-listing-before-filename-regexp
                                (line-end-position) t)
         (setq beg (point)
-              end (line-end-position))
+              end (if (and (file-symlink-p (dired-get-filename))
+                           (search-forward " -> " (line-end-position) t))
+                      (goto-char (match-beginning 0))
+                    (line-end-position)))
         (put-text-property beg end 'dired-filename t)))))
 
 (defun wdired-next-line (arg)