From 3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 23 Sep 2009 15:53:43 +0200 Subject: Bug fix: correct generation of per implementation switch-to functions. --- elisp/geiser-impl.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index f7805f1..c430317 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -141,9 +141,10 @@ determine its scheme flavour." (unless (symbolp name) (error "Malformed implementation name: %s" name)) (let ((runner (intern (format "run-%s" name))) - (switcher (intern (format "switch-%s" name))) + (switcher (intern (format "switch-to-%s" name))) (runner-doc (format "Start a new %s REPL." name)) - (switcher-doc (format "Switch to a running %s REPL, or start one." name))) + (switcher-doc (format "Switch to a running %s REPL, or start one." name)) + (ask (make-symbol "ask"))) `(progn (geiser-impl--define ,load-file-name ',name ',parent ',methods) (require 'geiser-repl) @@ -151,9 +152,10 @@ determine its scheme flavour." ,runner-doc (interactive) (run-geiser ',name)) - (defun ,switcher (&optional ask) + (defun ,switcher (&optional ,ask) + ,switcher-doc (interactive "P") - (switch-to-geiser ask ',name)) + (switch-to-geiser ,ask ',name)) (provide ',(geiser-impl--feature name)))))) (defun geiser-impl--add-to-alist (kind what impl) -- cgit v1.2.3