;; $Id: prime-fund-mode.el,v 1.1 2003/01/12 05:43:45 komatsu Exp $

(defun prime-fund-mode (&optional arg)
  (setq prime-fund-mode 
	(if (null arg) (not prime-fund-mode)
	  (> (prefix-numeric-value arg) 0)))
  (if prime-fund-mode
      (prime-fund-mode-on t)
    (prime-fund-mode-off t)
    ))

(defun prime-fund-mode-on (&optional forcep)
  (if (or forcep (not prime-fund-mode))
      (progn
	(prime-input-mode-off)
	(setq prime-fund-mode t)
	)))

(defun prime-fund-mode-off (&optional forcep)
  (if (or forcep prime-fund-mode)
      (progn
	(setq prime-fund-mode nil)
	)))

;;;; ------------------------------------------------------------
;;;; 関数定義
;;;; ------------------------------------------------------------
(defun prime-fund-keyin (&optional arg)
  (interactive "P")
  (if arg
      (self-insert-command (prefix-numeric-value arg))
    (prime-keyin arg)
    ))

(defun prime-fund-convert-region ()
  (interactive)
  (if (mell-transient-region-active-p)
      (prime-convert-region (region-beginning) (region-end))
    (call-interactively (mell-key-binding-next prime-fund-mode-map))
    ))

;(defun prime-fund-convert-region ()
;  (interactive)
;  (if (mell-transient-region-active-p)
;      (let ((pattern (suikyo-convert-kana-romaji
;		      (buffer-substring (region-beginning) (region-end)))))
;	(if (string-match "\\cj" pattern)
;	    (message (concat "再変換に対応していない文字列が含まれています. ("
;			     pattern ")"))
;	  (setq prime-pat pattern)
;	  (delete-region (region-beginning) (region-end))
;	  (prime-input-mode-on t)
;	  (prime-disp-input)))
;    (call-interactively (mell-key-binding-next prime-fund-mode-map))
;    ))

(defun prime-fund-undo ()
  (interactive)
  (undo)
  (if (member last-command '(prime-conv-decide prime-keyin))
      (progn
	(setq prime-pat      prime-pat-for-undo)
	(if prime-conv-mode-for-undo
	    (progn
	      (prime-conv-mode-on)
	      (setq prime-nth-cand prime-nth-cand-for-undo)
	      (prime-disp-conv))
	  (prime-input-mode-on)
	  (setq prime-nth-cand prime-nth-cand-for-undo)
	  (prime-disp-input))
	)))

(provide 'prime-fund-mode)