Fix ]f/[f (next/previous file) motions

This commit is contained in:
Henrik Lissner 2019-07-22 23:44:16 +02:00
parent a264185f74
commit d106272574
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -44,8 +44,8 @@
(user-error "Must be called from a file-visiting buffer"))
(let* ((directory (file-name-directory buffer-file-name))
(filename (file-name-nondirectory buffer-file-name))
(files (doom-files-in directory :depth 0 :match "/[^._][^/]*$"))
(index (cl-position filename files :test #'string=)))
(files (doom-glob (file-name-directory buffer-file-name) "[!.]*"))
(index (cl-position filename files :test #'file-equal-p)))
(when (null index)
(user-error "Couldn't find this file in current directory"))
(let ((index (+ index n)))