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

View File

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