[nongnu] elpa/geiser 550d57d347 2/2: undeclared function moved around

[ELPA Syncer]

branch: elpa/geiser
commit 550d57d347b6a2387d633c3da90460106dfcd3e3
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    undeclared function moved around
---
 elisp/geiser-compile.el | 13 +------------
 elisp/geiser-repl.el    |  9 +++++++++
 2 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index b1a07ff2b6..9ea9fcaf62 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -1,6 +1,6 @@
 ;;; geiser-compile.el -- compile/load scheme files  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2016, 2018, 2021 Jose Antonio 
Ortega Ruiz
+;; Copyright (C) 2009-2013, 2016, 2018, 2021-2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -81,15 +81,4 @@ With prefix, restart REPL before loading the file."
   (geiser-compile--ensure-repl restart)
   (geiser-load-file (buffer-file-name (current-buffer))))
 
-;;;###autoload
-(defun geiser-add-to-load-path (path)
-  "Add a new directory to running Scheme's load path.
-When called interactively, this function will ask for the path to
-add, defaulting to the current buffer's directory."
-  (interactive "DDirectory to add: ")
-  (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
-         (r (geiser-eval--send/result c)))
-    (message "%s%s added to load path" path (if r "" " couldn't be"))))
-
-
 (provide 'geiser-compile)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 26f4168a77..28a1584461 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -1137,6 +1137,15 @@ With a prefix argument, force exit by killing the scheme 
process."
     (when (re-search-backward comint-prompt-regexp nil 'go n)
       (goto-char (match-end 0)))))
 
+(defun geiser-add-to-load-path (path)
+  "Add a new directory to running Scheme's load path.
+When called interactively, this function will ask for the path to
+add, defaulting to the current buffer's directory."
+  (interactive "DDirectory to add: ")
+  (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
+         (r (geiser-eval--send/result c)))
+    (message "%s%s added to load path" path (if r "" " couldn't be"))))
+
 
 ;;; Unload: