;; 句読点は , . を使う
(setq skk-kuten-touten-alist
'(
(jp . ("。" . "、" ))
(en . ("。" . ","))
))
;; jp にすると「。、」を使います
(setq-default skk-kutouten-type 'en)
;; 2013.3.1
(defun my-skk-set-kutouten-en ()
(interactive)
(setq skk-kutouten-type 'en))
(defun my-skk-set-kutouten-jp ()
(interactive)
(setq skk-kutouten-type 'jp))
(global-set-key
[?\C-<] 'my-skk-set-kutouten-en)
(global-set-key
[?\C->] 'my-skk-set-kutouten-jp)