[nongnu] elpa/geiser-chicken 960a514 094/102: external help fix

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 960a514594c3fadc14def866c940a01d0f738230
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    external help fix
    
    Fixes an issue where chicken 5 users were taken to the chicken 4
    external docs for the given query. With this update, users will be
    taken to chicken 5 or 4 docs based on the result
    of (geiser-chicken--version).
    
    By Andrew Eggenberger (@aeggenberger)
---
 geiser-chicken.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/geiser-chicken.el b/geiser-chicken.el
index ebebe7a..41d903b 100644
--- a/geiser-chicken.el
+++ b/geiser-chicken.el
@@ -225,7 +225,9 @@ This function uses `geiser-chicken-init-file' if it exists."
 
 (defun geiser-chicken--external-help (id module)
   "Loads chicken doc into a buffer"
-  (browse-url (format "http://api.call-cc.org/cdoc?q=%s&query-name=Look+up"; 
id)))
+  (let* ((version (geiser-chicken--version (geiser-chicken--binary)))
+        (major-version (first (split-string version "\\\."))))
+    (browse-url (format 
"http://api.call-cc.org/%s/cdoc?q=%s&query-name=Look+up"; major-version id))))
 
 
 ;;; Keywords and syntax