Source

egg-its / egg-cwnn-leim.el

Diff from to

egg-cwnn-leim.el

     (setq-default its:*current-map* (its:get-mode-map "zhuyin"))))
 
 
+;;;###autoload
 (defun egg-pinyin-activate (&optional name)
   (if (featurep 'wnn)
       (require 'egg)
   (egg-mode)
   (toggle-egg-mode))
 
+;;;###autoload
 (defun egg-pinyin-inactivate ()
   (cond (egg:*mode-on* (toggle-egg-mode))))
 
+;;;###autoload
 (defun egg-zhuyin-activate (&optional name)
   (if (featurep 'wnn)
       (require 'egg)
   (egg-mode)
   (toggle-egg-mode))
 
+;;;###autoload
 (defun egg-zhuyin-inactivate ()
   (cond (egg:*mode-on* (toggle-egg-mode))))
 
-(register-input-method
- 'chinese-egg-pinyin "Chinese"
- 'egg-zhuyin-activate nil
- "EGG - an interface to the CWnn Chinese conversion program" )
+;;;###autoload
+(when (and (featurep 'mule) (featurep 'wnn))
+  (register-input-method
+   'chinese-egg-pinyin "Chinese"
+   'egg-zhuyin-activate nil
+   "EGG - an interface to the CWnn Chinese conversion program" ))
 
-(register-input-method
- 'chinese-egg-zhuyin "Chinese"
- 'egg-zhuyin-activate nil
- "EGG - an interface to the CWnn Chinese conversion program" )
+;;;###autoload
+(when (and (featurep 'mule) (featurep 'wnn))
+  (register-input-method
+   'chinese-egg-zhuyin "Chinese"
+   'egg-zhuyin-activate nil
+   "EGG - an interface to the CWnn Chinese conversion program" ))
 
 (provide 'egg-cwnn-leim)