[elpa] externals/beframe 81dae94b66 7/8: Merge pull request #6 from fritzgrabo/harden-beframe-infer-frame-name

[ELPA Syncer]

branch: externals/beframe
commit 81dae94b66b2fdc8e24a0267a93851e98b00a754
Merge: bf6453d764 c54b028a73
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #6 from fritzgrabo/harden-beframe-infer-frame-name
    
    Harden `beframe-infer-frame-name` w.r.t. known project dirs 
(`project--list`)
---
 beframe.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/beframe.el b/beframe.el
index c57c0e2145..22cf781551 100644
--- a/beframe.el
+++ b/beframe.el
@@ -635,7 +635,9 @@ See `beframe-rename-frame'."
            (dir (with-current-buffer buffer (or (vc-root-dir) 
default-directory)))
            (projectp (and (bound-and-true-p project--list)
                           (listp project--list)
-                          (member (list dir) project--list))))
+                          (or
+                           (member (list dir) project--list)
+                           (member (list (abbreviate-file-name dir)) 
project--list)))))
       (cond
        ((and name (stringp name))
         name)