branch: elpa/geiser-kawa
commit 52605a4760835264450b41cb2429e7ef8b28afb3
Author: spellcard199 <[email protected]>
Commit: spellcard199 <[email protected]>
melpa/melpa#6858 - Rename 'geiser-kawa-deps--run-kawa--compil-hook' to
'geiser-kawa-deps--run-kawa--compile-hook'
---
elisp/geiser-kawa-deps.el | 6 +++---
elisp/geiser-kawa.el | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/elisp/geiser-kawa-deps.el b/elisp/geiser-kawa-deps.el
index 7e20135..b3e7615 100644
--- a/elisp/geiser-kawa-deps.el
+++ b/elisp/geiser-kawa-deps.el
@@ -44,7 +44,7 @@ at REPL startup."
(goto-char (point-max))
(switch-to-buffer-other-window save-buf)))))
-(defun geiser-kawa-deps--run-kawa--compil-hook(_buf _desc)
+(defun geiser-kawa-deps--run-kawa--compile-hook(_buf _desc)
"Hook to run Kawa when the next compilation finishes.
Only starts Kawa if after compilation is done file at
`geiser-kawa-deps-jar-path' exists.
@@ -58,12 +58,12 @@ Argument DESC is passed by Emacs when compilation finishes."
;; recursion.
(run-geiser 'kawa))
(remove-hook 'compilation-finish-functions
- #'geiser-kawa-deps--run-kawa--compil-hook))
+ #'geiser-kawa-deps--run-kawa--compile-hook))
(defun geiser-kawa-deps-mvnw-package--and-run-kawa ()
"Run `mvn package' and run Kawa if resulting jar exists."
(add-hook 'compilation-finish-functions
- #'geiser-kawa-deps--run-kawa--compil-hook)
+ #'geiser-kawa-deps--run-kawa--compile-hook)
(geiser-kawa-deps-mvnw-package geiser-kawa-dir))
(provide 'geiser-kawa-deps)
diff --git a/elisp/geiser-kawa.el b/elisp/geiser-kawa.el
index b7ff480..71ecbef 100644
--- a/elisp/geiser-kawa.el
+++ b/elisp/geiser-kawa.el
@@ -152,7 +152,7 @@ Compared to the `run-kawa' function defined by
`define-geiser-implementation', this function also prompts the user to
package java dependencies if the file at `geiser-kawa-deps-jar-path'
does not exists.
-Since both here and in `geiser-kawa-deps--run-kawa--compil-hook' we
+Since both here and in `geiser-kawa-deps--run-kawa--compile-hook' we
are calling `run-geiser' instead of `run-kawa' directly, one can also
advice `run-kawa' overriding it with `geiser-kawa-run-kawa' without it
becoming an infinite recursion."
