;; 句読点は , . を使う (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)