Prev / Next

2003-04-17 / skk - 句読点の切り替え

(setq skk-kutouten-type 'en)
(setq skk-kuten-touten-alist
      '((jp . ("。" . "、"))
	(jp2 . ("." . "、"))
	(en . ("." . ","))))

(add-hook 'mime-edit-mode-hook
	  '(lambda ()
	     (make-local-variable skk-kutouten-type)
	     (setq skk-kutouten-type 'jp2)))
(add-hook 'mime-edit-exit-hook
	  '(lambda ()
	     (setq skk-kutouten-type 'en)))

comments powered by Disqus