fix buttons

lisp/my/my-tool-bar.el

@@ -70,7 +70,7 @@
   "Run `kill-region'."
   (interactive "e")
   (let ()
-    (kill-region)))
+    (kill-region (mark) (point))))
 (defvar my-tool-bar-button-cut "Cut "
   "Button to run `cut-region'.")
 
@@ -78,7 +78,7 @@
   "Run `kill-ring-save'."
   (interactive "e")
   (let ()
-    (kill-ring-save)))
+    (kill-ring-save (mark) (point))))
 (defvar my-tool-bar-button-copy "Copy "
   "Button to run `kill-ring-save'.")
 
@@ -91,10 +91,10 @@
   "Button to run `yank'.")
 
 (defun my-tool-bar-function-fill (event)
-  "Run `fill-region'."
+  "Run `fill-paragraph'."
   (interactive "e")
   (let ()
-    (fill-region)))
+    (fill-paragraph)))
 (defvar my-tool-bar-button-fill "Fill "
   "Button to run `fill-region'.")
 
@@ -106,11 +106,17 @@
 (defvar my-tool-bar-button-spell "Spell "
   "Button to run `flyspell-buffer'.")
 
+(defun my-langtool-active-p ()
+  "Check if `langtool-check-buffer' is active."
+  (save-excursion
+    (not (null (langtool--overlays-region (point-min) (point-max))))))
 (defun my-tool-bar-function-langtool (event)
   "Run `langtool-check-buffer'."
   (interactive "e")
   (let ()
-    (langtool-check-buffer)))
+    (if (my-langtool-active-p)
+        (langtool-check-done)
+      (langtool-check-buffer))))
 (defvar my-tool-bar-button-langtool "langtool "
   "Button to run `langtool-check-buffer'.")