Mercurial > emacs
annotate leim/leim-ext.el @ 66424:86f81b226b02
*** empty log message ***
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 25 Oct 2005 04:58:35 +0000 |
parents | 23a17af379b1 |
children | b94a4bf1aca6 |
rev | line source |
---|---|
55917 | 1 ;; leim-ext.el -- extra leim configulation -*- coding:iso-2022-7bit; -*- |
2 | |
3 ;; Copyright (C) 2004 | |
4 ;; Free Software Foundation, Inc. | |
5 ;; Copyright (C) 2004 | |
6 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
7 ;; Registration Number H13PRO009 | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64083 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
55917 | 25 |
26 ;;; Commentary: | |
27 | |
28 ;; Makefile in this directory appends the contents of this file (only | |
55921 | 29 ;; such non-empty lines that don't begin with ';') to the generated |
30 ;; file leim-list.el. | |
55917 | 31 |
32 ;;; Code: | |
33 | |
34 (eval-after-load "quail/PY-b5" | |
35 '(quail-defrule "ling2" ?$(0!r(B nil t)) | |
55930
5ad72ade5450
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
55921
diff
changeset
|
36 |
63808
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
37 ;; Enable inputting full-width space (U+3000). |
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
38 (eval-after-load "quail/Punct" |
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
39 '(quail-defrule " " ?$A!!(B nil t)) |
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
40 (eval-after-load "quail/Punct-b5" |
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
41 '(quail-defrule " " ?$(0!!(B nil t)) |
8db64e24d5dc
Add rules for inserting full-width space for
Kenichi Handa <handa@m17n.org>
parents:
57179
diff
changeset
|
42 |
57179
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
43 (autoload 'ucs-input-activate "quail/uni-input" |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
44 "Activate UCS input method. |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
45 With arg, activate UCS input method if and only if arg is positive. |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
46 |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
47 While this input method is active, the variable |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
48 `input-method-function' is bound to the function `ucs-input-method'.") |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
49 |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
50 (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+" |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
51 "Unicode input as hex in the form Uxxxx.") |
9f1b3f7445fb
Add autoload for 'ucs-input-activate and
Kenichi Handa <handa@m17n.org>
parents:
55930
diff
changeset
|
52 |
55930
5ad72ade5450
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
55921
diff
changeset
|
53 ;; arch-tag: 75cfdfc7-de85-44f9-b408-ff67d1ec664e |