branch: externals/taxy
commit 287ec9a75db441db09150f31b123f27d19940cc8
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Example: (deffy) Make deffy-jump use same window when appropriate
---
examples/deffy.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index fe2c253..360fa64 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -261,12 +261,15 @@ prefix, from all `deffy-mode' buffers."
when (eq 'deffy-mode
(buffer-local-value 'major-mode
(window-buffer window)))
return (list (window-buffer window))))))))))
- (pcase-let (((cl-struct deffy-def file pos) def))
+ (pcase-let (((cl-struct deffy-def file pos) def)
+ (action (if (eq 'deffy-mode major-mode)
+ `(display-buffer-in-previous-window
+ (previous-window . ,(get-mru-window nil nil
'not-selected)))
+ '(display-buffer-same-window))))
(pop-to-buffer
(or (find-buffer-visiting file)
(find-file-noselect file))
- `(display-buffer-in-previous-window
- (previous-window . ,(get-mru-window nil nil 'not-selected))))
+ action)
(goto-char pos)
(backward-sexp 1)))
