fix: actually open files when one is found

This commit is contained in:
Lucien Cartier-Tilet 2023-12-06 19:28:24 +01:00
parent c90710f31b
commit 9942e063b3
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -162,9 +162,9 @@ empty, all files are to be looked for."
(when arg
(setq dir (read-file-name "Root directory: "))
(setq ext (read-string "File extension (leave blank for all files): ")))
(funcall quick-find-files-completing-read
(find-file (funcall quick-find-files-completing-read
"Open file: "
(quick-find-files-list-files dir ext))))
(quick-find-files-list-files dir ext)))))
; Provides ;;;;;;;;;;;;;;;;;;;;;;;;;;;;