[elpa] externals/taxy 44436a1 7/7: Example: (deffy) Make deffy-jump make buffer if not open

[ELPA Syncer]

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

    Example: (deffy) Make deffy-jump make buffer if not open
---
 examples/deffy.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/examples/deffy.el b/examples/deffy.el
index 7f75904..0ebe097 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -239,18 +239,21 @@ Interactively, with prefix, display in dedicated side 
window."
 
 (defun deffy-jump (def)
   "Jump to definition DEF.
-Interactively, read DEF from visible Deffy window with
-completion; with prefix, from all Deffy buffers."
+Interactively, read DEF from current buffer with completion; with
+prefix, from all `deffy-mode' buffers."
   (interactive
    (list (deffy--read-def
            (if current-prefix-arg
               (cl-loop for buffer in (buffer-list)
                        when (eq 'deffy-mode (buffer-local-value 'major-mode 
buffer))
                        collect buffer)
-            (cl-loop for window in (window-list)
-                     when (eq 'deffy-mode
-                              (buffer-local-value 'major-mode (window-buffer 
window)))
-                     return (list (window-buffer window)))))))
+             (or (cl-loop for buffer in (buffer-list)
+                          when (and (eq 'deffy-mode (buffer-local-value 
'major-mode buffer))
+                                    (member (buffer-file-name) 
(buffer-local-value 'deffy-files buffer)))
+                          return (list buffer))
+                 (save-window-excursion
+                   (deffy-buffer)
+                   (list (current-buffer))))))))
   (pcase-let (((cl-struct deffy-def file pos) def))
     (pop-to-buffer
      (or (find-buffer-visiting file)