[elpa] externals/taxy c5bf8848ef 1/2: Fix: (deffy--buffer-for) Also check default-directory

[ELPA Syncer]

branch: externals/taxy
commit c5bf8848ef691a99001178f468eb42df0a6d7d3f
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (deffy--buffer-for) Also check default-directory
---
 examples/deffy.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/examples/deffy.el b/examples/deffy.el
index a066baf3b6..3ae27328c3 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -438,8 +438,9 @@ prefixes, from all `deffy-mode' buffers."
 Return value is actually a one-element list."
   (or (cl-loop for other-buffer in (buffer-list)
               when (and (eq 'deffy-mode (buffer-local-value 'major-mode 
other-buffer))
-                        (member (buffer-file-name buffer)
-                                 (buffer-local-value 'deffy-files 
other-buffer)))
+                        (or (member (buffer-file-name buffer)
+                                     (buffer-local-value 'deffy-files 
other-buffer))
+                             (equal default-directory (buffer-local-value 
'deffy-directory other-buffer))))
               return (list other-buffer))
       ;; Make a new deffy buffer for BUFFER.
       (condition-case nil