diff options
Diffstat (limited to '.emacs.d/lisp/init-project.el')
| -rw-r--r-- | .emacs.d/lisp/init-project.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-project.el b/.emacs.d/lisp/init-project.el index 6387f05..d2c7ca7 100644 --- a/.emacs.d/lisp/init-project.el +++ b/.emacs.d/lisp/init-project.el @@ -28,14 +28,18 @@ "Show a list of recently visited files in a project." (interactive) (if (boundp 'recentf-list) + ;; Use expand-file-name for project-root and later recentf-list to ensure consistency (let* ((project-root (expand-file-name (project-root (project-current)))) (project-recentf-files (mapcar (lambda (f) (file-relative-name f project-root)) - (seq-filter (apply-partially 'string-prefix-p project-root) recentf-list)))) + (seq-filter (apply-partially 'string-prefix-p project-root) + (mapcar 'expand-file-name recentf-list))))) (find-file (expand-file-name (funcall project-read-file-name-function "Find recent project files" - project-recentf-files) + project-recentf-files + nil + 'file-name-history) project-root))) (message "recentf is not enabled"))) (defun project-switch-src-project () |