Mercurial > emacs
annotate leim/leim-ext.el @ 64220:38b6647b9ed4
(custom-push-theme): Maintain list of the settings
of a given theme in its theme-settings property.
Maintain position of old settings in the theme-value or theme-face property.
(custom-enabled-themes): New variable.
(custom-theme-enabled-p): New function.
(provide-theme): Update custom-enabled-themes.
Disable and reenable the `user' theme.
(require-theme): Doc fix.
(custom-do-theme-reset, custom-remove-theme): Functions deleted.
(custom-theme-value, custom-theme-variable-value): Likewise.
(custom-theme-reset-internal): Likewise.
(custom-theme-load-themes): Fix bugs and use custom-disable-theme.
(custom-enable-theme, custom-disable-theme): New functions.
(custom-variable-theme-value, custom-face-theme-value): Likewise.
(custom-theme-recalc-variable, custom-theme-recalc-face): Likewise.
(custom-theme-reset-variables): Simplify.
(deftheme, custom-declare-theme, custom-make-theme-feature):
Definitions moved.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 11 Jul 2005 00:57:23 +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 |