diff options
| author | Brian Leung <leungbk@posteo.net> | 2022-08-24 02:55:28 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-24 18:04:45 +0100 |
| commit | 562baaf8b6aeba9e32896974c700fe9b0f1b2d6b (patch) | |
| tree | d324727c36dfb5009cc547a8fc07b7ad39895734 | |
| parent | c681e2b2e92da2e856835449d7097bbe67394a52 (diff) | |
| download | geiser-562baaf8b6aeba9e32896974c700fe9b0f1b2d6b.tar.gz geiser-562baaf8b6aeba9e32896974c700fe9b0f1b2d6b.tar.bz2 | |
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)
| -rw-r--r-- | elisp/geiser-repl.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 22fbf28..c9d3eee 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) |