summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-24 20:20:24 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-24 20:20:24 +0200
commit1036c4ca03505436221ab5bace389c8ad000b867 (patch)
tree776990308e4fc98daec312b6866ffd58e6e9da6c /elisp
parentaa0126ced4d1b35d7e8c7ea5e49637dbed997bb5 (diff)
downloadgeiser-chez-1036c4ca03505436221ab5bace389c8ad000b867.tar.gz
geiser-chez-1036c4ca03505436221ab5bace389c8ad000b867.tar.bz2
PLT: correct (or, at least, better) computation of module names.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-plt.el10
1 files changed, 6 insertions, 4 deletions
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: