|
From: | Emanuel Berg |
Subject: | Re: Function to find symlink target |
Date: | Tue, 24 May 2022 04:14:02 +0200 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
Michael Heerdegen wrote: >> (defun dired-find-link-target (link) >> (let*((target (file-truename link)) >> (name (file-name-nondirectory target)) ) >> (find-file (file-name-directory target)) >> (goto-char (point-min)) >> (cl-loop >> while (re-search-forward name (point-max) t) >> do (when (get-text-property (point) 'dired-filename) >> (cl-return) )) >> (goto-char (match-beginning 0)) )) > > Not wrong - but reinventing wheels: see `dired-jump' and > `dired-goto-file'. None of these work ... (dired-goto-file "~/test/dired/target-link.txt") (dired-jump "~/test/dired/target-link.txt") -- underground experts united https://dataswamp.org/~incal
[Prev in Thread] | Current Thread | [Next in Thread] |