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

;;;; ------------------------------------------------------------
;;;; Dance with viper-mode
;;;; ------------------------------------------------------------

(defvar prime-socialite-viper-state nil)
(make-variable-buffer-local 'prime-socialite-viper-state)

(defun prime-with-viper-mode ()
  "Function for viper-mode 
  (add-hook 'prime-mode-hook 'prime-with-viper-mode) "
  (if (boundp 'viper-mode)
      (if prime-mode
	  (progn
	    (and (setq prime-socialite-viper-state
		       (and (boundp 'viper-current-state)
			    viper-current-state))
		 (viper-change-state-to-emacs))
	    (or (assoc 'prime-fund-mode minor-mode-map-alist)
		(setq minor-mode-map-alist 
		      (append prime-minor-mode-map-alist
			      minor-mode-map-alist)))
	    )
	(and prime-socialite-viper-state
	     (viper-change-state prime-socialite-viper-state))
	)
    ))

(provide 'prime-socialite)