From 61980976477f4d21e7645820e466e2577c075d6b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 24 May 2009 20:20:24 +0200 Subject: PLT: correct (or, at least, better) computation of module names. --- elisp/geiser-plt.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index bcfbddc..cfac8c7 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -105,15 +105,15 @@ This function uses `geiser-plt-init-file' if it exists." (save-excursion (goto-char (point-min)) (if (re-search-forward "^#lang " nil t) - (buffer-name) + (buffer-file-name) :f))) (defun geiser-plt-get-module (&optional module) (cond ((and (null module) (geiser-plt--explicit-module))) ((null module) (geiser-plt--implicit-module)) - ((symbolp module) (list 'quote module)) + ((symbolp module) module) ((and (stringp module) (file-name-absolute-p module)) module) - ((stringp module) (list 'quote (intern module))) + ((stringp module) (intern module)) (t nil))) (defun geiser-plt-symbol-begin (module) @@ -123,7 +123,9 @@ This function uses `geiser-plt-init-file' if it exists." ;;; External help (defun geiser-plt-external-help (symbol module) (message "Requesting help for '%s'..." symbol) - (geiser-eval--send/wait `(:eval (help ,symbol) scheme/help))) + (geiser-eval--send/wait `(:eval (help ,symbol) scheme)) + (message "%s done" (current-message)) + t) ;;; Trying to ascertain whether a buffer is mzscheme scheme: -- cgit v1.2.3