gistfile1.txt

diff --git a/skk-vars.el b/skk-vars.el
index be7aa6ae..a46faaed 100644
--- a/skk-vars.el
+++ b/skk-vars.el
@@ -5435,0 +5436,7 @@
+
+(defvar skk-on-mark "○"
+  "*▽モード")
+
+(defvar skk-active-mark "●"
+  "*▼モード")
+

diff --git a/skk.el b/skk.el
index 4c7e2688..4cebf0f9 100644
--- a/skk.el
+++ b/skk.el
@@ -3040 +3040 @@
-    (insert-and-inherit "▼")
+    (insert-and-inherit skk-active-mark)
@@ -3392 +3392 @@
-       (insert-and-inherit "▽")
+       (insert-and-inherit skk-on-mark)
@@ -3394 +3394 @@
-     (insert-and-inherit "▽")
+     (insert-and-inherit skk-on-mark)
@@ -3406 +3406 @@
-   (unless (looking-at "▽")
+   (unless (looking-at skk-on-mark)
@@ -3412 +3412 @@
-     (insert-and-inherit "▼")
+     (insert-and-inherit skk-active-mark)
@@ -3421 +3421 @@
-   (if (looking-at "▼")
+   (if (looking-at skk-active-mark)
@@ -3423 +3423 @@
-	 (insert-and-inherit "▽")
+	 (insert-and-inherit skk-on-mark)
@@ -3426 +3426 @@
-     (insert-and-inherit "▽")
+     (insert-and-inherit skk-on-mark)
@@ -3443 +3443 @@
-	 (if (looking-at "▼")
+	 (if (looking-at skk-active-mark)
@@ -3448 +3448 @@
-	((looking-at "▽")
+	((looking-at skk-on-mark)