11 lines
406 B
EmacsLisp
11 lines
406 B
EmacsLisp
;; 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))
|
|
|
|
(provide 'patch-geiser)
|