branch: externals/hyperbole
commit fec6d8b33c0c5f1641c619ac7bb228d1d46ffff5
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
fix warnings (#751)
---
hsys-consult.el | 8 +++++---
hyrolo.el | 14 +++++++-------
kotl/kotl-mode.el | 4 ++--
3 files changed, 14 insertions(+), 12 deletions(-)
diff --git a/hsys-consult.el b/hsys-consult.el
index b2ab810ad2..eb3c127df5 100644
--- a/hsys-consult.el
+++ b/hsys-consult.el
@@ -2,7 +2,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 4-Jul-24 at 09:57:18
-;; Last-Mod: 15-Jun-25 at 18:59:52 by Bob Weiner
+;; Last-Mod: 18-Jun-25 at 00:27:08 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -44,7 +44,8 @@
(declare-function hsys-org-at-tags-p "hsys-org")
(declare-function consult--grep "ext:consult")
-(declare-function consult--grep-make-builder"ext:consult")
+(declare-function consult--grep-make-builder "ext:consult")
+(declare-function consult--read "ext:consult")
(declare-function consult--ripgrep-make-builder "ext:consult")
(declare-function consult-grep "ext:consult")
(declare-function consult-ripgrep "ext:consult")
@@ -53,9 +54,10 @@
(declare-function org-roam-node-level "ext:org-roam")
;; Forward declarations
+(defvar consult-async-split-style)
(defvar consult-grep-args)
+(defvar consult-preview-key)
(defvar consult-ripgrep-args)
-(defvar consult-async-split-style)
(defvar org-roam-db-autosync-mode)
(defvar org-roam-directory)
diff --git a/hyrolo.el b/hyrolo.el
index b0ccd0fdb0..18ff1ed3d8 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 7-Jun-89 at 22:08:29
-;; Last-Mod: 15-Jun-25 at 23:20:28 by Bob Weiner
+;; Last-Mod: 18-Jun-25 at 00:33:04 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -736,11 +736,11 @@ matches."
Return count of matches.
To a maximum of optional prefix arg MAX-MATCHES, in file(s) from optional
-HYROLO-FILES-OR-BUFS or `hyrolo-file-list'. Default is to find all matching
entries.
-Each entry is displayed with all of its sub-entries. Optional COUNT-ONLY
-non-nil skips retrieval of matching entries. Optional HEADLINE-ONLY searches
-only the first line of entries, not the full text. Optional NO-DISPLAY non-nil
-retrieves entries but does not display them.
+HYROLO-FILES-OR-BUFS or `hyrolo-file-list'. Default is to find all matching
+entries. Each entry is displayed with all of its sub-entries. Optional
+COUNT-ONLY non-nil skips retrieval of matching entries. Optional HEADLINE-ONLY
+searches only the first line of entries, not the full text. Optional
+NO-DISPLAY non-nil retrieves entries but does not display them.
Nil value of MAX-MATCHES means find all entries that match, t value means find
all matching entries but omit file headers, negative values mean find up to the
@@ -3013,7 +3013,7 @@ a default of MM/DD/YYYY."
(defun hyrolo-grep-input (read-function prompt &optional path-list)
"Use `consult-grep' if available or READ-FUNCTION with PROMPT.
-Grep over optional 'path-list' or `hyrolo-file-list', which may
+Grep over optional `path-list' or `hyrolo-file-list', which may
contain wildcards. Return the input read, to be fed to a HyRolo
grep call."
(if (and (fboundp 'consult-grep)
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 236cd90fe2..337c8f0471 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 6/30/93
-;; Last-Mod: 27-May-25 at 21:28:51 by Bob Weiner
+;; Last-Mod: 18-Jun-25 at 00:36:26 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1978,7 +1978,7 @@ The line number is relative to the accessible portion of
the narrowed
buffer. The argument BUFFER is the same as in the function `goto-line'."
(declare (interactive-only forward-line))
(interactive (goto-line-read-args t))
- (with-suppressed-warnings ((interactive-only goto-line))
+ (with-suppressed-warnings ((interactive-only kotl-mode:goto-line))
(kotl-mode:goto-line line buffer t)))
(defun kotl-mode:head-cell ()
