branch: externals/hyperbole
commit e81710d3780ed68a8048a269cc2b1521f7ad58b7
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Suppress byte compile warnings calling org-id-get (#665)
Later version of org added a fourth argument that we want to use if
available.
---
ChangeLog | 5 +++++
hywiki.el | 7 ++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 3d658237d3..c813676b3a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2025-02-05 Mats Lidell <ma...@gnu.org>
+
+* hywiki.el (hywiki-add-org-id): Suppress byte compile warnings for calling
org-id-get with
+ different number of args. Later versions have a fourth optional arg that
we use.
+
2025-02-02 Mats Lidell <ma...@gnu.org>
* test/hui-tests.el (hui--kill-highlighted-region-default-settings): Add test
for hui-kill-region
diff --git a/hywiki.el b/hywiki.el
index d86850c7a6..eec6d973ab 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 21-Acpr-24 at 22:41:13
-;; Last-Mod: 2-Feb-25 at 14:45:23 by Bob Weiner
+;; Last-Mod: 5-Feb-25 at 22:21:38 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1113,9 +1113,10 @@ calling this function."
(user-error "(hywiki-add-org-id): Referent buffer <%s> must be in
org-mode, not %s"
(buffer-name)
major-mode))
- (let ((org-id (if (>= (action:param-count #'org-id-get) 4)
+ (let ((org-id (hyperb:with-suppressed-warnings ((callargs org-id-get))
+ (if (>= (action:param-count #'org-id-get) 4)
(org-id-get nil nil nil t)
- (org-id-get))))
+ (org-id-get)))))
(when (and (null org-id) buffer-read-only)
(user-error "(hywiki-add-org-id): Referent buffer <%s> point has no
Org ID and buffer is read-only"
(buffer-name)))
