commit 8284235929dc90557682f3c78cb27b1fda620737
parent 20b884ab7a79f5e47fe9dcc45da8e0223bf996a4
Author: Lou Woell <lou.woell@posteo.de>
Date:   Fri, 26 Sep 2025 03:40:54 +0200

[haredoc.el] Ignore unused arguments

Diffstat:

Mharedoc.el | 4+++-


1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/haredoc.el b/haredoc.el
@@ -93,7 +93,7 @@ containing this file.")
   'help-echo (purecopy "mouse-1, RET: describe this"))
 
 (define-button-type 'haredoc-module
-  'action #'(lambda (x) (haredoc/widen))
+  'action #'(lambda (x) (ignore x) (haredoc/widen))
   'help-echo (purecopy "mouse-1, RET: describe module"))
 
 (define-button-type 'haredoc-back
@@ -154,6 +154,7 @@ For everything but modules this will be equal to `haredoc-current-ns'.")
   "Go to previously shown hare documentation in current `haredoc-mode'
 buffer. See also `haredoc/forward'."
   (interactive)
+  (ignore args)
   (when-let ((item (pop haredoc-backward-stack)))
     (push haredoc-stack-item haredoc-forward-stack)
     (setq haredoc-stack-item nil)
@@ -162,6 +163,7 @@ buffer. See also `haredoc/forward'."
 (defun haredoc/forward (&optional args)
   "Inverse of `haredoc/back'."
   (interactive)
+  (ignore args)
   (when-let ((item (pop haredoc-forward-stack)))
     (push haredoc-stack-item haredoc-backward-stack)
     (setq haredoc-stack-item nil)