emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/taxy 287ec9a: Example: (deffy) Make deffy-jump use same


From: ELPA Syncer
Subject: [elpa] externals/taxy 287ec9a: Example: (deffy) Make deffy-jump use same window when appropriate
Date: Mon, 20 Sep 2021 00:57:19 -0400 (EDT)

branch: externals/taxy
commit 287ec9a75db441db09150f31b123f27d19940cc8
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]