annotate lisp/international/iso-transl.el @ 5653:db6bea4e5345

(forward-paragraph): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jan 1994 16:30:21 +0000
parents ccca18983144
children 240d2ad5803c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4920
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
4920
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
3 ;; Copyright (C) 1987, 1993 Free Software Foundation, Inc.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Howard Gayle
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Maintainer: FSF
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: i18n
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;;; Code:
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
27 (let ((map (make-sparse-keymap)))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
28 (define-key map " " [160])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
29 (define-key map "!" [161])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
30 (define-key map "\"" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
31 (define-key map "\"\"" [168])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
32 (define-key map "\"A" [196])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
33 (define-key map "\"E" [203])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
34 (define-key map "\"I" [207])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
35 (define-key map "\"O" [214])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
36 (define-key map "\"U" [220])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
37 (define-key map "\"a" [228])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
38 (define-key map "\"e" [235])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
39 (define-key map "\"i" [239])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
40 (define-key map "\"o" [246])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
41 (define-key map "\"u" [252])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
42 (define-key map "\"y" [255])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
43 (define-key map "'" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
44 (define-key map "''" [180])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
45 (define-key map "'A" [193])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
46 (define-key map "'E" [201])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
47 (define-key map "'I" [205])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
48 (define-key map "'O" [211])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
49 (define-key map "'U" [218])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
50 (define-key map "'Y" [221])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
51 (define-key map "'a" [225])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
52 (define-key map "'e" [233])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
53 (define-key map "'i" [237])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
54 (define-key map "'o" [243])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
55 (define-key map "'u" [250])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
56 (define-key map "'y" [253])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
57 (define-key map "$" [164])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
58 (define-key map "+" [177])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
59 (define-key map "," (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
60 (define-key map ",," [184])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
61 (define-key map ",C" [199])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
62 (define-key map ",c" [231])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
63 (define-key map "-" [173])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
64 (define-key map "." [183])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
65 (define-key map "/" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
66 (define-key map "//" [247])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
67 (define-key map "/O" [216])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
68 (define-key map "/o" [248])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
69 (define-key map "1" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
70 (define-key map "1/" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
71 (define-key map "1/2" [189])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
72 (define-key map "1/4" [188])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
73 (define-key map "3" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
74 (define-key map "3/" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
75 (define-key map "3/4" [190])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
76 (define-key map "<" [171])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
77 (define-key map "=" [175])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
78 (define-key map ">" [187])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
79 (define-key map "?" [191])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
80 (define-key map "A" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
81 (define-key map "AA" [197])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
82 (define-key map "AE" [198])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
83 (define-key map "C" [169])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
84 (define-key map "D" [208])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
85 (define-key map "L" [163])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
86 (define-key map "P" [182])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
87 (define-key map "R" [174])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
88 (define-key map "S" [167])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
89 (define-key map "T" [222])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
90 (define-key map "Y" [165])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
91 (define-key map "^" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
92 (define-key map "^1" [185])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
93 (define-key map "^2" [178])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
94 (define-key map "^3" [179])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
95 (define-key map "^A" [194])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
96 (define-key map "^E" [202])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
97 (define-key map "^I" [206])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
98 (define-key map "^O" [212])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
99 (define-key map "^U" [219])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
100 (define-key map "^a" [226])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
101 (define-key map "^e" [234])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
102 (define-key map "^i" [238])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
103 (define-key map "^o" [244])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
104 (define-key map "^u" [251])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
105 (define-key map "_" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
106 (define-key map "_a" [170])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
107 (define-key map "_o" [186])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
108 (define-key map "`" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
109 (define-key map "`A" [192])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
110 (define-key map "`E" [200])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
111 (define-key map "`I" [204])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
112 (define-key map "`O" [210])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
113 (define-key map "`U" [217])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
114 (define-key map "`a" [224])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
115 (define-key map "`e" [232])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
116 (define-key map "`i" [236])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
117 (define-key map "`o" [242])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
118 (define-key map "`u" [249])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
119 (define-key map "a" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
120 (define-key map "aa" [229])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
121 (define-key map "ae" [230])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
122 (define-key map "c" [162])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
123 (define-key map "d" [240])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
124 (define-key map "o" [176])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
125 (define-key map "s" [223])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
126 (define-key map "t" [254])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
127 (define-key map "u" [181])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
128 (define-key map "x" [215])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
129 (define-key map "|" [166])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
130 (define-key map "~" (make-sparse-keymap))
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
131 (define-key map "~A" [195])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
132 (define-key map "~N" [209])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
133 (define-key map "~O" [213])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
134 (define-key map "~a" [227])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
135 (define-key map "~n" [241])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
136 (define-key map "~o" [245])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
137 (define-key map "~~" [172])
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
138 (or key-translation-map
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
139 (setq key-translation-map (make-sparse-keymap)))
4920
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
140 (define-key key-translation-map "\C-x8" map)
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
141 (define-key isearch-mode-map "\C-x" nil)
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
142 (define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char)
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
143 (define-key isearch-mode-map "\C-x8" nil))
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
145 (provide 'iso-transl)
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
147 ;;; iso-transl.el ends here