Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 14 additions & 0 deletions ChangeLog
Original file line number Diff line number Diff line change
@@ -1,3 +1,17 @@
2026-03-24 Mats Lidell <matsl@gnu.org>

* hui-mouse.el (profiler-report-find-entry)
(profiler-report-toggle-entry): Declare functions and sort the
declarations.
(smart-profiler-report): Shorten docstring line below 80
chars. Do explicit initialization of curr-buffer since
byte-compiler does not see it will be set.

* hywiki.el (consult-grep-args, consult-ripgrep-args): Defvar consult
variables.
(hywiki-org-to-heading-instance): Use with-suppressed-warnings for
obsolete org-show-entry.

2026-03-23 Bob Weiner <rsw@gnu.org>

* hui-mouse.el (hkey-alist): Add 'profiler-report-mode' support for jumping
Expand Down
16 changes: 9 additions & 7 deletions hui-mouse.el
Original file line number Diff line number Diff line change
Expand Up @@ -98,13 +98,15 @@
(declare-function kotl-mode:eolp "kotl-mode")

;; Emacs functions
(declare-function Custom-buffer-done "cus-edit")
(declare-function Custom-newline "cus-edit")
(declare-function outline-invisible-in-p "hyperbole")
(declare-function profiler-report-find-entry "profiler")
(declare-function profiler-report-toggle-entry "profiler")
(declare-function tar-expunge "tar")
(declare-function tar-extract-other-window "tar")
(declare-function tar-flag-deleted "tar")
(declare-function tar-unflag "tar")
(declare-function tar-extract-other-window "tar")
(declare-function tar-expunge "tar")
(declare-function outline-invisible-in-p "hyperbole")
(declare-function Custom-newline "cus-edit")
(declare-function Custom-buffer-done "cus-edit")

;;; ************************************************************************
;;; Public variables
Expand Down Expand Up @@ -2212,7 +2214,7 @@ caller has already checked that the key was pressed in an appropriate buffer
and has moved the cursor there.

If key is pressed:
(1) on the text of a linked call tree item, jumps to the definition of the item;
(1) on the text of a linked call tree item, jumps to the items definition;
(2) on or after the last line in the buffer, quits from the profiler report."
(interactive)
(cond
Expand All @@ -2221,7 +2223,7 @@ 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)
(let* ((curr-buffer nil)
(find-function-after-hook '((lambda ()
(setq curr-buffer (current-buffer))))))
(hpath:display-buffer (save-window-excursion
Expand Down
5 changes: 4 additions & 1 deletion hywiki.el
Original file line number Diff line number Diff line change
Expand Up @@ -159,6 +159,8 @@

(defvar action-key-modeline-buffer-id-function) ;; "hui-mouse.el"
(defvar bookmark-current-bookmark) ;; "bookmark.el"
(defvar consult-grep-args) ;; "consult.el"
(defvar consult-ripgrep-args) ;; "consult.el"
(defvar hkey-value) ;; "hui-mouse.el"
(defvar hywiki-referent-menu nil) ;; "hywiki.el"
(defvar org-agenda-buffer-tmp-name) ;; "org-agenda.el"
Expand Down Expand Up @@ -3291,7 +3293,8 @@ If such an instance is not found, trigger an error."
(goto-char found)
;; Ensure the heading is visible if folded
(if (version< org-version "9.6")
(org-show-entry)
(with-suppressed-warnings ((obsolete org-show-entry))
(org-show-entry))
(org-fold-show-entry))
;; (message "Instance %d of '%s'" n title)
t)
Expand Down