From 2565c66ed06e30885ee884d52eac824e23d55707 Mon Sep 17 00:00:00 2001 Message-Id: <2565c66ed06e30885ee884d52eac824e23d55707.1666153213.git.yantar92@posteo.net> From: Ihor Radchenko Date: Wed, 19 Oct 2022 12:18:00 +0800 Subject: [PATCH] ob-scheme: Use new function name `geiser' instead of deprecated `run-geiser' * lisp/ob-scheme.el (geiser): Declare function. (org-babel-scheme-get-repl): Use `geiser' when available. Reported-by: Daniel Ziltener Link: https://orgmode.org/list/b0c62bc5-468a-31ce-2a42-c67c57117865@lyrion.ch --- lisp/ob-scheme.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 8e3d48c32..00c50d63d 100644 --- a/lisp/ob-scheme.el +++ b/lisp/ob-scheme.el @@ -55,7 +55,11 @@ (defvar geiser-debug-jump-to-debug-p) ; Defined in geiser-debug.el (defvar geiser-repl-use-other-window) ; Defined in geiser-repl.el (defvar geiser-repl-window-allow-split) ; Defined in geiser-repl.el +;; FIXME: `run-geiser' is obsolete since Geiser 0.26. `geiser' is the +;; new name. (declare-function run-geiser "ext:geiser-repl" (impl)) +(declare-function geiser "ext:geiser-repl" (impl)) + (declare-function geiser-mode "ext:geiser-mode" ()) (declare-function geiser-eval-region "ext:geiser-mode" (start end &optional and-go raw nomsg)) @@ -120,7 +124,10 @@ (defun org-babel-scheme-get-repl (impl name) (let ((buffer (org-babel-scheme-get-session-buffer name))) (or buffer (progn - (run-geiser impl) + (if (fboundp 'geiser) + (geiser impl) + ;; FIXME: Obsolete since Geiser 0.26. + (run-geiser impl)) (when name (rename-buffer name t) (org-babel-scheme-set-session-buffer name (current-buffer))) -- 2.35.1