From 9c54cc39c3858bf0fb93e9d0983fae9554cfd054 Mon Sep 17 00:00:00 2001 From: bw Date: Mon, 23 Mar 2026 21:49:03 -0400 Subject: [PATCH 1/3] smart-profiler-report - Fix display of found buffer --- ChangeLog | 1 + hui-mouse.el | 15 ++- man/hyperbole.html | 296 +++++++++++++++++++++++++++------------------ man/hyperbole.info | Bin 667498 -> 670306 bytes man/hyperbole.pdf | Bin 1705621 -> 1707100 bytes 5 files changed, 185 insertions(+), 127 deletions(-) diff --git a/ChangeLog b/ChangeLog index e1533c8e..5f2b00bb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -4,6 +4,7 @@ to call tree items or expanding/collapsing their call trees. (smart-profiler-report, smart-profiler-report-assist): Add. man/hyperbole.texi (Smart Key - Profiler Report Mode): Add doc. + (smart-profiler-report): Fix display of found buffer. 2026-03-22 Bob Weiner diff --git a/hui-mouse.el b/hui-mouse.el index 5e9ccd14..cc37605f 100644 --- a/hui-mouse.el +++ b/hui-mouse.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 04-Feb-89 -;; Last-Mod: 23-Mar-26 at 18:49:48 by Bob Weiner +;; Last-Mod: 23-Mar-26 at 21:47:31 by Bob Weiner ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -2221,13 +2221,12 @@ If key is pressed: (quit-window)) ;; If on the text of an entry, jump to its definition if is a link ((text-property-any (point) (1+ (point)) 'face 'link) - (let* ((curr-buffer) - (find-function-after-hook '((lambda () - (setq curr-buffer (current-buffer)))))) - (hpath:display-buffer (save-window-excursion - (profiler-report-find-entry) - curr-buffer))) - t))) + (let* ((dbuf) + (obuf (current-buffer))) + (profiler-report-find-entry) + (setq dbuf (window-buffer (selected-window))) + (switch-to-buffer obuf) + (hpath:display-buffer dbuf))))) (defun smart-profiler-report-assist () "Use a single assist key or mouse assist key to toggle profiler call trees. diff --git a/man/hyperbole.html b/man/hyperbole.html index 6f5228f3..9cb5697c 100644 --- a/man/hyperbole.html +++ b/man/hyperbole.html @@ -4,7 +4,7 @@