17 lines
657 B
EmacsLisp
17 lines
657 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))
|
|
|
|
;; See https://github.com/emacs-helm/helm/issues/2134 and
|
|
;; https://gitlab.com/jaor/geiser/issues/180
|
|
(when (>= emacs-major-version 26)
|
|
(setq geiser-completion--module-list-func
|
|
(completion-table-dynamic 'geiser-completion--module-list)))
|
|
|
|
(provide 'patch-geiser)
|