From 04e8eedba2e674b1faf368a5518e7e2e51971510 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 11 May 2009 02:07:40 +0200 Subject: PLT: fixes for module name parsing (C-cC-em works now). --- elisp/geiser-plt.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index 1b539f8..cfc0909 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -64,9 +64,9 @@ This function uses `geiser-plt-init-file' if it exists." (expand-file-name geiser-plt-init-file)))) `("-i" "-q" "-S" ,(expand-file-name "plt/" geiser-scheme-dir) - "-f" ,(expand-file-name "plt/geiser.ss" geiser-scheme-dir) ,@(and (listp geiser-plt-binary) (cdr geiser-plt-binary)) - ,@(and init-file (file-readable-p init-file) (list "-f" init-file))))) + ,@(and init-file (file-readable-p init-file) (list "-f" init-file)) + "-f" ,(expand-file-name "plt/geiser.ss" geiser-scheme-dir)))) (defconst geiser-plt-prompt-regexp "^mzscheme@([^)]*?)> ") @@ -99,7 +99,10 @@ This function uses `geiser-plt-init-file' if it exists." (defun geiser-plt-get-module (&optional module) (cond ((and (null module) (geiser-plt--explicit-module))) ((null module) (buffer-file-name)) - (t module))) + ((symbolp module) (list 'quote module)) + ((and (stringp module) (file-name-absolute-p module)) module) + ((stringp module) (list 'quote (intern module))) + (t nil))) (defun geiser-plt-symbol-begin (module) (save-excursion (skip-syntax-backward "^-()>") (point))) -- cgit v1.2.3