[nongnu] elpa/geiser 3b02581c84: fixes for new button types handling

[ELPA Syncer]

branch: elpa/geiser
commit 3b02581c8422d416d1d4dc3168db5cf7b0ef16fc
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    fixes for new button types handling
    
    Fixes issue #68.
---
 elisp/geiser-doc.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 14350627c0..5d1d04b63c 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -1,6 +1,6 @@
 ;;; geiser-doc.el --- Accessing scheme-provided documentation  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2009-2016, 2021-2022 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2016, 2021-2022, 2024 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -182,7 +182,7 @@ value if the default action should be skipped.")
   'help-echo "Go to definition"
   'follow-link t)
 
-(defun geiser-doc-goto-source ()
+(defun geiser-doc-goto-source (&rest _)
   "Go to the definition of this item."
   (interactive)
   (when-let (link geiser-doc--buffer-link)
@@ -197,7 +197,7 @@ value if the default action should be skipped.")
   'help-echo "Look up in Scheme manual"
   'follow-link t)
 
-(defun geiser-doc-goto-manual ()
+(defun geiser-doc-goto-manual (&rest _)
   "Go to the manual for this item."
   (interactive)
   (when-let (link geiser-doc--buffer-link)
@@ -208,7 +208,7 @@ value if the default action should be skipped.")
 
 (defun geiser-doc--insert-doc-buttons (impl)
   (when (geiser-impl--method 'external-help impl)
-    (insert-text-button "[manual]" :type 'geiser-doc--xbutton)
+    (insert-text-button "[manual]" :type 'geiser-doc-manual)
     (insert " "))
   (insert-text-button "[source]" :type 'geiser-doc-source))