Mercurial > hg > xemacs-beta
annotate lisp/mule/iso-with-esc.el @ 5657:2a870a7b86bd
Descend special forms more exhaustively, #'byte-optimize-form-code-walker
lisp/ChangeLog addition:
2012-05-06 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el:
* byte-optimize.el (or):
* byte-optimize.el (byte-optimize-or):
Declare for-effect properly, it's not free.
* byte-optimize.el (byte-optimize-condition-case): New.
* byte-optimize.el (byte-optimize-form-code-walker):
Be more exhaustive in descending special forms, for the sake of
lexically-oriented optimizers such as that for #'labels.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 06 May 2012 05:22:19 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 4303 | 1 ;;; iso-with-esc.el -- |
| 2 ;;; Provision of the hateful and never widely implemented Latin, Greek and | |
| 3 ;;; Cyrillic variable-length ISO 2022 coding systems that passed for Latin | |
| 4 ;;; 2, Latin 10, (etc) support in XEmacs for so long. | |
| 5 ;; | |
| 6 ;; Copyright (C) 2006 Free Software Foundation | |
| 7 | |
| 8 ;; Author: Aidan Kehoe | |
| 9 | |
| 10 ;; This file is part of XEmacs. | |
| 11 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
12 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
13 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
14 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
15 ;; option) any later version. |
| 4303 | 16 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
20 ;; for more details. |
| 4303 | 21 |
| 22 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4784
diff
changeset
|
23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 4303 | 24 |
| 25 ;;; Commentary: | |
| 26 | |
| 27 ;;; Code: | |
| 28 | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
29 ;; It is not particularly reasonable that iso-latin-1-with-esc has a |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
30 ;; value of t for the safe-charsets property. We discourage its use, |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
31 ;; though, and this behaviour is compatible with GNU. |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
32 |
| 4303 | 33 ;;;###autoload |
| 34 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8) | |
| 35 | |
| 36 ;;;###autoload | |
| 37 (make-coding-system | |
| 38 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)" | |
| 39 '(charset-g0 ascii | |
| 40 charset-g1 latin-iso8859-2 | |
| 41 charset-g2 t | |
| 42 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
43 safe-charsets (ascii latin-iso8859-2) |
| 4303 | 44 mnemonic "MIME/Ltn-2")) |
| 45 | |
| 46 ;;;###autoload | |
| 47 (make-coding-system | |
| 48 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)" | |
| 49 '(charset-g0 ascii | |
| 50 charset-g1 latin-iso8859-3 | |
| 51 charset-g2 t | |
| 52 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
53 safe-charsets (ascii latin-iso8859-3) |
| 4303 | 54 mnemonic "MIME/Ltn-3")) |
| 55 | |
| 56 ;;;###autoload | |
| 57 (make-coding-system | |
| 58 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)" | |
| 59 '(charset-g0 ascii | |
| 60 charset-g1 latin-iso8859-4 | |
| 61 charset-g2 t | |
| 62 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
63 safe-charsets (ascii latin-iso8859-4) |
| 4303 | 64 mnemonic "MIME/Ltn-4")) |
| 65 | |
| 66 ;;;###autoload | |
| 67 (make-coding-system | |
| 68 'iso-latin-9-with-esc 'iso2022 | |
| 69 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)" | |
| 70 '(mnemonic "MIME/Ltn-9" ; bletch | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
71 safe-charsets (ascii latin-iso8859-15) |
| 4303 | 72 eol-type nil |
| 73 charset-g0 ascii | |
| 74 charset-g1 latin-iso8859-15 | |
| 75 charset-g2 t | |
| 76 charset-g3 t)) | |
| 77 | |
| 78 ;;;###autoload | |
| 79 (make-coding-system | |
| 80 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)" | |
| 81 '(charset-g0 ascii | |
| 82 charset-g1 latin-iso8859-9 | |
| 83 charset-g2 t | |
| 84 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
85 safe-charsets (ascii latin-iso8859-9) |
| 4303 | 86 mnemonic "MIME/Ltn-5")) |
| 87 | |
| 88 ;;;###autoload | |
| 89 (make-coding-system | |
| 90 'cyrillic-iso-8bit-with-esc 'iso2022 | |
| 91 "ISO-8859-5 (Cyrillic)" | |
| 92 '(charset-g0 ascii | |
| 93 charset-g1 cyrillic-iso8859-5 | |
| 94 charset-g2 t | |
| 95 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
96 safe-charsets (ascii cyrillic-iso8859-5) |
| 4303 | 97 mnemonic "ISO8/Cyr")) |
| 98 | |
| 99 ;;;###autoload | |
| 100 (make-coding-system | |
| 101 'hebrew-iso-8bit-with-esc 'iso2022 | |
| 102 "ISO-8859-8 (Hebrew)" | |
| 103 '(charset-g0 ascii | |
| 104 charset-g1 hebrew-iso8859-8 | |
| 105 charset-g2 t | |
| 106 charset-g3 t | |
| 107 no-iso6429 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
108 safe-charsets (ascii hebrew-iso8859-8) |
| 4303 | 109 mnemonic "MIME/Hbrw")) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
110 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
111 ;;;###autoload |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
112 (make-coding-system |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
113 'greek-iso-8bit-with-esc 'iso2022 "MIME ISO-8859-7" |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
114 '(charset-g0 ascii |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
115 charset-g1 greek-iso8859-7 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
116 charset-g2 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
117 charset-g3 t |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
118 safe-charsets (ascii greek-iso8859-7) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
119 mnemonic "Grk")) |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
120 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
121 ;;;###autoload |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
122 (make-coding-system |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
123 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
124 ;; iso2022-compatible. |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
125 "ISO-8859-6 (Arabic)" |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
126 '(charset-g0 ascii |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
127 charset-g1 arabic-iso8859-6 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
128 charset-g2 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
129 charset-g3 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
130 no-iso6429 t |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
131 safe-charsets (ascii arabic-iso8859-6) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
132 mnemonic "MIME/Arbc")) |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
133 |