Replace to f.el functions with native functions

This commit is contained in:
Lucien Cartier-Tilet 2022-10-03 00:00:46 +02:00
parent 140f8f8ad4
commit 9bdd208cb6
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 2 additions and 2 deletions

View File

@ -61,9 +61,9 @@
(group-n 1 (seq (+ (not space)) alnum))
(? punctuation))
nil t nil)
(let ((source (f-relative file))
(let ((source (file-relative-name file))
(target (match-string-no-properties 1)))
(when (f-file-p target)
(when (file-regular-p target)
(push `(,source . ,target) links))))))))
(defun dsptl-display-links-directory ()