diff --git a/ChangeLog b/ChangeLog index 3151612d..5947b195 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,17 @@ +2026-03-24 Mats Lidell + +* 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 * hui-mouse.el (hkey-alist): Add 'profiler-report-mode' support for jumping diff --git a/hui-mouse.el b/hui-mouse.el index 5e9ccd14..ba1e12fe 100644 --- a/hui-mouse.el +++ b/hui-mouse.el @@ -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 @@ -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 @@ -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 diff --git a/hywiki.el b/hywiki.el index 856f4d87..459a0e5a 100644 --- a/hywiki.el +++ b/hywiki.el @@ -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" @@ -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)