       (append skk-set-henkan-point-key '(?\" ?: ?Q ?X)))
 
 ;; skk-rom-kana-base-rule-list から変換規則を削除する
-(dolist (str skk-act-unnecessary-base-rule-list)
+(dolist (str skk-aquamarine-unnecessary-base-rule-list)
   (setq skk-rom-kana-base-rule-list
         (skk-del-alist str skk-rom-kana-base-rule-list)))
 

           "xtsu" "xtu"
           "xwa" "xwe" "xwi"
           "xya" "xyo" "xyu")))
    ;; skk-act-use-normal-y が nil であれば拗音も削除
    (unless skk-act-use-normal-y
      (setq list
            (append list
                    '("bya" "bye" "byi" "byo" "byu"

    (setq skk-rom-kana-rule-list
          (skk-del-alist str skk-rom-kana-rule-list))))

;; 藍玉配列特有の変換規則を追加する
(dolist (rule skk-aquamarine-additional-rom-kana-rule-list)
  (add-to-list 'skk-rom-kana-rule-list rule))

;; for jisx0201
(eval-after-load "skk-jisx0201"
  '(progn
     (dolist (str skk-aquamarine-unnecessary-base-rule-list)
       (setq skk-jisx0201-base-rule-list
             (skk-del-alist str skk-jisx0201-base-rule-list)))

