Auto-commit of loaddefs files.
[emacs.git] / leim / leim-ext.el
blobc8a0247b3920d61911f045516ae13f985e48b0b5
1 ;; leim-ext.el -- extra leim configuration -*- coding:utf-8; -*-
3 ;; Copyright (C) 2004-2012 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
8 ;; This file is part of GNU Emacs.
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.
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.
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/>.
23 ;;; Commentary:
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.
29 ;;; Code:
31 (eval-after-load "quail/PY-b5"
32 '(quail-defrule "ling2" ?○ nil t))
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))
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.
44 While this input method is active, the variable
45 `input-method-function' is bound to the function `ucs-input-method'.")
47 (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
48 "Unicode input as hex in the form Uxxxx.")
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'.")
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.")
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.")
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.")
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.")