Replace to f.el functions with native functions
This commit is contained in:
parent
140f8f8ad4
commit
9bdd208cb6
4
dsptl.el
4
dsptl.el
@ -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 ()
|
||||||
|
Reference in New Issue
Block a user