branch: elpa/geiser-guile
commit be00e7a8f7d2b716627eaf03837b5c1c83232a9d
Author: Jan Nieuwenhuizen <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
guile: fix manual symbol lookup.
* elisp/geiser-guile.el (guile--manual-look-up): Change parameters for
info-lookup-symbol to string and 'scheme-mode. Fixes lookup.
---
elisp/geiser-guile.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 5dd0c54..6b39435 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -1,6 +1,7 @@
;; geiser-guile.el -- guile's implementation of the geiser protocols
;; Copyright (C) 2009-2017 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2017 Jan Nieuwenhuizen <[email protected]>
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -401,12 +402,11 @@ it spawn a server thread."
(defun guile--manual-look-up (id mod)
(let ((info-lookup-other-window-flag
geiser-guile-manual-lookup-other-window-p))
- (info-lookup-symbol id 'geiser-guile-mode))
+ (info-lookup-symbol (symbol-name id) 'scheme-mode))
(when geiser-guile-manual-lookup-other-window-p
(switch-to-buffer-other-window "*info*"))
(search-forward (format "%s" id) nil t))
-
;;; Implementation definition:
