[nongnu] elpa/geiser-guile ebdd1923b0: Add info index nodes customization.

[ELPA Syncer]

branch: elpa/geiser-guile
commit ebdd1923b0780778706ea6b16aa2b0ce3e7dc33d
Author: gemmaro <gemmaro.dev@gmail.com>
Commit: gemmaro <gemmaro.dev@gmail.com>

    Add info index nodes customization.
    
    * geiser-guile.el (geiser-guile-manual-lookup-indices): Add a custom
    variable to add user defined index nodes.
    (geiser-guile--info-spec): Use the newly added custom variable.
---
 geiser-guile.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index a282fa3d1e..8827b421e9 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -169,6 +169,11 @@ effect on new REPLs.  For existing ones, use the command
   "List of info nodes that, when present, are used for manual lookups."
   :type '(repeat string))
 
+(geiser-custom--defcustom geiser-guile-manual-lookup-indices
+    '("R5RS Index" "Concept Index" "Procedure Index" "Variable Index")
+  "List of info index nodes that, when present, are used for manual lookups."
+  :type '(repeat string))
+
 (geiser-custom--defcustom geiser-guile-doc-process-texinfo nil
   "Non-nil means try to convert docstrings from texinfo into plain-text.
 
@@ -658,7 +663,7 @@ See `geiser-guile-use-declarative-modules'."
         (mapc (lambda (idx)
                 (add-to-list 'res
                              (list (format "(%s)%s" node idx) nil nrx drx)))
-              '("R5RS Index" "Concept Index" "Procedure Index" "Variable 
Index"))))))
+              geiser-guile-manual-lookup-indices)))))
 
 (info-lookup-add-help :topic 'symbol
                       :mode 'geiser-guile-mode