From 669960e216131b1ef5e26a368e28053eeab8aa9a Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 25 Aug 2022 00:26:16 +0100 Subject: New geiser-repl-switch[-to-module] obsoleting switch-to-geiser[module] --- elisp/geiser-impl.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index 67258cc..67af8f4 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -211,7 +211,8 @@ switcher (switch-to-NAME), and provides geiser-NAME." (unless (symbolp name) (error "Malformed implementation name: %s" name)) (let ((runner (intern (format "run-%s" name))) - (switcher (intern (format "switch-to-%s" name))) + (old-switcher (intern (format "switch-to-%s" name))) + (switcher (intern (format "geiser-%s-switch" name))) (runner-doc (format "Start a new %s REPL." name)) (switcher-doc (format "Switch to a running %s REPL, or start one." name)) @@ -224,10 +225,11 @@ switcher (switch-to-NAME), and provides geiser-NAME." ,runner-doc (interactive) (run-geiser ',name)) + (define-obsolete-function-alias ',old-switcher ',switcher "Geiser 0.26") (defun ,switcher (&optional ,ask) ,switcher-doc (interactive "P") - (switch-to-geiser ,ask ',name)) + (geiser-repl-switch ,ask ',name)) (geiser-menu--add-impl ',name ',runner ',switcher))))) ;;;###autoload -- cgit v1.2.3