mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Handle symlinks in wdired.el when restoring filename property

Browse Source 
* 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.
This commit is contained in:
Stephen Berman 2018-07-29 13:16:48 +02:00
parent 8a563d9762
commit ea1cf0960a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/wdired.el
View File

@ -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)