From 0085c16dc3add5722e86c738c0ff1fa969183d86 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 2 Mar 2009 19:12:37 +0100 Subject: Correctly specify current module in REPL (and make it generic). --- elisp/geiser-eval.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-eval.el') diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index 09f12da..3e5e7aa 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -30,6 +30,19 @@ (require 'geiser-log) (require 'geiser-base) + +;;; Plug-able functions: + +(make-variable-buffer-local + (defvar geiser-eval--current-module-function 'geiser-syntax--buffer-module)) + +(defsubst geiser-eval--current-module-function (fun) + (setq geiser-eval--current-module-function fun)) + +(defsubst geiser-eval--current-module () + (and geiser-eval--current-module-function + (funcall geiser-eval--current-module-function))) + ;;; Code formatting: @@ -66,7 +79,7 @@ (defsubst geiser-eval--module (code) (geiser-eval--scheme-str (cond ((or (eq code '(())) (null code)) - `(quote ,(or (geiser-syntax--buffer-module) :f))) + `(quote ,(or (geiser-eval--current-module) :f))) ((listp code) `(quote ,code)) ((stringp code) (:scm code)) (t (error "Invalid module spec: %S" code))))) -- cgit v1.2.3