geiser-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Geiser-users] [PATCH] guile: fix manual symbol lookup.


From: Jan Nieuwenhuizen
Subject: [Geiser-users] [PATCH] guile: fix manual symbol lookup.
Date: Tue, 10 Oct 2017 21:43:59 +0200

* 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 <address@hidden>
 
 ;; 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:
 
-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | AvatarĀ® http://AvatarAcademy.com




reply via email to

[Prev in Thread] Current Thread [Next in Thread]