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

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

[elpa] externals/breadcrumb 07b8e96ed4 09/18: Fix #7: Select window befo


From: ELPA Syncer
Subject: [elpa] externals/breadcrumb 07b8e96ed4 09/18: Fix #7: Select window before jumping around with breadcrumbs
Date: Tue, 5 Sep 2023 06:57:42 -0400 (EDT)

branch: externals/breadcrumb
commit 07b8e96ed48de8977b8f687f3b121fd0f2896c22
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix #7: Select window before jumping around with breadcrumbs
    
    * breadcrumb.el (bc--format-node): Fix.
---
 breadcrumb.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/breadcrumb.el b/breadcrumb.el
index 6ed6e810b3..2e9bddf3ea 100644
--- a/breadcrumb.el
+++ b/breadcrumb.el
@@ -162,11 +162,13 @@ These structures don't have a `breadcrumb-region' 
property on."
                     'mouse-face 'header-line-highlight
                     'help-echo "Go here"
                     'keymap (let ((m (make-sparse-keymap)))
-                              (define-key m bc--header-line-key
-                                          (lambda (&rest _e)
-                                            (interactive)
-                                            (push-mark)
-                                            (goto-char (car reg))))
+                              (define-key
+                               m bc--header-line-key
+                               (lambda (&rest _e)
+                                 (interactive "@")
+                                 (with-current-buffer (window-buffer)
+                                   (push-mark)
+                                   (goto-char (car reg)))))
                               m))
       p)))
 



reply via email to

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