Re: Function to find symlink target

[Emanuel Berg]

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