Emacs lisp
How to quick implement a read-file-name function which behaves like project-find-file?
After reading the source code of project-find-file function, I find it is fairly simple to achieve this goal by adding advice to find-file function.
(defun mk/project-read-file-name ()
(let ((find-file-advice (lambda (file-name) file-name)))
(advice-add 'find-file :override find-file-advice)
(unwind-protect
(setq res (project-find-file t))
(advice-remove 'find-file find-file-advice))))
Edit:
Use unwind-protect to make sure advice-remove can always be executed.