[COMMIT] Make compiled #'custom-declare-variable forms compatible with 21.4.
17 years
Aidan Kehoe
Aidan Kehoe
Ar an dara lá de mí na Nollaig, scríobh Vin Shelton:
> The bytecompiler is not my specialty, but I can say that the patch
> allows 21.5 to produce a set of packages that can be loaded in 21.4.
> In particular, the jka-compr problem is gone.
>
> I recommend you submit this patch to xemacs-patches and commit it.
Done. Thank you.
APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-12-03 Aidan Kehoe <kehoea(a)parhasard.net>
* bytecomp.el (byte-compile-file-form-custom-declare-variable):
Instead of using a keyword argument that's incompatible with 21.4,
modify the byte compiled init code to change the variable's
standard-value property itself.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: lisp/bytecomp.el
===================================================================
RCS
Index: lisp/bytecomp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/bytecomp.el,v
retrieving revision 1.22
diff -u -u -r1.22 bytecomp.el
--- lisp/bytecomp.el 2007/12/01 13:40:07 1.22
+++ lisp/bytecomp.el 2007/12/04 20:34:57
＠＠ -2405,10 +2405,17 ＠＠
;; And save a value to be examined in the custom UI, if that differs
;; from the init value.
(unless (equal to-examine (car-safe (cdr (third form))))
- (setf (nthcdr 4 form) (nconc
- (list :default
- (list 'quote to-examine))
- (nthcdr 4 form)))))
+ (setcdr (third form)
+ (list (byte-compile-top-level
+ ;; This is ugly. custom-declare-variable errors if
+ ;; it's passed a keyword it doesn't know about, and
+ ;; so to make this code run on 21.4, we add code to
+ ;; modify the standard-value property to the
+ ;; byte-compiled value for DEFAULT.
+ `(prog2 (put ,(second form) 'standard-value
+ '(,to-examine))
+ ,to-examine)
+ nil 'file)))))
form))
;;;###autoload
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] Implement coding system autoloads; use them for the variable-length ISO 2022 Latin coding systems
17 years
Aidan Kehoe
Aidan Kehoe
SUPERSEDES 18259.303.718818.819710(a)parhasard.net
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-12-04 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/iso-with-esc.el:
* mule/iso-with-esc.el ('iso-latin-1-with-esc): New.
Provide the variable-length rarely-used ISO 2022 compatible coding
systems for Latin (that is, iso-8859-[1-16]) again, to address
Stephen's veto.
2007-12-04 Aidan Kehoe <kehoea(a)parhasard.net>
* autoload.el (make-autoload):
Support auto-autoloads for coding systems.
src/ChangeLog addition:
2007-12-04 Aidan Kehoe <kehoea(a)parhasard.net>
* file-coding.c:
* file-coding.c (find_coding_system):
C-accessible version of #'find-coding-system that doesn't
necessarily call the autoload code, for use in
#'autoload-coding-system (which we allow to overwrite autoloaded
coding systems) and make_coding_system_1 (which has to).
* file-coding.c (Ffind_coding_system):
Move the implementation to find_coding_system; call that function
with a do_autoloads argument of 1.
* file-coding.c (Fautoload_coding_system):
New.
* file-coding.c (add_coding_system_to_list_mapper):
When returning a list of coding systems, don't call the autoload
code.
* file-coding.c (make_coding_system_1):
* file-coding.c (Fcopy_coding_system):
* file-coding.c (syms_of_file_coding):
Implement autoloaded coding systems. The form to be evaluated to
load a given coding system is stored as the value in
Vcoding_system_hash_table; this form is evaluated if
find-coding-system is called with the symbol name of the coding
system as its argument.
This is also tied in with the POSIX locale infrastructure by means
of posix-charset-to-coding-system-hash.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: src/file-coding.c
===================================================================
RCS lisp/mule/iso-with-esc.el
===================================================================
RCS lisp/autoload.el
===================================================================
RCS
Index: lisp/autoload.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/autoload.el,v
retrieving revision 1.24
diff -u -u -r1.24 autoload.el
--- lisp/autoload.el 2007/11/08 07:12:40 1.24
+++ lisp/autoload.el 2007/12/04 20:02:24
＠＠ -280,7 +280,9 ＠＠
',varname 'custom-variable)
(custom-add-load ',varname
,(plist-get rest :require))))))
-
+ ;; Coding systems. #### Would be nice to handle the docstring here too.
+ ((memq car '(make-coding-system make-8-bit-coding-system))
+ `(autoload-coding-system ,(nth 1 form) '(load ,file)))
;; nil here indicates that this is not a special autoload form.
(t nil))))
Index: lisp/mule/iso-with-esc.el
===================================================================
RCS file: iso-with-esc.el
diff -N iso-with-esc.el
--- /dev/null Tue Dec 4 21:02:23 2007
+++ iso-with-esc.el Tue Dec 4 21:02:24 2007
＠＠ -0,0 +1,100 ＠＠
+;;; iso-with-esc.el --
+;;; Provision of the hateful and never widely implemented Latin, Greek and
+;;; Cyrillic variable-length ISO 2022 coding systems that passed for Latin
+;;; 2, Latin 10, (etc) support in XEmacs for so long.
+;;
+;; Copyright (C) 2006 Free Software Foundation
+
+;; Author: Aidan Kehoe
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+;;;###autoload
+(define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8)
+
+;;;###autoload
+(make-coding-system
+ 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-2
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-2"))
+
+;;;###autoload
+(make-coding-system
+ 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-3
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-3"))
+
+;;;###autoload
+(make-coding-system
+ 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-4
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-4"))
+
+;;;###autoload
+(make-coding-system
+ 'iso-latin-9-with-esc 'iso2022
+ "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
+ '(mnemonic "MIME/Ltn-9" ; bletch
+ eol-type nil
+ charset-g0 ascii
+ charset-g1 latin-iso8859-15
+ charset-g2 t
+ charset-g3 t))
+
+;;;###autoload
+(make-coding-system
+ 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-9
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-5"))
+
+;;;###autoload
+(make-coding-system
+ 'cyrillic-iso-8bit-with-esc 'iso2022
+ "ISO-8859-5 (Cyrillic)"
+ '(charset-g0 ascii
+ charset-g1 cyrillic-iso8859-5
+ charset-g2 t
+ charset-g3 t
+ mnemonic "ISO8/Cyr"))
+
+;;;###autoload
+(make-coding-system
+ 'hebrew-iso-8bit-with-esc 'iso2022
+ "ISO-8859-8 (Hebrew)"
+ '(charset-g0 ascii
+ charset-g1 hebrew-iso8859-8
+ charset-g2 t
+ charset-g3 t
+ no-iso6429 t
+ mnemonic "MIME/Hbrw"))
Index: src/file-coding.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/file-coding.c,v
retrieving revision 1.58
diff -u -u -r1.58 file-coding.c
--- src/file-coding.c 2007/08/06 14:50:48 1.58
+++ src/file-coding.c 2007/12/04 20:02:24
＠＠ -229,6 +229,8 ＠＠
Lisp_Object QScoding_system_cookie;
+Lisp_Object Qposix_charset_to_coding_system_hash;
+
/* This is used to convert autodetected coding systems into existing
systems. For example, the chain undecided->convert-eol-autodetect may
have its separate parts detected as mswindows-multibyte and
＠＠ -469,6 +471,89 ＠＠
return CODING_SYSTEMP (object) ? Qt : Qnil;
}
+static Lisp_Object
+find_coding_system (Lisp_Object coding_system_or_name,
+ int do_autoloads)
+{
+ Lisp_Object lookup;
+
+ if (NILP (coding_system_or_name))
+ coding_system_or_name = Qbinary;
+ else if (CODING_SYSTEMP (coding_system_or_name))
+ return coding_system_or_name;
+ else
+ CHECK_SYMBOL (coding_system_or_name);
+
+ while (1)
+ {
+ lookup =
+ Fgethash (coding_system_or_name, Vcoding_system_hash_table, Qnil);
+
+ if (CONSP (lookup) && do_autoloads)
+ {
+ struct gcpro gcpro1;
+ int length;
+ DECLARE_EISTRING (desired_base);
+ DECLARE_EISTRING (warning_info);
+
+ eicpy_lstr (desired_base, XSYMBOL_NAME (coding_system_or_name));
+
+ /* Work out the name of the base coding system. */
+ length = eilen (desired_base);
+ if (length > (int)(sizeof ("-unix") - 1))
+ {
+ if (0 == qxestrcmp ((UAscbyte *)"-unix", (eidata (desired_base))
+ + (length - (sizeof ("-unix") - 1))))
+ {
+ eidel (desired_base, length - (sizeof ("-unix") - 1),
+ -1, 5, 5);
+ }
+ }
+ else if (length > (int)(sizeof ("-dos") - 1))
+ {
+ if ((0 == qxestrcmp ((UAscbyte *)"-dos", (eidata (desired_base))
+ + (length - (sizeof ("-dos") - 1)))) ||
+ (0 == qxestrcmp ((UAscbyte *)"-mac", (eidata (desired_base))
+ + (length - (sizeof ("-mac") - 1)))))
+ {
+ eidel (desired_base, length - (sizeof ("-dos") - 1), -1,
+ 4, 4);
+ }
+ }
+
+ coding_system_or_name = intern_int (eidata (desired_base));
+
+ /* Remove this coding system and its subsidiary coding
+ systems from the hash, to avoid calling this code recursively. */
+ Fremhash (coding_system_or_name, Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-unix"),
+ Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-dos"),
+ Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-mac"),
+ Vcoding_system_hash_table);
+
+ eicpy_ascii (warning_info, "Error autoloading coding system ");
+ eicat_lstr (warning_info, XSYMBOL_NAME (coding_system_or_name));
+
+ /* Keep around the form so it doesn't disappear from under
+ #'eval's feet. */
+ GCPRO1 (lookup);
+ call1_trapping_problems ((const CIbyte *)eidata (warning_info),
+ Qeval, lookup, 0);
+ UNGCPRO;
+
+ lookup =
+ Fgethash (coding_system_or_name, Vcoding_system_hash_table, Qnil);
+ }
+
+ if (CODING_SYSTEMP (lookup) || NILP (lookup))
+ return lookup;
+
+ coding_system_or_name = lookup;
+ }
+}
+
DEFUN ("find-coding-system", Ffind_coding_system, 1, 1, 0, /*
Retrieve the coding system of the given name.
＠＠ -479,22 +564,77 ＠＠
*/
(coding_system_or_name))
{
- if (NILP (coding_system_or_name))
- coding_system_or_name = Qbinary;
- else if (CODING_SYSTEMP (coding_system_or_name))
- return coding_system_or_name;
- else
- CHECK_SYMBOL (coding_system_or_name);
+ return find_coding_system(coding_system_or_name, 1);
+}
- while (1)
+DEFUN ("autoload-coding-system", Fautoload_coding_system, 2, 2, 0, /*
+Define SYMBOL as a coding-system that is loaded on demand.
+
+FORM is a form to evaluate to define the coding-system.
+*/
+ (symbol, form))
+{
+ Lisp_Object lookup;
+
+ CHECK_SYMBOL (symbol);
+ CHECK_CONS (form);
+
+ lookup = find_coding_system (symbol, 0);
+
+ if (!NILP (lookup) &&
+ /* Allow autoloads to be redefined. */
+ !CONSP (lookup))
{
- coding_system_or_name =
- Fgethash (coding_system_or_name, Vcoding_system_hash_table, Qnil);
+ invalid_operation ("Cannot redefine existing coding system",
+ symbol);
+ }
+
+ Fputhash (symbol, form, Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-unix"), form,
+ Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-dos"), form,
+ Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-mac"), form,
+ Vcoding_system_hash_table);
- if (CODING_SYSTEMP (coding_system_or_name)
- || NILP (coding_system_or_name))
- return coding_system_or_name;
+ /* Tell the POSIX locale infrastructure about this coding system (though
+ unfortunately it'll be too late for the startup locale sniffing. */
+ if (!UNBOUNDP (Qposix_charset_to_coding_system_hash))
+ {
+ Lisp_Object val = Fsymbol_value (Qposix_charset_to_coding_system_hash);
+ DECLARE_EISTRING (minimal_name);
+ Ibyte *full_name;
+ int len = XSTRING_LENGTH (XSYMBOL_NAME (symbol)), i;
+
+ if (!NILP (val))
+ {
+ full_name = XSTRING_DATA (XSYMBOL_NAME (symbol));
+ for (i = 0; i < len; ++i)
+ {
+ if (full_name[i] >= '0' && full_name[i] <= '9')
+ {
+ eicat_ch (minimal_name, full_name[i]);
+ }
+ else if (full_name[i] >= 'a' && full_name[i] <= 'z')
+ {
+ eicat_ch (minimal_name, full_name[i]);
+ }
+ else if (full_name[i] >= 'A' && full_name[i] <= 'Z')
+ {
+ eicat_ch (minimal_name, full_name[i] +
+ ('a' - 'A'));
+ }
+ }
+
+ if (eilen (minimal_name))
+ {
+ CHECK_HASH_TABLE (val);
+ Fputhash (eimake_string(minimal_name), symbol, val);
+ }
+ }
}
+
+ return Qt;
}
DEFUN ("get-coding-system", Fget_coding_system, 1, 1, 0, /*
＠＠ -651,7 +791,7 ＠＠
};
static int
-add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object UNUSED (value),
+add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object value,
void *coding_system_list_closure)
{
/* This function can GC */
＠＠ -660,9 +800,13 ＠＠
Lisp_Object *coding_system_list = cscl->coding_system_list;
/* We can't just use VALUE because KEY might be an alias, and we need
- the real coding system object. */
- if (XCODING_SYSTEM (Ffind_coding_system (key))->internal_p ?
- cscl->internal : cscl->normal)
+ the real coding system object.
+
+ Autoloaded coding systems have conses for their values, and can't be
+ internal coding systems, or coding system aliases. */
+ if (CONSP (value) ||
+ (XCODING_SYSTEM (Ffind_coding_system (key))->internal_p ?
+ cscl->internal : cscl->normal))
*coding_system_list = Fcons (key, *coding_system_list);
return 0;
}
＠＠ -921,9 +1065,13 ＠＠
else
CHECK_SYMBOL (name_or_existing);
- if (!NILP (Ffind_coding_system (name_or_existing)))
+ /* See is there an entry for name_or_existing in the defined coding system
+ hash table. */
+ csobj = find_coding_system (name_or_existing, 0);
+ /* Error if it's there and not an autoload form. */
+ if (!NILP (csobj) && !CONSP (csobj))
invalid_operation ("Cannot redefine existing coding system",
- name_or_existing);
+ name_or_existing);
cs = allocate_coding_system (meths, meths->extra_data_size,
name_or_existing);
＠＠ -999,6 +1147,8 ＠＠
XCODING_SYSTEM_EOL_TYPE (csobj) = EOL_AUTODETECT; /* for copy-coding-system
below */
+ Fputhash (name_or_existing, csobj, Vcoding_system_hash_table);
+
if (need_to_setup_eol_systems && !cs->internal_p)
setup_eol_coding_systems (csobj);
else if (eol_wrapper == EOL_CR || eol_wrapper == EOL_CRLF)
＠＠ -1037,8 +1187,6 ＠＠
}
XCODING_SYSTEM_EOL_TYPE (csobj) = eol_wrapper;
}
-
- Fputhash (name_or_existing, csobj, Vcoding_system_hash_table);
return csobj;
}
＠＠ -1396,7 +1544,7 ＠＠
Lisp_Object new_coding_system;
old_coding_system = Fget_coding_system (old_coding_system);
new_coding_system =
- UNBOUNDP (new_name) ? Qnil : Ffind_coding_system (new_name);
+ UNBOUNDP (new_name) ? Qnil : find_coding_system (new_name, 0);
if (NILP (new_coding_system))
{
new_coding_system =
＠＠ -4386,6 +4534,7 ＠＠
DEFSUBR (Fvalid_coding_system_type_p);
DEFSUBR (Fcoding_system_type_list);
DEFSUBR (Fcoding_system_p);
+ DEFSUBR (Fautoload_coding_system);
DEFSUBR (Ffind_coding_system);
DEFSUBR (Fget_coding_system);
DEFSUBR (Fcoding_system_list);
＠＠ -4456,6 +4605,8 ＠＠
DEFSYMBOL (Qdo_coding);
DEFSYMBOL (Qcanonicalize_after_coding);
+
+ DEFSYMBOL (Qposix_charset_to_coding_system_hash);
DEFSYMBOL (Qescape_quoted);
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[PATCH] xemacsweb: add and announce XEmacs website mirror http://xemacs.siamwebhosting.com/
17 years
Adrian Aichner
Adrian Aichner
Thank you, Siam Web Hosting.
Please subscribe yourself to the low-volume xemacs-mirrors mailing
list at
http://lists.xemacs.org/lists/listinfo/xemacs-mirrors
Best regards!
Adrian
xemacsweb ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: ChangeLog Download/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/ChangeLog,v
retrieving revision 1.277
diff -u -U0 -r1.277 ChangeLog
--- ChangeLog 10 Nov 2007 21:44:26 -0000 1.277
+++ ChangeLog 3 Dec 2007 21:04:21 -0000
＠＠ -0,0 +1,5 ＠＠
+2007-12-03 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Add and announce XEmacs website mirror
+ http://xemacs.siamwebhosting.com/.
+
Index: Download/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/ChangeLog,v
retrieving revision 1.192
diff -u -U0 -r1.192 ChangeLog
--- Download/ChangeLog 22 Oct 2007 23:05:08 -0000 1.192
+++ Download/ChangeLog 3 Dec 2007 21:04:21 -0000
＠＠ -0,0 +1,5 ＠＠
+2007-12-03 Adrian Aichner <adrian(a)xemacs.org>
+
+ * web-mirrors.content: Add and announce XEmacs website mirror
+ http://xemacs.siamwebhosting.com/.
+
xemacsweb source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: index.content
===================================================================
RCS Download/web-mirrors.content
===================================================================
RCS
Index: Download/web-mirrors.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/web-mirrors.content,v
retrieving revision 1.30
diff -u -w -r1.30 web-mirrors.content
--- Download/web-mirrors.content 22 Oct 2007 23:05:09 -0000 1.30
+++ Download/web-mirrors.content 3 Dec 2007 20:59:52 -0000
＠＠ -32,6 +32,8 ＠＠
<!-- Dallas, TX, USA -->
<li><a href="http://www.mirrorgeek.com/xemacs.org/">http://www.mirrorgeek.com/xe...>
<li><a href="http://xemacs.articleset.com/">http://xemacs.articleset.com/</a></li>
+ <!-- The server is located in Chicago IL. -->
+ <li><a href="http://xemacs.siamwebhosting.com/">http://xemacs.siamwebhosting.com...>
<li><a href="http://xemacs.site2nd.org/">http://xemacs.site2nd.org/</a></li>
</ul>
</li>
Index: index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/index.content,v
retrieving revision 1.184
diff -u -w -r1.184 index.content
--- index.content 10 Nov 2007 21:44:26 -0000 1.184
+++ index.content 3 Dec 2007 20:59:52 -0000
＠＠ -111,6 +111,16 ＠＠
<dl>
<!-- one of (dd dt) -->
+ <dt><strong>2007-12-03</strong></dt>
+ <dd>
+ <p>
+ Thank you, <a href="http://siamwebhosting.com/">Siam Web
+ Hosting</a>, for mirroring the XEmacs website. <a
+ href="http://xemacs.siamwebhosting.com/">http://xemacs.siamwebhosting.com...>
+ is located in Chicago IL.
+ </p>
+ </dd>
+ <!-- one of (dd dt) -->
<dt><strong>2007-10-23</strong></dt>
<dd>
<p>
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
Re: Switch away from ISO 2022 for the ISO-8859 character sets.
17 years
Aidan Kehoe
Aidan Kehoe
Ar an dara lá de mí na Nollaig, scríobh Stephen J. Turnbull:
> > GNU provide iso-latin-[1-16]-with-esc. Might be worth considering, with an
> > autoload infrastructure.
>
> This must be done *immediately*, as otherwise there is no way to read
> files that have inadvertantly been saved with ISO-2022 extensions.
C-u C-x C-f /path/to/file RET iso-2022-8 RET . I don’t believe we have any
Latin 2 users any more.
> There's no reason in 21.5 that you can't simply rename the builtins to
> -with-esc and duplicate or alias the ones defined in
> latin-euro-standards. Then the autoload feature (which will almost
> surely be hard to implement fully because of the large number of places
> in the C initialization code where coding systems are used)
GNU have it. It’s not neurosurgery. Initial implementation below, without
ChangeLogs. It works fine with individual coding systems, but errors with
the included iso-with-esc.el, which is something I need to fix.
> can be added later.
>
> If you find that too revolting, revert this change until you've
> provided some way to read "XEmacs ISO-8859" files that contain
> ISO-2022 designation sequences.
Index: src/file-coding.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/file-coding.c,v
retrieving revision 1.58
diff -u -u -r1.58 file-coding.c
--- src/file-coding.c 2007/08/06 14:50:48 1.58
+++ src/file-coding.c 2007/12/02 18:52:51
＠＠ -469,6 +469,33 ＠＠
return CODING_SYSTEMP (object) ? Qt : Qnil;
}
+DEFUN ("autoload-coding-system", Fautoload_coding_system, 2, 2, 0, /*
+Define SYMBOL as a coding-system that is defined on demand.
+
+FROM is a form to evaluate to define the coding-system.
+*/
+ (symbol, form))
+{
+ CHECK_SYMBOL (symbol);
+ CHECK_CONS (form);
+
+ if (!NILP (Ffind_coding_system (symbol)))
+ {
+ invalid_operation ("Cannot redefine existing coding system",
+ symbol);
+ }
+
+ Fputhash (symbol, form, Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-unix"), form,
+ Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-dos"), form,
+ Vcoding_system_hash_table);
+ Fputhash (add_suffix_to_symbol(symbol, "-mac"), form,
+ Vcoding_system_hash_table);
+
+ return Qt;
+}
+
DEFUN ("find-coding-system", Ffind_coding_system, 1, 1, 0, /*
Retrieve the coding system of the given name.
＠＠ -479,6 +506,8 ＠＠
*/
(coding_system_or_name))
{
+ Lisp_Object lookup;
+
if (NILP (coding_system_or_name))
coding_system_or_name = Qbinary;
else if (CODING_SYSTEMP (coding_system_or_name))
＠＠ -488,12 +517,71 ＠＠
while (1)
{
- coding_system_or_name =
+ lookup =
Fgethash (coding_system_or_name, Vcoding_system_hash_table, Qnil);
- if (CODING_SYSTEMP (coding_system_or_name)
- || NILP (coding_system_or_name))
- return coding_system_or_name;
+ if (CODING_SYSTEMP (lookup) || NILP (lookup))
+ return lookup;
+
+ if (CONSP (lookup))
+ {
+ struct gcpro gcpro1;
+ int length;
+ DECLARE_EISTRING (desired_base);
+ DECLARE_EISTRING (warning_info);
+
+ eicpy_lstr (desired_base, XSYMBOL_NAME (coding_system_or_name));
+
+ /* Work out the name of the base coding system. */
+ length = eilen (desired_base);
+ if (length > (int)(sizeof ("-unix") - 1))
+ {
+ if (0 == qxestrcmp ((UAscbyte *)"-unix", (eidata (desired_base))
+ + (length - (sizeof ("-unix") - 1))))
+ {
+ eidel (desired_base, length - (sizeof ("-unix") - 1),
+ -1, 5, 5);
+ }
+ }
+ else if (length > (int)(sizeof ("-dos") - 1))
+ {
+ if ((0 == qxestrcmp ((UAscbyte *)"-dos", (eidata (desired_base))
+ + (length - (sizeof ("-dos") - 1)))) ||
+ (0 == qxestrcmp ((UAscbyte *)"-mac", (eidata (desired_base))
+ + (length - (sizeof ("-mac") - 1)))))
+ {
+ eidel (desired_base, length - (sizeof ("-dos") - 1), -1,
+ 4, 4);
+ }
+ }
+
+ coding_system_or_name = intern_int (eidata (desired_base));
+
+ /* Remove this coding system and its subsidiary coding
+ systems from the hash, to avoid calling this code recursively. */
+ Fremhash (coding_system_or_name, Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-unix"),
+ Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-dos"),
+ Vcoding_system_hash_table);
+ Fremhash (add_suffix_to_symbol(coding_system_or_name, "-mac"),
+ Vcoding_system_hash_table);
+
+ eicpy_ascii (warning_info, "Error autoloading coding system ");
+ eicat_lstr (warning_info, XSYMBOL_NAME (coding_system_or_name));
+
+ /* Keep around the form so it doesn't disappear from under
+ #'eval's feet. */
+ GCPRO1 (lookup);
+ call1_trapping_problems ((const CIbyte *)eidata (warning_info),
+ Qeval, lookup, 0);
+ UNGCPRO;
+
+ lookup =
+ Fgethash (coding_system_or_name, Vcoding_system_hash_table, Qnil);
+ }
+
+ coding_system_or_name = lookup;
}
}
＠＠ -651,7 +739,7 ＠＠
};
static int
-add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object UNUSED (value),
+add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object value,
void *coding_system_list_closure)
{
/* This function can GC */
＠＠ -660,9 +748,13 ＠＠
Lisp_Object *coding_system_list = cscl->coding_system_list;
/* We can't just use VALUE because KEY might be an alias, and we need
- the real coding system object. */
- if (XCODING_SYSTEM (Ffind_coding_system (key))->internal_p ?
- cscl->internal : cscl->normal)
+ the real coding system object.
+
+ Autoloaded coding systems have conses for their values, and can't be
+ internal coding systems, or coding system aliases. */
+ if (CONSP (value) ||
+ (XCODING_SYSTEM (Ffind_coding_system (key))->internal_p ?
+ cscl->internal : cscl->normal))
*coding_system_list = Fcons (key, *coding_system_list);
return 0;
}
＠＠ -921,7 +1013,11 ＠＠
else
CHECK_SYMBOL (name_or_existing);
- if (!NILP (Ffind_coding_system (name_or_existing)))
+ csobj = Ffind_coding_system (name_or_existing);
+ if (!NILP (csobj) &&
+ /* If csobj is a cons, it's a Lisp form to define this coding system,
+ so a make-coding-system call can overwrite it. */
+ !CONSP (csobj))
invalid_operation ("Cannot redefine existing coding system",
name_or_existing);
＠＠ -4386,6 +4482,7 ＠＠
DEFSUBR (Fvalid_coding_system_type_p);
DEFSUBR (Fcoding_system_type_list);
DEFSUBR (Fcoding_system_p);
+ DEFSUBR (Fautoload_coding_system);
DEFSUBR (Ffind_coding_system);
DEFSUBR (Fget_coding_system);
DEFSUBR (Fcoding_system_list);
Index: lisp/mule/iso-with-esc.el
===================================================================
RCS file: iso-with-esc.el
diff -N iso-with-esc.el
--- /dev/null Sun Dec 2 20:00:36 2007
+++ iso-with-esc.el Sun Dec 2 20:00:40 2007
＠＠ -0,0 +1,128 ＠＠
+;;; iso-with-esc.el --
+;;; Provision of the hateful and never widely implemented Latin, Greek and
+;;; Cyrillic coding systems that passed for Latin 2, Latin 10, (etc) support
+;;; in XEmacs for so long.
+;;
+;; Copyright (C) 2006 Free Software Foundation
+
+;; Author: Aidan Kehoe
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(provide 'iso-with-esc)
+
+;;;###autoload
+(define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8)
+
+(make-coding-system
+ 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-2
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-2"))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-2-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-3
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-3"))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-3-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-4
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-4"))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-4-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'iso-latin-9-with-esc 'iso2022
+ "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
+ '(mnemonic "MIME/Ltn-9" ; bletch
+ eol-type nil
+ charset-g0 ascii
+ charset-g1 latin-iso8859-15
+ charset-g2 t
+ charset-g3 t))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-9-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'iso-latin-10-with-esc 'iso2022 "MIME ISO-8859-16"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-16
+ charset-g2 t ; grrr
+ charset-g3 t ; grrr
+ mnemonic "MIME/Ltn-10"))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-10-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-9
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-5"))
+
+;;;###autoload
+(autoload-coding-system 'iso-latin-5-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'cyrillic-iso-8bit-with-esc 'iso2022
+ "ISO-8859-5 (Cyrillic)"
+ '(charset-g0 ascii
+ charset-g1 cyrillic-iso8859-5
+ charset-g2 t
+ charset-g3 t
+ mnemonic "ISO8/Cyr"))
+
+;;;###autoload
+(autoload-coding-system 'cyrillic-iso-8bit-with-esc '(require 'iso-with-esc))
+
+(make-coding-system
+ 'hebrew-iso-8bit-with-esc 'iso2022
+ "ISO-8859-8 (Hebrew)"
+ '(charset-g0 ascii
+ charset-g1 hebrew-iso8859-8
+ charset-g2 t
+ charset-g3 t
+ no-iso6429 t
+ mnemonic "MIME/Hbrw"))
+
+;;;###autoload
+(autoload-coding-system 'hebrew-iso-8bit-with-esc '(require 'iso-with-esc))
+
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
Re: [C] Update JDE and dependencies
17 years
Michael Sperber
Michael Sperber
Mats Lidell <matsl(a)xemacs.org> writes:
> Norbert Koch wrote:
>> I'll wait until the package smoketest gets green again before I start
>> distributing the packages.
>
> There is a problem with jde-custom.el. The smoketest does a make clean
> as part of the build process but that removes jde-custom.el. There is
> an obvious flaw in the Makefile, see patch below. I have applied the
> patch to the smoketest so we will see soon if it goes green again.
Thanks---I've committed the patch, it's obviously a typo. I *was*
wondering why that file kept disappearing.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 4 participants
- 11 comments
[COMMIT] Switch away from ISO 2022 for the ISO-8859 character sets.
17 years
Aidan Kehoe
Aidan Kehoe
APPROVE COMMIT
NOTE: This patch has been committed.
It would perhaps have been a little nicer to use the Unicode mapping tables
under etc/unicode-consortium for this, but it wouldn’t read any better.
GNU provide iso-latin-[1-16]-with-esc. Might be worth considering, with an
autoload infrastructure.
lisp/ChangeLog addition:
2007-12-01 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-coding.el (iso-8859-1):
* mule/latin.el (iso-8859-2):
* mule/latin.el (iso-8859-3):
* mule/latin.el (iso-8859-4):
* mule/cyrillic.el (iso-8859-5):
* mule/greek.el (iso-8859-7):
* mule/hebrew.el (iso-8859-8):
* mule/latin.el (iso-8859-9):
* mule/latin.el (iso-8859-15):
* mule/latin.el (iso-8859-16):
Move the various ISO 8859 coding systems away from the ISO 2022
implementation to a #'make-8-bit-coding-system implementation;
this has the handy side-effect of adressing most of the
unification problems the old implementation had.
Add aliases for GNU compatibility.
Still no warning on the imminent corruption of data, though. I'm
working on it.
* mule/greek.el (windows-1253):
Unconditionally provide this coding system.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: lisp/mule/mule-coding.el
===================================================================
RCS lisp/mule/latin.el
===================================================================
RCS lisp/mule/hebrew.el
===================================================================
RCS lisp/mule/greek.el
===================================================================
RCS lisp/mule/cyrillic.el
===================================================================
RCS
Index: lisp/mule/cyrillic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/cyrillic.el,v
retrieving revision 1.17
diff -u -u -r1.17 cyrillic.el
--- lisp/mule/cyrillic.el 2007/08/26 20:00:41 1.17
+++ lisp/mule/cyrillic.el 2007/12/01 14:04:36
＠＠ -106,14 +106,107 ＠＠
(standard-syntax-table))
;; And create the coding system.
-(make-coding-system
- 'iso-8859-5 'iso2022
+(make-8-bit-coding-system
+ 'iso-8859-5
+ '((#xA1 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO
+ (#xA2 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE
+ (#xA3 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE
+ (#xA4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE
+ (#xA5 ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE
+ (#xA6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+ (#xA7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI
+ (#xA8 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE
+ (#xA9 ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE
+ (#xAA ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE
+ (#xAB ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE
+ (#xAC ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE
+ (#xAE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U
+ (#xAF ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE
+ (#xB0 ?\u0410) ;; CYRILLIC CAPITAL LETTER A
+ (#xB1 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE
+ (#xB2 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE
+ (#xB3 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE
+ (#xB4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE
+ (#xB5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE
+ (#xB6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE
+ (#xB7 ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE
+ (#xB8 ?\u0418) ;; CYRILLIC CAPITAL LETTER I
+ (#xB9 ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I
+ (#xBA ?\u041A) ;; CYRILLIC CAPITAL LETTER KA
+ (#xBB ?\u041B) ;; CYRILLIC CAPITAL LETTER EL
+ (#xBC ?\u041C) ;; CYRILLIC CAPITAL LETTER EM
+ (#xBD ?\u041D) ;; CYRILLIC CAPITAL LETTER EN
+ (#xBE ?\u041E) ;; CYRILLIC CAPITAL LETTER O
+ (#xBF ?\u041F) ;; CYRILLIC CAPITAL LETTER PE
+ (#xC0 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER
+ (#xC1 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES
+ (#xC2 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE
+ (#xC3 ?\u0423) ;; CYRILLIC CAPITAL LETTER U
+ (#xC4 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF
+ (#xC5 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA
+ (#xC6 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE
+ (#xC7 ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE
+ (#xC8 ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA
+ (#xC9 ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA
+ (#xCA ?\u042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN
+ (#xCB ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU
+ (#xCC ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN
+ (#xCD ?\u042D) ;; CYRILLIC CAPITAL LETTER E
+ (#xCE ?\u042E) ;; CYRILLIC CAPITAL LETTER YU
+ (#xCF ?\u042F) ;; CYRILLIC CAPITAL LETTER YA
+ (#xD0 ?\u0430) ;; CYRILLIC SMALL LETTER A
+ (#xD1 ?\u0431) ;; CYRILLIC SMALL LETTER BE
+ (#xD2 ?\u0432) ;; CYRILLIC SMALL LETTER VE
+ (#xD3 ?\u0433) ;; CYRILLIC SMALL LETTER GHE
+ (#xD4 ?\u0434) ;; CYRILLIC SMALL LETTER DE
+ (#xD5 ?\u0435) ;; CYRILLIC SMALL LETTER IE
+ (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE
+ (#xD7 ?\u0437) ;; CYRILLIC SMALL LETTER ZE
+ (#xD8 ?\u0438) ;; CYRILLIC SMALL LETTER I
+ (#xD9 ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I
+ (#xDA ?\u043A) ;; CYRILLIC SMALL LETTER KA
+ (#xDB ?\u043B) ;; CYRILLIC SMALL LETTER EL
+ (#xDC ?\u043C) ;; CYRILLIC SMALL LETTER EM
+ (#xDD ?\u043D) ;; CYRILLIC SMALL LETTER EN
+ (#xDE ?\u043E) ;; CYRILLIC SMALL LETTER O
+ (#xDF ?\u043F) ;; CYRILLIC SMALL LETTER PE
+ (#xE0 ?\u0440) ;; CYRILLIC SMALL LETTER ER
+ (#xE1 ?\u0441) ;; CYRILLIC SMALL LETTER ES
+ (#xE2 ?\u0442) ;; CYRILLIC SMALL LETTER TE
+ (#xE3 ?\u0443) ;; CYRILLIC SMALL LETTER U
+ (#xE4 ?\u0444) ;; CYRILLIC SMALL LETTER EF
+ (#xE5 ?\u0445) ;; CYRILLIC SMALL LETTER HA
+ (#xE6 ?\u0446) ;; CYRILLIC SMALL LETTER TSE
+ (#xE7 ?\u0447) ;; CYRILLIC SMALL LETTER CHE
+ (#xE8 ?\u0448) ;; CYRILLIC SMALL LETTER SHA
+ (#xE9 ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA
+ (#xEA ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN
+ (#xEB ?\u044B) ;; CYRILLIC SMALL LETTER YERU
+ (#xEC ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN
+ (#xED ?\u044D) ;; CYRILLIC SMALL LETTER E
+ (#xEE ?\u044E) ;; CYRILLIC SMALL LETTER YU
+ (#xEF ?\u044F) ;; CYRILLIC SMALL LETTER YA
+ (#xF0 ?\u2116) ;; NUMERO SIGN
+ (#xF1 ?\u0451) ;; CYRILLIC SMALL LETTER IO
+ (#xF2 ?\u0452) ;; CYRILLIC SMALL LETTER DJE
+ (#xF3 ?\u0453) ;; CYRILLIC SMALL LETTER GJE
+ (#xF4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE
+ (#xF5 ?\u0455) ;; CYRILLIC SMALL LETTER DZE
+ (#xF6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+ (#xF7 ?\u0457) ;; CYRILLIC SMALL LETTER YI
+ (#xF8 ?\u0458) ;; CYRILLIC SMALL LETTER JE
+ (#xF9 ?\u0459) ;; CYRILLIC SMALL LETTER LJE
+ (#xFA ?\u045A) ;; CYRILLIC SMALL LETTER NJE
+ (#xFB ?\u045B) ;; CYRILLIC SMALL LETTER TSHE
+ (#xFC ?\u045C) ;; CYRILLIC SMALL LETTER KJE
+ (#xFD ?\u00A7) ;; SECTION SIGN
+ (#xFE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U
+ (#xFF ?\u045F)) ;; CYRILLIC SMALL LETTER DZHE
"ISO-8859-5 (Cyrillic)"
- '(charset-g0 ascii
- charset-g1 cyrillic-iso8859-5
- charset-g2 t
- charset-g3 t
- mnemonic "ISO8/Cyr"))
+ '(mnemonic "ISO8/Cyr"
+ documentation "The ISO standard for encoding Cyrillic. Not used in practice.
+See `koi8-r' and `windows-1250'. "
+ aliases (cyrillic-iso-8bit)))
;; Provide this locale; but don't allow it to be picked up from the Unix
;; locale (it has no locale entry in the alist), we leave that to Russian.
Index: lisp/mule/greek.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/greek.el,v
retrieving revision 1.9
diff -u -u -r1.9 greek.el
--- lisp/mule/greek.el 2007/08/01 13:53:40 1.9
+++ lisp/mule/greek.el 2007/12/01 14:04:37
＠＠ -118,138 +118,210 ＠＠
(string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
syntax-table))
-(make-coding-system
- 'iso-8859-7 'iso2022 "ISO-8859-7 (Greek)"
- '(charset-g0 ascii
- charset-g1 greek-iso8859-7
- charset-g2 t
- charset-g3 t
- mnemonic "Grk"))
+(make-8-bit-coding-system
+ 'iso-8859-7
+ '((#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
+ (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
+ (#xA4 ?\u20AC) ;; EURO SIGN
+ (#xA5 ?\u20AF) ;; DRACHMA SIGN
+ (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI
+ (#xAF ?\u2015) ;; HORIZONTAL BAR
+ (#xB4 ?\u0384) ;; GREEK TONOS
+ (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS
+ (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
+ (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
+ (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
+ (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
+ (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
+ (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
+ (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
+ (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+ (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
+ (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
+ (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
+ (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
+ (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
+ (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
+ (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
+ (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
+ (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
+ (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
+ (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
+ (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
+ (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
+ (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
+ (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
+ (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
+ (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
+ (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
+ (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
+ (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
+ (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
+ (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
+ (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
+ (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
+ (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+ (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+ (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
+ (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
+ (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
+ (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
+ (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+ (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
+ (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
+ (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
+ (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
+ (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
+ (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
+ (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
+ (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
+ (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
+ (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
+ (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
+ (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
+ (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
+ (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
+ (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
+ (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
+ (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
+ (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
+ (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
+ (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
+ (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
+ (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
+ (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
+ (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
+ (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
+ (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
+ (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+ (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
+ (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
+ (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
+ "ISO-8859-7 (Greek)"
+ '(mnemonic "Grk"
+ aliases (greek-iso-8bit)))
-;; Windows 1253 may be provided automatically on Windows, in which case
-;; we don't need to provide it.
-(unless (find-coding-system 'windows-1253)
- (make-8-bit-coding-system
- 'windows-1253
- '((#x80 ?\u20AC) ;; EURO SIGN
- (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
- (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
- (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
- (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
- (#x86 ?\u2020) ;; DAGGER
- (#x87 ?\u2021) ;; DOUBLE DAGGER
- (#x89 ?\u2030) ;; PER MILLE SIGN
- (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
- (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
- (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
- (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
- (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
- (#x95 ?\u2022) ;; BULLET
- (#x96 ?\u2013) ;; EN DASH
- (#x97 ?\u2014) ;; EM DASH
- (#x99 ?\u2122) ;; TRADE MARK SIGN
- (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
- (#xA0 ?\u00A0) ;; NO-BREAK SPACE
- (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS
- (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
- (#xA3 ?\u00A3) ;; POUND SIGN
- (#xA4 ?\u00A4) ;; CURRENCY SIGN
- (#xA5 ?\u00A5) ;; YEN SIGN
- (#xA6 ?\u00A6) ;; BROKEN BAR
- (#xA7 ?\u00A7) ;; SECTION SIGN
- (#xA8 ?\u00A8) ;; DIAERESIS
- (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
- (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
- (#xAC ?\u00AC) ;; NOT SIGN
- (#xAD ?\u00AD) ;; SOFT HYPHEN
- (#xAE ?\u00AE) ;; REGISTERED SIGN
- (#xAF ?\u2015) ;; HORIZONTAL BAR
- (#xB0 ?\u00B0) ;; DEGREE SIGN
- (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
- (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
- (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
- (#xB4 ?\u0384) ;; GREEK TONOS
- (#xB5 ?\u00B5) ;; MICRO SIGN
- (#xB6 ?\u00B6) ;; PILCROW SIGN
- (#xB7 ?\u00B7) ;; MIDDLE DOT
- (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
- (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
- (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
- (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
- (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
- (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
- (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
- (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
- (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
- (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
- (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
- (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
- (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
- (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
- (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
- (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
- (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
- (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
- (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
- (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
- (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
- (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
- (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
- (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
- (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
- (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
- (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
- (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
- (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
- (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
- (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
- (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
- (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
- (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
- (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
- (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
- (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
- (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
- (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
- (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
- (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
- (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
- (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
- (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
- (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
- (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
- (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
- (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
- (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
- (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
- (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
- (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
- (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
- (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
- (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
- (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
- (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
- (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
- (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
- (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
- (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
- (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
- (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
- (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
- (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
- (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
- (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
- (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
- (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
- (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
- "Microsoft's Code Page 1253, for monotonic Greek. "
- '(mnemonic "GrkW"
- documentation
- "This ASCII-compatible encoding is slightly incompatibile with
+(make-8-bit-coding-system
+ 'windows-1253
+ '((#x80 ?\u20AC) ;; EURO SIGN
+ (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
+ (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
+ (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+ (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
+ (#x86 ?\u2020) ;; DAGGER
+ (#x87 ?\u2021) ;; DOUBLE DAGGER
+ (#x89 ?\u2030) ;; PER MILLE SIGN
+ (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+ (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
+ (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
+ (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
+ (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+ (#x95 ?\u2022) ;; BULLET
+ (#x96 ?\u2013) ;; EN DASH
+ (#x97 ?\u2014) ;; EM DASH
+ (#x99 ?\u2122) ;; TRADE MARK SIGN
+ (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+ (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+ (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS
+ (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
+ (#xA3 ?\u00A3) ;; POUND SIGN
+ (#xA4 ?\u00A4) ;; CURRENCY SIGN
+ (#xA5 ?\u00A5) ;; YEN SIGN
+ (#xA6 ?\u00A6) ;; BROKEN BAR
+ (#xA7 ?\u00A7) ;; SECTION SIGN
+ (#xA8 ?\u00A8) ;; DIAERESIS
+ (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+ (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+ (#xAC ?\u00AC) ;; NOT SIGN
+ (#xAD ?\u00AD) ;; SOFT HYPHEN
+ (#xAE ?\u00AE) ;; REGISTERED SIGN
+ (#xAF ?\u2015) ;; HORIZONTAL BAR
+ (#xB0 ?\u00B0) ;; DEGREE SIGN
+ (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+ (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
+ (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
+ (#xB4 ?\u0384) ;; GREEK TONOS
+ (#xB5 ?\u00B5) ;; MICRO SIGN
+ (#xB6 ?\u00B6) ;; PILCROW SIGN
+ (#xB7 ?\u00B7) ;; MIDDLE DOT
+ (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
+ (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
+ (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
+ (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+ (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
+ (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
+ (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
+ (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
+ (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+ (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
+ (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
+ (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
+ (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
+ (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
+ (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
+ (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
+ (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
+ (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
+ (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
+ (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
+ (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
+ (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
+ (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
+ (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
+ (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
+ (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
+ (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
+ (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
+ (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
+ (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
+ (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
+ (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
+ (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
+ (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+ (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+ (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
+ (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
+ (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
+ (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
+ (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+ (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
+ (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
+ (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
+ (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
+ (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
+ (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
+ (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
+ (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
+ (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
+ (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
+ (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
+ (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
+ (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
+ (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
+ (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
+ (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
+ (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
+ (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
+ (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
+ (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
+ (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
+ (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
+ (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
+ (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
+ (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
+ (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
+ (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+ (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
+ (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
+ (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
+ "Microsoft's Code Page 1253, for monotonic Greek. "
+ '(mnemonic "GrkW"
+ documentation
+ "This ASCII-compatible encoding is slightly incompatibile with
ISO-8859-7; it provides several widely-used punctuation marks in the C1
ISO-2022 area, which makes it incompatbile with the latter standard, but
that latter standard is not used in Greece, "
- aliases (cp1253))))
+ aliases (cp1253)))
(set-language-info-alist
"Greek" '((charset greek-iso8859-7)
Index: lisp/mule/hebrew.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/hebrew.el,v
retrieving revision 1.5
diff -u -u -r1.5 hebrew.el
--- lisp/mule/hebrew.el 2007/05/20 20:09:29 1.5
+++ lisp/mule/hebrew.el 2007/12/01 14:04:37
＠＠ -48,16 +48,42 ＠＠
(modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
-(make-coding-system
- 'iso-8859-8 'iso2022
+(make-8-bit-coding-system
+ 'iso-8859-8
+ '((#xAA ?\u00D7) ;; MULTIPLICATION SIGN
+ (#xBA ?\u00F7) ;; DIVISION SIGN
+ (#xDF ?\u2017) ;; DOUBLE LOW LINE
+ (#xE0 ?\u05D0) ;; HEBREW LETTER ALEF
+ (#xE1 ?\u05D1) ;; HEBREW LETTER BET
+ (#xE2 ?\u05D2) ;; HEBREW LETTER GIMEL
+ (#xE3 ?\u05D3) ;; HEBREW LETTER DALET
+ (#xE4 ?\u05D4) ;; HEBREW LETTER HE
+ (#xE5 ?\u05D5) ;; HEBREW LETTER VAV
+ (#xE6 ?\u05D6) ;; HEBREW LETTER ZAYIN
+ (#xE7 ?\u05D7) ;; HEBREW LETTER HET
+ (#xE8 ?\u05D8) ;; HEBREW LETTER TET
+ (#xE9 ?\u05D9) ;; HEBREW LETTER YOD
+ (#xEA ?\u05DA) ;; HEBREW LETTER FINAL KAF
+ (#xEB ?\u05DB) ;; HEBREW LETTER KAF
+ (#xEC ?\u05DC) ;; HEBREW LETTER LAMED
+ (#xED ?\u05DD) ;; HEBREW LETTER FINAL MEM
+ (#xEE ?\u05DE) ;; HEBREW LETTER MEM
+ (#xEF ?\u05DF) ;; HEBREW LETTER FINAL NUN
+ (#xF0 ?\u05E0) ;; HEBREW LETTER NUN
+ (#xF1 ?\u05E1) ;; HEBREW LETTER SAMEKH
+ (#xF2 ?\u05E2) ;; HEBREW LETTER AYIN
+ (#xF3 ?\u05E3) ;; HEBREW LETTER FINAL PE
+ (#xF4 ?\u05E4) ;; HEBREW LETTER PE
+ (#xF5 ?\u05E5) ;; HEBREW LETTER FINAL TSADI
+ (#xF6 ?\u05E6) ;; HEBREW LETTER TSADI
+ (#xF7 ?\u05E7) ;; HEBREW LETTER QOF
+ (#xF8 ?\u05E8) ;; HEBREW LETTER RESH
+ (#xF9 ?\u05E9) ;; HEBREW LETTER SHIN
+ (#xFA ?\u05EA) ;; HEBREW LETTER TAV
+ (#xFD ?\u200E) ;; LEFT-TO-RIGHT MARK
+ (#xFE ?\u200F)) ;; RIGHT-TO-LEFT MARK
"ISO-8859-8 (Hebrew)"
- '(charset-g0 ascii
- charset-g1 hebrew-iso8859-8
- charset-g2 t
- charset-g3 t
- no-iso6429 t
- mnemonic "MIME/Hbrw"
- ))
+ '(mnemonic "MIME/Hbrw"))
(make-coding-system
'ctext-hebrew 'iso2022
Index: lisp/mule/latin.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/latin.el,v
retrieving revision 1.10
diff -u -u -r1.10 latin.el
--- lisp/mule/latin.el 2007/10/26 10:51:06 1.10
+++ lisp/mule/latin.el 2007/12/01 14:04:38
＠＠ -124,14 +124,70 ＠＠
(#xDD #xFD) ;; Y WITH ACUTE
(#xDE #xFE))) ;; T WITH CEDILLA
-(make-coding-system
- 'iso-8859-2 'iso2022 "ISO-8859-2 (Latin-2)"
- '(charset-g0 ascii
- charset-g1 latin-iso8859-2
- charset-g2 t
- charset-g3 t
- mnemonic "MIME/Ltn-2"))
-
+(make-8-bit-coding-system
+ 'iso-8859-2
+ '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+ (#xA2 ?\u02D8) ;; BREVE
+ (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
+ (#xA5 ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON
+ (#xA6 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
+ (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+ (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+ (#xAB ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON
+ (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
+ (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+ (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+ (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+ (#xB2 ?\u02DB) ;; OGONEK
+ (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
+ (#xB5 ?\u013E) ;; LATIN SMALL LETTER L WITH CARON
+ (#xB6 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
+ (#xB7 ?\u02C7) ;; CARON
+ (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+ (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+ (#xBB ?\u0165) ;; LATIN SMALL LETTER T WITH CARON
+ (#xBC ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
+ (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT
+ (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+ (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+ (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
+ (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
+ (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
+ (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
+ (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+ (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+ (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON
+ (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON
+ (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+ (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
+ (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON
+ (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+ (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON
+ (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
+ (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+ (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
+ (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE
+ (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
+ (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE
+ (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
+ (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+ (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+ (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON
+ (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON
+ (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+ (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
+ (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON
+ (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
+ (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON
+ (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
+ (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
+ (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA
+ (#xFF ?\u02D9));; DOT ABOVE
+ "ISO-8859-2 (Latin-2) for Central Europe.
+See also `windows-1250', and `iso-8859-1', which is compatible with Latin 2
+when used to write German (or English, of course). "
+ '(mnemonic "Latin 2"
+ aliases (iso-latin-2 latin-2)))
;;
;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent.
＠＠ -202,13 +258,40 ＠＠
(#xDD #xFD) ;; U WITH BREVE
(#xDE #xFE))) ;; S WITH CIRCUMFLEX
-(make-coding-system
- 'iso-8859-3 'iso2022 "ISO-8859-3 (Latin-3)"
- '(charset-g0 ascii
- charset-g1 latin-iso8859-3
- charset-g2 t
- charset-g3 t
- mnemonic "MIME/Ltn-3"))
+(make-8-bit-coding-system
+ 'iso-8859-3
+ '((#xA1 ?\u0126) ;; LATIN CAPITAL LETTER H WITH STROKE
+ (#xA2 ?\u02D8) ;; BREVE
+ (#xA6 ?\u0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+ (#xA9 ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
+ (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+ (#xAB ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
+ (#xAC ?\u0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+ (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+ (#xB1 ?\u0127) ;; LATIN SMALL LETTER H WITH STROKE
+ (#xB6 ?\u0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX
+ (#xB9 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
+ (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+ (#xBB ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
+ (#xBC ?\u0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX
+ (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+ (#xC5 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
+ (#xC6 ?\u0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+ (#xD5 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
+ (#xD8 ?\u011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+ (#xDD ?\u016C) ;; LATIN CAPITAL LETTER U WITH BREVE
+ (#xDE ?\u015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+ (#xE5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
+ (#xE6 ?\u0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX
+ (#xF5 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
+ (#xF8 ?\u011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX
+ (#xFD ?\u016D) ;; LATIN SMALL LETTER U WITH BREVE
+ (#xFE ?\u015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX
+ (#xFF ?\u02D9)) ;; DOT ABOVE
+ "ISO-8859-3 (Latin-3)"
+ '(mnemonic "Latin 3"
+ documentation "Aimed at Turkish, Maltese and Esperanto. "
+ aliases (iso-latin-3 latin-3)))
;; Latin-4 (ISO-8859-4)
＠＠ -282,13 +365,62 ＠＠
(#xDD #xFD) ;; U WITH TILDE
(#xDE #xFE))) ;; U WITH MACRON
-(make-coding-system
- 'iso-8859-4 'iso2022 "ISO-8859-4 (Latin-4)"
- '(charset-g0 ascii
- charset-g1 latin-iso8859-4
- charset-g2 t
- charset-g3 t
- mnemonic "MIME/Ltn-4"))
+(make-8-bit-coding-system
+ 'iso-8859-4
+ '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+ (#xA2 ?\u0138) ;; LATIN SMALL LETTER KRA
+ (#xA3 ?\u0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA
+ (#xA5 ?\u0128) ;; LATIN CAPITAL LETTER I WITH TILDE
+ (#xA6 ?\u013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA
+ (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+ (#xAA ?\u0112) ;; LATIN CAPITAL LETTER E WITH MACRON
+ (#xAB ?\u0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA
+ (#xAC ?\u0166) ;; LATIN CAPITAL LETTER T WITH STROKE
+ (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+ (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+ (#xB2 ?\u02DB) ;; OGONEK
+ (#xB3 ?\u0157) ;; LATIN SMALL LETTER R WITH CEDILLA
+ (#xB5 ?\u0129) ;; LATIN SMALL LETTER I WITH TILDE
+ (#xB6 ?\u013C) ;; LATIN SMALL LETTER L WITH CEDILLA
+ (#xB7 ?\u02C7) ;; CARON
+ (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+ (#xBA ?\u0113) ;; LATIN SMALL LETTER E WITH MACRON
+ (#xBB ?\u0123) ;; LATIN SMALL LETTER G WITH CEDILLA
+ (#xBC ?\u0167) ;; LATIN SMALL LETTER T WITH STROKE
+ (#xBD ?\u014A) ;; LATIN CAPITAL LETTER ENG
+ (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+ (#xBF ?\u014B) ;; LATIN SMALL LETTER ENG
+ (#xC0 ?\u0100) ;; LATIN CAPITAL LETTER A WITH MACRON
+ (#xC7 ?\u012E) ;; LATIN CAPITAL LETTER I WITH OGONEK
+ (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+ (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+ (#xCC ?\u0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE
+ (#xCF ?\u012A) ;; LATIN CAPITAL LETTER I WITH MACRON
+ (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+ (#xD1 ?\u0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA
+ (#xD2 ?\u014C) ;; LATIN CAPITAL LETTER O WITH MACRON
+ (#xD3 ?\u0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA
+ (#xD9 ?\u0172) ;; LATIN CAPITAL LETTER U WITH OGONEK
+ (#xDD ?\u0168) ;; LATIN CAPITAL LETTER U WITH TILDE
+ (#xDE ?\u016A) ;; LATIN CAPITAL LETTER U WITH MACRON
+ (#xE0 ?\u0101) ;; LATIN SMALL LETTER A WITH MACRON
+ (#xE7 ?\u012F) ;; LATIN SMALL LETTER I WITH OGONEK
+ (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+ (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+ (#xEC ?\u0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE
+ (#xEF ?\u012B) ;; LATIN SMALL LETTER I WITH MACRON
+ (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+ (#xF1 ?\u0146) ;; LATIN SMALL LETTER N WITH CEDILLA
+ (#xF2 ?\u014D) ;; LATIN SMALL LETTER O WITH MACRON
+ (#xF3 ?\u0137) ;; LATIN SMALL LETTER K WITH CEDILLA
+ (#xF9 ?\u0173) ;; LATIN SMALL LETTER U WITH OGONEK
+ (#xFD ?\u0169) ;; LATIN SMALL LETTER U WITH TILDE
+ (#xFE ?\u016B) ;; LATIN SMALL LETTER U WITH MACRON
+ (#xFF ?\u02D9));; DOT ABOVE
+ "ISO-8859-4 (Latin-4)"
+ '(mnemonic "Latin 4"
+ aliases (iso-latin-4 latin-4)
+ documentation "Obsolete coding system for the Baltic rim. "))
;; Latin-8 (ISO 8859-14) Celtic.
＠＠ -440,15 +572,19 ＠＠
(#xDD #xFD) ;; Y WITH ACUTE
(#xDE #xFE))) ;; THORN
-(make-coding-system
- 'iso-8859-15 'iso2022
- "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
- '(mnemonic "MIME/Ltn-9" ; bletch
- eol-type nil
- charset-g0 ascii
- charset-g1 latin-iso8859-15
- charset-g2 t
- charset-g3 t))
+(make-8-bit-coding-system
+ 'iso-8859-15
+ '((#xA4 ?\u20AC) ;; EURO SIGN
+ (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+ (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+ (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+ (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+ (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+ (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
+ (#xBE ?\u0178)) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+ "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
+ '(mnemonic "Latin 9"
+ aliases (iso-latin-9 latin-9 latin-0)))
;; end of ISO 8859-15.
＠＠ -546,13 +682,51 ＠＠
(#xDE #xFE))) ;; T WITH COMMA BELOW
;; Add a coding system for ISO 8859-16.
-(make-coding-system
- 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
- '(charset-g0 ascii
- charset-g1 latin-iso8859-16
- charset-g2 t ; grrr
- charset-g3 t ; grrr
- mnemonic "MIME/Ltn-10"))
+(make-8-bit-coding-system
+ 'iso-8859-16
+ '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+ (#xA2 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+ (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
+ (#xA4 ?\u20AC) ;; EURO SIGN
+ (#xA5 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+ (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+ (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+ (#xAA ?\u0218) ;; LATIN CAPITAL LETTER S WITH COMMA BELOW
+ (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
+ (#xAE ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
+ (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+ (#xB2 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+ (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
+ (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+ (#xB5 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+ (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+ (#xB9 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+ (#xBA ?\u0219) ;; LATIN SMALL LETTER S WITH COMMA BELOW
+ (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+ (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
+ (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+ (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+ (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
+ (#xC5 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
+ (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+ (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
+ (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+ (#xD7 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
+ (#xD8 ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+ (#xDD ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+ (#xDE ?\u021A) ;; LATIN CAPITAL LETTER T WITH COMMA BELOW
+ (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
+ (#xE5 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
+ (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+ (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
+ (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
+ (#xF7 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
+ (#xF8 ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
+ (#xFD ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+ (#xFE ?\u021B)) ;; LATIN SMALL LETTER T WITH COMMA BELOW
+ "ISO-8859-16 (Latin-10)"
+ '(mnemonic "Latin 10"
+ aliases (iso-latin-10)))
;; end of ISO 8859-16.
＠＠ -628,13 +802,17 ＠＠
(make-char 'latin-iso8859-9 #xfd)
?I (standard-case-table))
-(make-coding-system
- 'iso-8859-9 'iso2022 "ISO-8859-9 (Latin-5)"
- '(charset-g0 ascii
- charset-g1 latin-iso8859-9
- charset-g2 t
- charset-g3 t
- mnemonic "MIME/Ltn-5"))
+(make-8-bit-coding-system
+ 'iso-8859-9
+ '((#xD0 ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
+ (#xDD ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
+ (#xDE ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+ (#xF0 ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
+ (#xFD ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
+ (#xFE ?\u015F)) ;; LATIN SMALL LETTER S WITH CEDILLA
+ "ISO-8859-9 (Latin-5)"
+ '(mnemonic "Latin 5"
+ aliases (iso-latin-5 latin-5)))
;; end of ISO-8859-9
Index: lisp/mule/mule-coding.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-coding.el,v
retrieving revision 1.26
diff -u -u -r1.26 mule-coding.el
--- lisp/mule/mule-coding.el 2007/11/29 13:38:19 1.26
+++ lisp/mule/mule-coding.el 2007/12/01 14:04:39
＠＠ -107,11 +107,6 ＠＠
mnemonic "CText"))
(make-coding-system
- 'iso-8859-1 'no-conversion
- "ISO-8859-1 (Latin-1)"
- '(eol-type nil mnemonic "Noconv"))
-
-(make-coding-system
'iso-2022-8bit-ss2 'iso2022
"ISO-2022 8-bit w/SS2"
'(charset-g0 ascii
＠＠ -699,3 +694,13 ＠＠
do (define-coding-system-alias alias
',name)))
(find-coding-system ',name)))))
+
+;; Ideally this would be in latin.el, but code-init.el uses it.
+(make-8-bit-coding-system
+ 'iso-8859-1
+ '() ;; No differences from Latin 1.
+ "ISO-8859-1 (Latin-1)"
+ '(mnemonic "Latin 1"
+ documentation "The most used encoding of Western Europe and the Americas."
+ aliases (iso-latin-1 latin-1)))
+
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] Keep around gensym correspondence information through entire bytecomp files
17 years
Aidan Kehoe
Aidan Kehoe
Putting together a test-case for this is not easy. I’m about to commit a
change to move the iso-8859-[...] coding systems away from ISO 2022, and
lisp/mule/latin.el fails in the absence of this change with "Multiply
defined symbol label" 1.
This change doesn’t preserve print-gensym-alist when byte-compile-file is
called successively on different files.
APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-12-01 Aidan Kehoe <kehoea(a)parhasard.net>
* bytecomp.el (byte-compile-output-file-form):
Bind print-gensym to a cons, to tell the Lisp printer not to clear
print-gensym-alist on exit from #'print. This is appropriate
because #'byte-compile-output-file-form may be called multiple
times for a given output file, and re-using the
#1=#:... placeholders in that context is inappropriate.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: lisp/bytecomp.el
===================================================================
RCS
Index: lisp/bytecomp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/bytecomp.el,v
retrieving revision 1.21
diff -u -u -r1.21 bytecomp.el
--- lisp/bytecomp.el 2007/11/27 22:15:34 1.21
+++ lisp/bytecomp.el 2007/12/01 13:30:49
＠＠ -1888,7 +1888,7 ＠＠
(print-readably t) ; print #[] for bytecode, 'x for (quote x)
(print-gensym (if (and byte-compile-print-gensym
(not byte-compile-emacs19-compatibility))
- t nil)))
+ '(t) nil)))
(princ "\n" byte-compile-outbuffer)
(prin1 form byte-compile-outbuffer)
nil)))
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
The ULTIMATE Golfer's Christmas Present
17 years
Hong Kong Finance Holdings Ltd
Hong Kong Finance Holdings Ltd
If this newsletter is not displayed correctly, please click here to
view it online: http://crm.investmentproperty.hk/link.php?M=458886&N=113&L=65
IMPORTANT: This offer is not applicable to residents of Australia. Our
property consultants deal exclusively with overseas properties and are
therefore not licensed to deal with Hong Kong properties under the
Estate Agents Ordinance of the Hong Kong SAR. Hong Kong Finance Holdings
Ltd take your privacy seriously and respect your rights under the laws
of the Hong Kong SAR. Should you wish to stop receiving property alerts
from Hong Kong Finance Holdings please visit this link:
http://crm.investmentproperty.hk/unsubscribe.php?M=458886&N=113&L=1&C=ff7... or contact us using the contact details below and a
staff member will be happy to deal with your request in a professional
and business-like manner. Correspondence Address: Post Office Box 5126,
General Post Office, Central, Hong Kong. Tel: 2159 9690 Fax: 2159 9688
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments