diff options
author | Martin Polden <mpolden@mpolden.no> | 2022-06-18 21:34:06 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2022-06-18 21:34:06 +0200 |
commit | 2d7b2e912df9054c5aa567f6af31b97d48447d8a (patch) | |
tree | bca92367e41acdae8bb1bdb06bacc8100cdea7ef | |
parent | d0ff562d4d56abfd19c42ed321f417cec5ef3736 (diff) |
project: use file-in-directory-p in sub-directory check
-rw-r--r-- | lisp/init-project.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/init-project.el b/lisp/init-project.el index fcbe8a2..fc7741d 100644 --- a/lisp/init-project.el +++ b/lisp/init-project.el @@ -18,7 +18,7 @@ project, switch to it. With \\[universal-argument] prefix arg, always create a new buffer even if one already exists." (interactive) - (let* ((default-directory (directory-file-name (project-root (project-current t)))) + (let* ((default-directory (project-root (project-current t))) ;; find a vterm buffer which has its current directory in the project ;; root or any sub-directory of the root (vterm-buf (car (seq-filter (lambda (buf) @@ -26,8 +26,8 @@ buffer even if one already exists." (buf-name (buffer-name buf)) (buf-dir (string-remove-prefix buf-prefix buf-name))) (and (string-prefix-p buf-prefix buf-name) - (string-prefix-p (file-truename default-directory) - (file-truename buf-dir))))) + (file-in-directory-p (file-truename buf-dir) + (file-truename default-directory))))) (buffer-list))))) (if (and vterm-buf (not current-prefix-arg)) (pop-to-buffer vterm-buf) |