Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-leim.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 1f0dabaa0855
children
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
1 ;;; egg-leim.el --- Egg-related code for LEIM 1 ;;; egg-leim.el --- Egg/Wnn-related code for LEIM
2 ;; Copyright (C) 1997 Stephen Turnbull <turnbull@sk.tsukuba.ac.jp> 2 ;; Copyright (C) 1997 Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Shamelessly ripped off from 5 ;; Shamelessly ripped off from
6 ;; 6 ;;
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 (setq egg-default-startup-file "eggrc-wnn")
40 (require 'egg-wnn) 41 (require 'egg-wnn)
41 (let ((func (get 'japanese 'set-egg-environ))) 42 (let ((func (get 'japanese 'set-egg-environ)))
42 (when func 43 (when func
43 (funcall func))) 44 (funcall func)))
44 (egg-mode) 45 (egg-mode)