Mercurial > hg > xemacs-beta
annotate lisp/mule/iso-with-esc.el @ 5015:d95c102a96d3
cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings)
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-08 Ben Wing <ben@xemacs.org>
* faces.c:
* faces.c (face_property_matching_instance):
* faces.c (ensure_face_cachel_contains_charset):
* faces.h (FACE_FONT):
* lisp.h:
* lisp.h (enum font_specifier_matchspec_stages):
* objects-msw.c:
* objects-msw.c (mswindows_font_spec_matches_charset):
* objects-msw.c (mswindows_find_charset_font):
* objects-tty.c:
* objects-tty.c (tty_font_spec_matches_charset):
* objects-tty.c (tty_find_charset_font):
* objects-xlike-inc.c:
* objects-xlike-inc.c (XFUN):
* objects-xlike-inc.c (xft_find_charset_font):
* objects.c:
* objects.c (font_instantiate):
* objects.c (FROB):
* specifier.c:
* specifier.c (charset_matches_specifier_tag_set_p):
* specifier.c (call_charset_predicate):
* specifier.c (define_specifier_tag):
* specifier.c (Fdefine_specifier_tag):
* specifier.c (setup_charset_initial_specifier_tags):
* specifier.c (specifier_instance_from_inst_list):
* specifier.c (FROB):
* specifier.c (vars_of_specifier):
* specifier.h:
Rename the specifier-font-matching stages in preparation for
eliminating shadowed warnings, some other related fixes from
ben-unicode-internal.
1. Rename raw enums:
initial -> STAGE_INITIAL
final -> STAGE_FINAL
impossible -> NUM_MATCHSPEC_STAGES
2. Move `enum font_specifier_matchspec_stages' from
specifier.h to lisp.h.
3. Whitespace changes to match coding standards.
4. Eliminate unused second argument STAGE in charset predicates
that don't use it -- the code that calls the charset predicates
is now smart enough to supply the right number of arguments
automatically.
5. Add some long(ish) comments and authorial notices, esp. in
objects.c.
6. In specifier.c, change Vcharset_tag_lists from a vector over
leading bytes to a hash table over charsets. This change is
unnecessary currently but doesn't hurt and will be required
when we merge in Unicode-internal.
7. In specifier.c, extract out the code that calls charset predicates
into a function call_charset_predicate().
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Mon, 08 Feb 2010 16:51:25 -0600 |
| parents | a67bfb29dd8b |
| children | 308d34e9f07d |
| 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 | |
| 12 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 13 ;; under the terms of the GNU General Public License as published by | |
| 14 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 15 ;; any later version. | |
| 16 | |
| 17 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 20 ;; General Public License for more details. | |
| 21 | |
| 22 ;; You should have received a copy of the GNU General Public License | |
| 23 ;; along with XEmacs; see the file COPYING. If not, write to the | |
| 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
| 25 ;; Boston, MA 02110-1301, USA. | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 29 ;;; Code: | |
| 30 | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
31 ;; 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
|
32 ;; 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
|
33 ;; 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
|
34 |
| 4303 | 35 ;;;###autoload |
| 36 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8) | |
| 37 | |
| 38 ;;;###autoload | |
| 39 (make-coding-system | |
| 40 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)" | |
| 41 '(charset-g0 ascii | |
| 42 charset-g1 latin-iso8859-2 | |
| 43 charset-g2 t | |
| 44 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
|
45 safe-charsets (ascii latin-iso8859-2) |
| 4303 | 46 mnemonic "MIME/Ltn-2")) |
| 47 | |
| 48 ;;;###autoload | |
| 49 (make-coding-system | |
| 50 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)" | |
| 51 '(charset-g0 ascii | |
| 52 charset-g1 latin-iso8859-3 | |
| 53 charset-g2 t | |
| 54 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
|
55 safe-charsets (ascii latin-iso8859-3) |
| 4303 | 56 mnemonic "MIME/Ltn-3")) |
| 57 | |
| 58 ;;;###autoload | |
| 59 (make-coding-system | |
| 60 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)" | |
| 61 '(charset-g0 ascii | |
| 62 charset-g1 latin-iso8859-4 | |
| 63 charset-g2 t | |
| 64 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
|
65 safe-charsets (ascii latin-iso8859-4) |
| 4303 | 66 mnemonic "MIME/Ltn-4")) |
| 67 | |
| 68 ;;;###autoload | |
| 69 (make-coding-system | |
| 70 'iso-latin-9-with-esc 'iso2022 | |
| 71 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)" | |
| 72 '(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
|
73 safe-charsets (ascii latin-iso8859-15) |
| 4303 | 74 eol-type nil |
| 75 charset-g0 ascii | |
| 76 charset-g1 latin-iso8859-15 | |
| 77 charset-g2 t | |
| 78 charset-g3 t)) | |
| 79 | |
| 80 ;;;###autoload | |
| 81 (make-coding-system | |
| 82 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)" | |
| 83 '(charset-g0 ascii | |
| 84 charset-g1 latin-iso8859-9 | |
| 85 charset-g2 t | |
| 86 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
|
87 safe-charsets (ascii latin-iso8859-9) |
| 4303 | 88 mnemonic "MIME/Ltn-5")) |
| 89 | |
| 90 ;;;###autoload | |
| 91 (make-coding-system | |
| 92 'cyrillic-iso-8bit-with-esc 'iso2022 | |
| 93 "ISO-8859-5 (Cyrillic)" | |
| 94 '(charset-g0 ascii | |
| 95 charset-g1 cyrillic-iso8859-5 | |
| 96 charset-g2 t | |
| 97 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
|
98 safe-charsets (ascii cyrillic-iso8859-5) |
| 4303 | 99 mnemonic "ISO8/Cyr")) |
| 100 | |
| 101 ;;;###autoload | |
| 102 (make-coding-system | |
| 103 'hebrew-iso-8bit-with-esc 'iso2022 | |
| 104 "ISO-8859-8 (Hebrew)" | |
| 105 '(charset-g0 ascii | |
| 106 charset-g1 hebrew-iso8859-8 | |
| 107 charset-g2 t | |
| 108 charset-g3 t | |
| 109 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
|
110 safe-charsets (ascii hebrew-iso8859-8) |
| 4303 | 111 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
|
112 |
|
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 ;;;###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
|
114 (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
|
115 '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
|
116 '(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
|
117 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
|
118 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
|
119 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
|
120 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
|
121 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
|
122 |
|
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 ;;;###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
|
124 (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
|
125 '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
|
126 ;; 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
|
127 "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
|
128 '(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
|
129 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
|
130 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
|
131 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
|
132 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
|
133 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
|
134 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
|
135 |