diff options
| -rw-r--r-- | lisp/wdired.el | 5 |
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." | |||
| 611 | (when (re-search-forward directory-listing-before-filename-regexp | 611 | (when (re-search-forward directory-listing-before-filename-regexp |
| 612 | (line-end-position) t) | 612 | (line-end-position) t) |
| 613 | (setq beg (point) | 613 | (setq beg (point) |
| 614 | end (line-end-position)) | 614 | end (if (and (file-symlink-p (dired-get-filename)) |
| 615 | (search-forward " -> " (line-end-position) t)) | ||
| 616 | (goto-char (match-beginning 0)) | ||
| 617 | (line-end-position))) | ||
| 615 | (put-text-property beg end 'dired-filename t))))) | 618 | (put-text-property beg end 'dired-filename t))))) |
| 616 | 619 | ||
| 617 | (defun wdired-next-line (arg) | 620 | (defun wdired-next-line (arg) |