1 ;;; latin-euro-input.el --- Input method for Latin-9 (ISO 8859/15) -*- coding: iso-2022-jp -*-
3 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc
6 ;; Adapted-by: Stephen J. Turnbull for XEmacs
7 ;; Keywords: mule, input methods
9 ;; Last-modified: 2002 March 14
11 ;; This file is part of XEmacs.
13 ;; XEmacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; XEmacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with XEmacs; see the file COPYING. If not, write to the
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;; Boston, MA 02111-1307, USA.
31 ;; Grabbed from latin-pre.el in the Emacs 21 distribution. I believe this
32 ;; is the method posted by Dave Love to gnu.emacs.sources. The copyright in
33 ;; latin-pre.el is bogus as Love's post was late 2001.
35 (require 'latin-unity-vars) ; for ISO 8859/15
38 "latin-9-prefix" "Latin-9" "0>" t
39 "Latin-9 characters input method with prefix modifiers
41 effect | prefix | examples
42 ------------+--------+----------
43 acute | ' | 'a ->
\e,ba
\e(B
44 grave | ` | `a ->
\e,b`
\e(B
45 circumflex | ^ | ^a ->
\e,bb
\e(B
46 diaeresis | \" | \"a ->
\e,bd
\e(B, \"Y ->
\e,b>
\e(B
47 tilde | ~ | ~a ->
\e,bc
\e(B
48 caron | ~ | ~z ->
\e,b8
\e(B
49 cedilla | ~ | ~c ->
\e,bg
\e(B
50 misc | \" ~ / | \"s ->
\e,b_
\e(B ~d ->
\e,bp
\e(B ~t ->
\e,b~
\e(B /a ->
\e,be
\e(B /e ->
\e,bf
\e(B /o ->
\e,bx
\e(B
51 | \" ~ / | /o ->
\e,b=
\e(B
52 symbol | ~ | ~> ->
\e,b;
\e(B ~< ->
\e,b+
\e(B ~! ->
\e,b!
\e(B ~? ->
\e,b?
\e(B ~~ ->
\e,b8
\e(B
53 | ~ | ~s ->
\e,b'
\e(B ~e ->
\e,b$
\e(B ~. ->
\e,b7
\e(B ~$ ->
\e,b#
\e(B ~u ->
\e,b5
\e(B
54 | ~ | ~- ->
\e,b-
\e(B ~= ->
\e,b/
\e(B
55 symbol | _ / | _o ->
\e,b:
\e(B _a ->
\e,b*
\e(B // ->
\e,b0
\e(B /\\ ->
\e,bW
\e(B _y ->
\e,b%
\e(B
56 | _ / | _: ->
\e,bw
\e(B /c ->
\e,b"
\e(B ~p ->
\e,b6
\e(B
57 | _ / | /= ->
\e,b,
\e(B
58 symbol | ^ | ^r ->
\e,b.
\e(B ^c ->
\e,b)
\e(B ^1 ->
\e,b9
\e(B ^2 ->
\e,b2
\e(B ^3 ->
\e,b3
\e(B _a ->
\e,b*
\e(B
59 " nil t nil nil nil nil nil nil nil nil t)
148 ("/o" ?
\e,b=
\e(B) ; clash with
\e,bx
\e(B, but
\e,bf
\e(B uses /
153 ;; Is this the best option for Euro entry?
167 (provide 'latin-euro-input)
169 ;; end of latin-euro-input.el