From 03a0583875bd3ad56a12dec296002e99b073ca75 Mon Sep 17 00:00:00 2001 From: Brian Leung Date: Mon, 21 Oct 2019 16:49:08 -0700 Subject: elisp/geiser.doc.el: Add geiser-doc-manual-for-symbol. --- elisp/geiser-doc.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-doc.el') diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 7810957..a982997 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -382,6 +382,11 @@ With prefix argument, ask for symbol (with completion)." "Symbol: " (geiser--symbol-at-point))))) (when symbol (geiser-doc-symbol symbol)))) +(defun geiser-doc-manual-for-symbol (symbol) + (geiser-doc--external-help geiser-impl--implementation + symbol + (geiser-eval--get-module))) + (defun geiser-doc-look-up-manual (&optional arg) "Look up manual for symbol at point. With prefix argument, ask for the lookup symbol (with completion)." @@ -390,9 +395,7 @@ With prefix argument, ask for the lookup symbol (with completion)." (error "No manual available")) (let ((symbol (or (and (not arg) (geiser--symbol-at-point)) (geiser-completion--read-symbol "Symbol: ")))) - (geiser-doc--external-help geiser-impl--implementation - symbol - (geiser-eval--get-module)))) + (geiser-doc-manual-for-symbol symbol))) (defconst geiser-doc--sections '(("Procedures:" "procs") ("Syntax:" "syntax") -- cgit v1.2.3