branch: externals/taxy
commit 44436a14a7a8c14e30924273a705fdd107bb8283
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@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)
