;; jutl.el version 0.2
;; copyright (c) 1999,2001 taiji yamada <taiji@aihara.co.jp>

;; please write following lines in ~/.emacs
;(load "jutl")
;;(global-set-key "\c-x\c-k." 'jutl-replace-kuten-period)
;;(global-set-key "\c-x\c-k," 'jutl-replace-toten-comma)
;;(global-set-key "\c-x\c-k>" 'jutl-replace-period-kuten)
;;(global-set-key "\c-x\c-k<" 'jutl-replace-comma-toten)
;(global-set-key "\c-x\c-k/" 'jutl-replace-kutoten-period-comma)
;(global-set-key "\c-x\c-k?" 'jutl-replace-period-comma-kutoten)
;;(global-set-key "\c-x\c-k\c-." 'jutl-query-replace-kuten-period)
;;(global-set-key "\c-x\c-k\c-," 'jutl-query-replace-toten-comma)
;;(global-set-key "\c-x\c-k\c->" 'jutl-query-replace-period-kuten)
;;(global-set-key "\c-x\c-k\c-<" 'jutl-query-replace-comma-toten)
;(global-set-key "\c-x\c-k\c-/" 'jutl-query-replace-kutoten-period-comma)
;(global-set-key "\c-x\c-k\c-?" 'jutl-query-replace-period-comma-kutoten)
;; for emacs, replace the prefix "\c-x\c-k" to "\c-x\c-m".

;;
;; replace zenkaku kutoten to zenkaku period/comma
;;
(defun jutl-replace-kuten-period ()
  (interactive)
  (replace-string "。" "．" nil))
(defun jutl-replace-toten-comma ()
  (interactive)
  (replace-string "、" "，" nil))
(defun jutl-replace-period-kuten ()
  (interactive)
  (replace-string "．" "。" nil))
(defun jutl-replace-comma-toten ()
  (interactive)
  (replace-string "，" "、" nil))
(defun jutl-replace-kutoten-period-comma ()
  (interactive)
  (setq p (point)) (replace-string "。" "．" nil)
  (goto-char p) (replace-string "、" "，" nil))
(defun jutl-replace-period-comma-kutoten ()
  (interactive)
  (setq p (point)) (replace-string "．" "。" nil)
  (goto-char p) (replace-string "，" "、" nil))

;;
;; query-replace zenkaku kutoten to zenkaku period/comma
;;
(defun jutl-query-replace-kuten-period ()
  (interactive)
  (query-replace "。" "．" nil))
(defun jutl-query-replace-toten-comma ()
  (interactive)
  (query-replace "、" "，" nil))
(defun jutl-query-replace-period-kuten ()
  (interactive)
  (query-replace "．" "。" nil))
(defun jutl-query-replace-comma-toten ()
  (interactive)
  (query-replace "，" "、" nil))
(defun jutl-query-replace-kutoten-period-comma ()
  (interactive)
  (setq p (point)) (query-replace "。" "．" nil)
  (goto-char p) (query-replace "、" "，" nil))
(defun jutl-query-replace-period-comma-kutoten ()
  (interactive)
  (setq p (point)) (query-replace "．" "。" nil)
  (goto-char p) (query-replace "，" "、" nil))