From 3b02581c8422d416d1d4dc3168db5cf7b0ef16fc Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 26 Jul 2024 13:17:56 +0100 Subject: 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 1435062..5d1d04b 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)) -- cgit v1.2.3