[nongnu] elpa/geiser 562baaf8b6 1/2: Make geiser-repl--maybe-send into a public function

[ELPA Syncer]

branch: elpa/geiser
commit 562baaf8b6aeba9e32896974c700fe9b0f1b2d6b
Author: Brian Leung <leungbk@posteo.net>
Commit: jao <jao@gnu.org>

    Make geiser-repl--maybe-send into a public function
    
    Some authors of downstream packages are reluctant to do stuff with
    upstream packages' private functions.
    
    (for example, 
https://github.com/abo-abo/swiper/pull/2235#issuecomment-537399457)
---
 elisp/geiser-repl.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 22fbf289b2..c9d3eee428 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -834,7 +834,9 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
         (comint-send-string proc (geiser-eval--scheme-str '(:ge no-values)))
         (comint-send-string proc "\n")))))
 
-(defun geiser-repl--maybe-send ()
+(define-obsolete-function-alias 'geiser-repl--maybe-send 
#'geiser-repl-maybe-send "0.25.2")
+
+(defun geiser-repl-maybe-send ()
   (interactive)
   (let ((p (point)))
     (cond ((< p (geiser-repl--last-prompt-start))
@@ -880,8 +882,8 @@ buffer."
     (set-keymap-parent map comint-mode-map)
 
     (define-key map "\C-d" 'delete-char)
-    (define-key map "\C-m" 'geiser-repl--maybe-send)
-    (define-key map "\r" 'geiser-repl--maybe-send)
+    (define-key map "\C-m" 'geiser-repl-maybe-send)
+    (define-key map "\r" 'geiser-repl-maybe-send)
     (define-key map "\C-j" 'geiser-repl--newline-and-indent)
     (define-key map (kbd "TAB") 'geiser-repl-tab-dwim)
     (define-key map [backtab] 'geiser-repl--previous-error)