[elpa] externals/org 2ab762e93b 1/3: ob-scheme: Use new `geiser' function when available

[ELPA Syncer]

branch: externals/org
commit 2ab762e93b84f23d3b19465e8d2efefca1888156
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ob-scheme: Use new `geiser' function when available
    
    * lisp/ob-scheme.el (geiser): Add new declare.
    (org-babel-scheme-get-repl): When possible, call the newer `geiser'
    instead of the obsolete `run-geiser'.
---
 lisp/ob-scheme.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 8e3d48c325..cfeb1a0adc 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -56,6 +56,7 @@
 (defvar geiser-repl-window-allow-split)        ; Defined in geiser-repl.el
 
 (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 +121,10 @@
   (let ((buffer (org-babel-scheme-get-session-buffer name)))
     (or buffer
        (progn
-         (run-geiser impl)
+          (if (fboundp 'geiser)
+              (geiser impl)
+            ;; Obsolete since Geiser 0.26.
+           (run-geiser impl))
          (when name
            (rename-buffer name t)
            (org-babel-scheme-set-session-buffer name (current-buffer)))