From: Stephen Berman <stephen.berman@gmx.net>
Date: Sun, 29 Jul 2018 11:16:48 +0000 (+0200)
Subject: Handle symlinks in wdired.el when restoring filename property
X-Git-Tag: emacs-27.0.90~4664^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea1cf0960a86bc373cfd4900f46d9fe5e847941e;p=emacs.git

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.
---

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)