branch: elpa/aidermacs
commit 3eb71cf8ef762bed1961cb9c7ef988aee4ee09ac
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Use file-in-directory-p
Signed-off-by: Mingde (Matthew) Zeng <matthew...@posteo.net>
---
aidermacs.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/aidermacs.el b/aidermacs.el
index ffa3d92ee8..08f4168320 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -236,9 +236,7 @@ If supplied, SUFFIX is appended to the buffer name within
the earmuffs."
(cl-remove-if-not
(lambda (dir-info)
(and (car dir-info)
- (string-prefix-p
- (expand-file-name (car dir-info))
- (expand-file-name default-directory))
+ (file-in-directory-p default-directory (car dir-info))
(file-exists-p (car dir-info))))
buffer-dirs)
(lambda (a b)
