[nongnu] elpa/geiser-gambit 3a169a4 30/34: autoloads and compilation fix

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit 3a169a4537ba7c8d48b182847c5033e958cafb70
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    autoloads and compilation fix
---
 geiser-gambit.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/geiser-gambit.el b/geiser-gambit.el
index dd7d352..e780b4b 100644
--- a/geiser-gambit.el
+++ b/geiser-gambit.el
@@ -187,7 +187,7 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
   "Return REPL exit command."
   ",q")
 
-(defun geiser-gambit--symbol-begin (module)
+(defun geiser-gambit--symbol-begin (_module)
   "Return beginning of current symbol while in MODULE."
   (save-excursion (skip-syntax-backward "^-()> ") (point)))
 
@@ -316,7 +316,7 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
        `( "-:d-" ,(expand-file-name "geiser/gambit.scm" 
geiser-gambit-scheme-dir) "-" )
       `("-:d-" "gambit/geiser.scm" "-"))))
 
-#;;;autoload
+;;;###autoload
 (defun connect-to-gambit ()
   "Start a Gambit REPL connected to a remote process."
   (interactive)
@@ -352,5 +352,12 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
 
 (geiser-impl--add-to-alist 'regexp "\\.scm$" 'gambit t)
 
+;;;###autoload
+(autoload 'run-gambit "geiser-gambit" "Start a Geiser Gambit REPL." t)
+
+;;;###autoload
+(autoload 'switch-to-gambit "geiser-gambit"
+  "Start a Geiser Gambit REPL, or switch to a running one." t)
+
 (provide 'geiser-gambit)
 ;;; geiser-gambit.el ends here