fix: 1. missing group for mode 2. wrong close parenthesis position

Author: laishulu

sis.el

@@ -247,6 +247,7 @@ custom function: the cursor will be moved to the end of the inline region, and
 (define-minor-mode sis-log-mode
   "Log the execution of this package."
   :global t
+  :group 'sis
   :init-value nil)
 
 ;;
@@ -605,6 +606,7 @@ TYPE: TYPE can be \\='native, \\='w32, \\='emp, \\='macism, \\='im-select,
 (define-minor-mode sis-auto-refresh-mode
   "Automaticly refresh input source."
   :global t
+  :group 'sis
   :init-value nil
   (cond
    (; turn on the mode
@@ -682,6 +684,7 @@ way."
 (define-minor-mode sis-global-cursor-color-mode
   "Automaticly change cursor color according to input source."
   :global t
+  :group 'sis
   :init-value nil
   (cond
    (; turn on the mode
@@ -1029,9 +1032,11 @@ Possible values: \\='normal, \\='prefix, \\='sequence.")
 
 - Respect start: start this mode with specific input source.
 - Respect ~evil~: switch to English when leaving ~evil~ ~insert~ mode.
-- Respect prefix key: switch to English for ~C-c~/ ~C-x~/ ~C-h~.
+- Respect prefix key: switch to English for \\[Control-c] / \\[Control-x] /
+  \\[Control-h].
 - Respect buffer: restore buffer input source when it regain focus."
   :global t
+  :group 'sis
   :init-value nil
   (cond
    (; turn on the mode
@@ -1151,10 +1156,10 @@ Possible values: \\='normal, \\='prefix, \\='sequence.")
   )
 
 (defun sis--back-detect-chars ()
-  "Detect char backward by two steps.
+  "Detect char backward by two step.
 
-  First backward skip blank in the current line,
-  then backward skip blank across lines."
+  Step 1: backward skip blank in the current line.
+  Step 2: backward skip blank across lines."
   (save-excursion
     (skip-chars-backward sis-blank-pattern)
     (let ((to (point))
@@ -1280,6 +1285,7 @@ If POSITION is not provided, then default to be the current position."
 ;;;###autoload
 (define-minor-mode sis-context-mode
   "Switch input source smartly according to context."
+  :group 'sis
   :init-value nil
   (cond
    (; turn on the mode
@@ -1319,13 +1325,13 @@ If POSITION is not provided, then default to be the current position."
         (dolist (hook sis-context-hooks)
           (remove-hook hook #'sis-context nil))))
     (dolist (trigger sis-context-triggers)
-      (let ((trigger-fn (eval (nth 0 trigger)))
-            ;; delete advices with property of 'sis--context-trigger-advice
-            (advice-mapc
-             (lambda (advice _)
-               (when (get (intern advice) 'sis--context-trigger-advice)
-                 (advice-remove trigger-fn advice))
-               trigger-fn))))))))
+      (let ((trigger-fn (eval (nth 0 trigger))))
+        ;; delete advices with property of 'sis--context-trigger-advice
+        (advice-mapc
+         (lambda (advice _)
+           (when (get (intern advice) 'sis--context-trigger-advice)
+             (advice-remove trigger-fn advice)))
+         trigger-fn))))))
 
 ;;;###autoload
 (define-globalized-minor-mode
@@ -1369,6 +1375,7 @@ If POSITION is not provided, then default to be the current position."
 ;;;###autoload
 (define-minor-mode sis-inline-mode
   "English overlay mode for mixed language editing."
+  :group 'sis
   :init-value nil
   (cond
    (; turn on the mode
@@ -1516,8 +1523,8 @@ START: start position of the inline region."
 
   ;; select input source
   (let* ((back-detect (sis--back-detect-chars))
-         (back-to (sis-back-detect-to back-detect))
-         (back-char (sis-back-detect-char back-detect)))
+         ;; (back-char (sis-back-detect-char back-detect))
+         (back-to (sis-back-detect-to back-detect)))
 
 
     (cond