Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-leim.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents e45d5e7c476e
children 262b8bb4a523
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
35 (defun egg-activate (&optional name) 35 (defun egg-activate (&optional name)
36 (if (featurep 'wnn) 36 (if (featurep 'wnn)
37 (require 'egg) 37 (require 'egg)
38 (error "Wnn is not built into this XEmacs")) 38 (error "Wnn is not built into this XEmacs"))
39 (setq inactivate-current-input-method-function 'egg-inactivate) 39 (setq inactivate-current-input-method-function 'egg-inactivate)
40 (require 'egg-wnn)
41 (let ((func (get 'japanese 'set-egg-environ)))
42 (when func
43 (funcall func)))
44 (egg-mode)
40 (toggle-egg-mode)) 45 (toggle-egg-mode))
41 46
42 (defun egg-inactivate () 47 (defun egg-inactivate ()
43 (cond (egg:*mode-on* (toggle-egg-mode)))) 48 (cond (egg:*mode-on* (toggle-egg-mode))))
44 49