Scheme/Geiser: Include GUILE--MANUAL-LOOK-UP patch

.emacs.d/lisp/init-lisp.el

@@ -147,6 +147,7 @@
 ;; (setq geiser-repl-skip-version-check-p t
 ;;       geiser-mode-start-repl-p t)
 (with-eval-after-load 'scheme
+  (require 'patch-geiser nil 'noerror)
   (when (require 'patch-scheme nil t)
     (setq scheme-imenu-generic-expression
           al/scheme-imenu-generic-expression)

.emacs.d/lisp/patch-geiser.el

@@ -0,0 +1,8 @@
+;; See https://gitlab.com/jaor/geiser/issues/252.
+(defun guile--manual-look-up (id mod)
+  (let ((info-lookup-other-window-flag
+         geiser-guile-manual-lookup-other-window-p))
+    (info-lookup-symbol (symbol-name id) 'geiser-guile-mode))
+  (when geiser-guile-manual-lookup-other-window-p
+    (switch-to-buffer-other-window "*info*"))
+  (search-forward (format "%s" id) nil t))