diff options
author | jao <jao@gnu.org> | 2024-07-26 13:17:56 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2024-07-26 13:17:56 +0100 |
commit | 3b02581c8422d416d1d4dc3168db5cf7b0ef16fc (patch) | |
tree | 5f2bab83dd39f40ddf11d126a201cf47021cf921 | |
parent | a81969a5271f155d2d1e389ccbe47e1c7ec36ae7 (diff) | |
download | geiser-3b02581c8422d416d1d4dc3168db5cf7b0ef16fc.tar.gz geiser-3b02581c8422d416d1d4dc3168db5cf7b0ef16fc.tar.bz2 |
fixes for new button types handling
Fixes issue #68.
-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)) |