branch: elpa/geiser-gambit
commit 3a169a4537ba7c8d48b182847c5033e958cafb70
Author: jao <[email protected]>
Commit: jao <[email protected]>
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
