From 46d6d573013661b3266ca3d0bd77b8a26a738eef Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
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')
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