Mercurial > hg > xemacs-beta

comparison lisp/skk/skk-leim.el @ 225:12579d965149 r20-4b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b11
author cvs
date Mon, 13 Aug 2007 10:11:40 +0200
parents 262b8bb4a523
children
comparison
equal deleted inserted replaced
224:4663b37daab6 225:12579d965149
1 ;;; skk-leim.el --- SKK related code for LEIM 1 ;;; skk-leim.el --- SKK related code for LEIM
2 ;; Copyright (C) 1997 2 ;; Copyright (C) 1997
3 ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp> 3 ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
4 ;; 4 ;;
5 ;; Author: Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp> 5 ;; Author: Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
6 ;; Version: $Id: skk-leim.el,v 1.1 1997/12/02 08:48:38 steve Exp $ 6 ;; Version: $Id: skk-leim.el,v 1.2 1997/12/17 06:27:16 steve Exp $
7 ;; Keywords: japanese 7 ;; Keywords: japanese
8 ;; Last Modified: $Date: 1997/12/02 08:48:38 $ 8 ;; Last Modified: $Date: 1997/12/17 06:27:16 $
9 9
10 ;; This program is free software; you can redistribute it and/or modify 10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either versions 2, or (at your option) 12 ;; the Free Software Foundation; either versions 2, or (at your option)
13 ;; any later version. 13 ;; any later version.
30 (require 'skk-vars) 30 (require 'skk-vars)
31 (setq inactivate-current-input-method-function 'skk-inactivate) 31 (setq inactivate-current-input-method-function 'skk-inactivate)
32 (skk-mode 1) ) 32 (skk-mode 1) )
33 33
34 (defun skk-auto-fill-activate (&optional name) 34 (defun skk-auto-fill-activate (&optional name)
35 (require 'skk-foreword)
36 (require 'skk-vars)
35 (setq inactivate-current-input-method-function 'skk-inactivate) 37 (setq inactivate-current-input-method-function 'skk-inactivate)
36 (skk-mode 1) ) 38 (skk-mode 1) )
37 39
38 (defun skk-inactivate () 40 (defun skk-inactivate ()
39 (skk-mode -1) ) 41 (skk-mode -1) )