diff options
| author | jao <jao@gnu.org> | 2022-08-25 00:26:16 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-25 01:20:19 +0100 |
| commit | 669960e216131b1ef5e26a368e28053eeab8aa9a (patch) | |
| tree | 50dc91aa5a6558e45e5456872d1691516883cfa5 /elisp/geiser-impl.el | |
| parent | 2695870666ed0c699f26421963ce69a321ec6016 (diff) | |
| download | geiser-669960e216131b1ef5e26a368e28053eeab8aa9a.tar.gz geiser-669960e216131b1ef5e26a368e28053eeab8aa9a.tar.bz2 | |
New geiser-repl-switch[-to-module] obsoleting switch-to-geiser[module]
Diffstat (limited to 'elisp/geiser-impl.el')
| -rw-r--r-- | elisp/geiser-impl.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |