diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-23 15:53:43 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-23 15:53:43 +0200 |
| commit | 3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1 (patch) | |
| tree | 732034af1ced75028341e0e780c817a396e4a3a1 | |
| parent | 4bda1c36b7f8cbd202c5511f6707f17ce1399852 (diff) | |
| download | geiser-3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1.tar.gz geiser-3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1.tar.bz2 | |
Bug fix: correct generation of per implementation switch-to functions.
| -rw-r--r-- | elisp/geiser-impl.el | 10 |
1 files changed, 6 insertions, 4 deletions
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) |