[nongnu] elpa/geiser-kawa ed8d954 055/119: Rename funcs

[Philip Kaludercic]

branch: elpa/geiser-kawa
commit ed8d954f01e65629490f1c663990239028c558b0
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    Rename funcs
---
 elisp/geiser-kawa-complete-java.el |  4 +++-
 elisp/geiser-kawa.el               | 21 +++++++++++++--------
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-kawa-complete-java.el 
b/elisp/geiser-kawa-complete-java.el
index 9e8e64b..579871a 100644
--- a/elisp/geiser-kawa-complete-java.el
+++ b/elisp/geiser-kawa-complete-java.el
@@ -152,7 +152,7 @@
      `("code-str"     . ,code-str)
      `("cursor-index" . ,cursor-index))))
 
-(defun geiser-kawa-complete-java-fmp-at-point ()
+(defun geiser-kawa-complete-fmp-at-point ()
   (interactive)
   "Complete java field or method or package (fmp) at point"
 
@@ -176,3 +176,5 @@
     ))
 
 (provide 'geiser-kawa-complete-java)
+
+;;; geiser-kawa-complete-java.el ends here
diff --git a/elisp/geiser-kawa.el b/elisp/geiser-kawa.el
index f9b8dc2..33fffae 100644
--- a/elisp/geiser-kawa.el
+++ b/elisp/geiser-kawa.el
@@ -97,21 +97,28 @@
         (end-of-buffer)
         (switch-to-buffer-other-window save-buf)))))
 
-(defun geiser-kawa--deps-run-kawa-advice-add()
+(defun geiser-kawa--deps-run-kawa--advice-add()
   (add-function :override
                 (symbol-function 'run-kawa)
                 #'geiser-kawa--deps-run-kawa-advice))
 
-(defun geiser-kawa--deps-run-kawa-advice-remove()
+(defun geiser-kawa--deps-run-kawa--advice-remove()
   (remove-function (symbol-function 'run-kawa)
                    #'geiser-kawa--deps-run-kawa-advice))
 
 (defun geiser-kawa--deps-run-kawa-unadviced()
-  (geiser-kawa--deps-run-kawa-advice-remove)
+  (geiser-kawa--deps-run-kawa--advice-remove)
   (run-kawa)
   (geiser-kawa--deps-run-kawa-advice-add))
 
-(defun geiser-kawa--deps-run-kawa-removecompilhook(buf desc)
+(defun geiser-kawa--deps-run-kawa--add-compil-hook()
+  ;; The added hook auto-removes itself after being called once.
+  (add-hook 'compilation-finish-functions
+            #'geiser-kawa--deps-run-kawa--remove-compil-hook))
+
+(defun geiser-kawa--deps-run-kawa-remove-compil-hook(buf desc)
+  ;; Removes itself from `compilation-finish-functions'
+  ;; when called.
   (geiser-kawa--deps-run-kawa-unadviced)
   (remove-hook 'compilation-finish-functions
                #'geiser-kawa--deps-run-kawa-remove-compil-hook))
@@ -121,9 +128,7 @@
       (geiser-kawa--deps-run-kawa-unadviced)
     (when (y-or-n-p
            "geiser-kawa depends on additional java libraries. Do you want to 
download and compile them now?")
-      (add-hook
-       'compilation-finish-functions
-       #'geiser-kawa--deps-run-kawa-removecompilhook)
+      (geiser-kawa--deps-run-kawa--add-compil-hook)
       (geiser-kawa-deps-mvn-package))))
 
 
@@ -424,7 +429,7 @@ Argument MOD is passed by geiser, but it's not used here."
 (geiser-impl--add-to-alist 'regexp "\\.sld$" 'kawa t)
 
 ;; Check for kawa-geiser jar each time `run-kawa' is called.
-(geiser-kawa--deps-run-kawa-advice-add)
+(geiser-kawa--deps-run-kawa--advice-add)
 
 (provide 'geiser-kawa)