HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| bac5a9cd | 1 | ;;; iso02-acc.el --- electric accent keys for Eastern Europe (ISO latin2) |
| d45bfadf RS |
2 | |
| 3 | ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
| 4 | ||
| 5 | ;; This file is part of GNU Emacs. | |
| 6 | ||
| 7 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
| 8 | ;; it under the terms of the GNU General Public License as published by | |
| 9 | ;; the Free Software Foundation; either version 2, or (at your option) | |
| 10 | ;; any later version. | |
| 11 | ||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 | ;; GNU General Public License for more details. | |
| 16 | ||
| 17 | ;; You should have received a copy of the GNU General Public License | |
| 18 | ;; along with GNU Emacs; see the file COPYING. If not, write to | |
| 19 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 20 | ||
| 21 | ;;; Code: | |
| 22 | ||
| 23 | (defvar iso-accents-list | |
| 24 | '(((?' ?A) ?\301) | |
| 25 | ((?' ?C) ?\306) | |
| 26 | ((?' ?D) ?\320) | |
| 27 | ((?' ?E) ?\311) | |
| 28 | ((?' ?I) ?\315) | |
| 29 | ((?' ?L) ?\305) | |
| 30 | ((?' ?N) ?\321) | |
| 31 | ((?' ?O) ?\323) | |
| 32 | ((?' ?R) ?\300) | |
| 33 | ((?' ?S) ?\246) | |
| 34 | ((?' ?U) ?\332) | |
| 35 | ((?' ?Y) ?\335) | |
| 36 | ((?' ?Z) ?\254) | |
| 37 | ((?' ?a) ?\341) | |
| 38 | ((?' ?c) ?\346) | |
| 39 | ((?' ?d) ?\360) | |
| 40 | ((?' ?e) ?\351) | |
| 41 | ((?' ?i) ?\355) | |
| 42 | ((?' ?l) ?\345) | |
| 43 | ((?' ?n) ?\361) | |
| 44 | ((?' ?o) ?\363) | |
| 45 | ((?' ?r) ?\340) | |
| 46 | ((?' ?s) ?\266) | |
| 47 | ((?' ?u) ?\372) | |
| 48 | ((?' ?y) ?\375) | |
| 49 | ((?' ?z) ?\274) | |
| 50 | ((?' ?') ?\264) | |
| 51 | ((?' ? ) ?') | |
| 52 | ((?` ?A) ?\241) | |
| 53 | ((?` ?C) ?\307) | |
| 54 | ((?` ?E) ?\312) | |
| 55 | ((?` ?L) ?\243) | |
| 56 | ((?` ?S) ?\252) | |
| 57 | ((?` ?T) ?\336) | |
| 58 | ((?` ?Z) ?\257) | |
| 59 | ((?` ?a) ?\261) | |
| 60 | ((?` ?l) ?\263) | |
| 61 | ((?` ?c) ?\347) | |
| 62 | ((?` ?e) ?\352) | |
| 63 | ((?` ?s) ?\272) | |
| 64 | ((?` ?t) ?\376) | |
| 65 | ((?` ?z) ?\277) | |
| 66 | ((?` ? ) ?`) | |
| 67 | ((?` ?`) ?\252) | |
| 68 | ((?` ?.) ?\377) | |
| 69 | ((?^ ?A) ?\302) | |
| 70 | ((?^ ?O) ?\324) | |
| 71 | ((?^ ?a) ?\342) | |
| 72 | ((?^ ?o) ?\364) | |
| 73 | ((?^ ? ) ?^) | |
| 74 | ((?^ ?^) ?^) ; no special code? | |
| 75 | ((?\" ?A) ?\304) | |
| 76 | ((?\" ?E) ?\313) | |
| 77 | ((?\" ?O) ?\326) | |
| 78 | ((?\" ?U) ?\334) | |
| 79 | ((?\" ?a) ?\344) | |
| 80 | ((?\" ?e) ?\353) | |
| 81 | ((?\" ?o) ?\366) | |
| 82 | ((?\" ?s) ?\337) | |
| 83 | ((?\" ?u) ?\374) | |
| 84 | ((?\" ? ) ?\") | |
| 85 | ((?\" ?\") ?\250) | |
| 86 | ((?\~ ?A) ?\303) | |
| 87 | ((?\~ ?C) ?\310) | |
| 88 | ((?\~ ?D) ?\317) | |
| 89 | ((?\~ ?L) ?\245) | |
| 90 | ((?\~ ?N) ?\322) | |
| 91 | ((?\~ ?O) ?\325) | |
| 92 | ((?\~ ?R) ?\330) | |
| 93 | ((?\~ ?S) ?\251) | |
| 94 | ((?\~ ?T) ?\253) | |
| 95 | ((?\~ ?U) ?\333) | |
| 96 | ((?\~ ?Z) ?\256) | |
| 97 | ((?\~ ?a) ?\323) | |
| 98 | ((?\~ ?c) ?\350) | |
| 99 | ((?\~ ?d) ?\357) | |
| 100 | ((?\~ ?l) ?\265) | |
| 101 | ((?\~ ?n) ?\362) | |
| 102 | ((?\~ ?o) ?\365) | |
| 103 | ((?\~ ?r) ?\370) | |
| 104 | ((?\~ ?s) ?\271) | |
| 105 | ((?\~ ?t) ?\273) | |
| 106 | ((?\~ ?u) ?\373) | |
| 107 | ((?\~ ?z) ?\276) | |
| 108 | ((?\~ ?\ ) ?\~) | |
| 109 | ((?\~ ?v) ?\242) ;; v accent | |
| 110 | ((?\~ ?\~) ?\242) ;; v accent | |
| 111 | ((?\~ ?\.) ?\270) ;; cedilla accent | |
| 112 | ) | |
| 113 | "Association list for ISO latin-2 accent combinations.") | |
| 114 | ||
| 115 | (defvar iso-accents-enable '(?' ?` ?^ ?\" ?~) | |
| 116 | "*List of accent keys that become prefixes in ISO Accents mode. | |
| 117 | The default is (?' ?` ?^ ?\" ?~), which contains all the supported | |
| 118 | accent keys. For certain languages, you might want to remove some of | |
| 119 | those characters that are not actually used.") | |
| 120 | ||
| 121 | (require 'iso-acc) | |
| 122 | ||
| 123 | ;;; iso02-acc.el ends here |