diff options
| -rw-r--r-- | elisp/geiser-doc.el | 8 |
1 files 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)) |