From 247c7d5f93539f7e183909917d8f3eab7156ed47 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 25 Aug 2022 01:46:42 +0100 Subject: run-geiser obsoleted (just use M-x geiser) --- elisp/geiser-impl.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index 67af8f4..689388b 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -204,27 +204,29 @@ Here's how a typical call to this macro looks like: (keywords geiser-guile--keywords) (case-sensitive geiser-guile-case-sensitive-p)) -This macro also defines a runner function (run-NAME) and a -switcher (switch-to-NAME), and provides geiser-NAME." +This macro also defines a runner function (geiser-NAME) and a +switcher (geiser-NAME-switch), and provides geiser-NAME." (let ((name (if (listp name) (car name) name)) (parent (and (listp name) (cadr name)))) (unless (symbolp name) (error "Malformed implementation name: %s" name)) - (let ((runner (intern (format "run-%s" name))) + (let ((old-runner (intern (format "run-%s" name))) + (runner (intern (format "geiser-%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)) - (ask (make-symbol "ask"))) + (ask (gensym "ask"))) `(progn (geiser-impl--define load-file-name ',name ',parent ',methods) (require 'geiser-repl) (require 'geiser-menu) + (define-obsolete-function-alias ',old-runner ',runner "Geiser 0.26") (defun ,runner () ,runner-doc (interactive) - (run-geiser ',name)) + (geiser ',name)) (define-obsolete-function-alias ',old-switcher ',switcher "Geiser 0.26") (defun ,switcher (&optional ,ask) ,switcher-doc -- cgit v1.2.3