leim/leim-ext.el

   1 ;; leim-ext.el -- extra leim configuration      -*- coding:utf-8; -*-
   2
   3 ;; Copyright (C) 2004-2011  Free Software Foundation, Inc.
   4 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H13PRO009
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24
  25 ;; Makefile in this directory appends the contents of this file (only
  26 ;; such non-empty lines that don't begin with ';') to the generated
  27 ;; file leim-list.el.
  28
  29 ;;; Code:
  30
  31 (eval-after-load "quail/PY-b5"
  32   '(quail-defrule "ling2" ?○ nil t))
  33
  34 ;; Enable inputting full-width space (U+3000).
  35 (eval-after-load "quail/Punct"
  36   '(quail-defrule " " ?　 nil t))
  37 (eval-after-load "quail/Punct-b5"
  38   '(quail-defrule " " ?　 nil t))
  39
  40 (autoload 'ucs-input-activate "quail/uni-input"
  41   "Activate UCS input method.
  42 With arg, activate UCS input method if and only if arg is positive.
  43
  44 While this input method is active, the variable
  45 `input-method-function' is bound to the function `ucs-input-method'.")
  46
  47 (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
  48                        "Unicode input as hex in the form Uxxxx.")
  49
  50 (autoload 'hangul-input-method-activate "quail/hangul"
  51   "Activate Hangul input method INPUT-METHOD.
  52 FUNC is a function to handle input key.
  53 HELP-TEXT is a text set in `hangul-input-method-help-text'.")
  54
  55 (register-input-method
  56  "korean-hangul"
  57  "UTF-8"
  58  'hangul-input-method-activate
  59  "한2"
  60  "Hangul 2-Bulsik Input"
  61  'hangul2-input-method
  62  "Input method: korean-hangul2 (mode line indicator:한2)\n\nHangul 2-Bulsik input method.")
  63
  64 (register-input-method
  65  "korean-hangul3f"
  66  "UTF-8"
  67  'hangul-input-method-activate
  68  "한3f"
  69  "Hangul 3-Bulsik final Input"
  70  'hangul3-input-method
  71  "Input method: korean-hangul3 (mode line indicator:한3f)\n\nHangul 3-Bulsik final input method.")
  72
  73 (register-input-method
  74  "korean-hangul390"
  75  "UTF-8"
  76  'hangul-input-method-activate
  77  "한390"
  78  "Hangul 3-Bulsik 390 Input"
  79  'hangul390-input-method
  80  "Input method: korean-hangul390 (mode line indicator:한390)\n\nHangul 3-Bulsik 390 input method.")
  81
  82 (register-input-method
  83  "korean-hangul3"
  84  "UTF-8"
  85  'hangul-input-method-activate
  86  "한390"
  87  "Hangul 3-Bulsik 390 Input"
  88  'hangul390-input-method
  89  "Input method: korean-hangul390 (mode line indicator:한390)\n\nHangul 3-Bulsik 390 input method.")
  90