Mercurial > emacs
changeset 93473:33248fa26b8c
(Funibyte_charset, Fset_unibyte_charset): Remove.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 Apr 2008 00:54:03 +0000 |
| parents | 6b831f75ae94 |
| children | b3b75d97d96a |
| files | etc/NEWS src/ChangeLog src/charset.c |
| diffstat | 3 files changed, 4 insertions(+), 44 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Mon Mar 31 16:25:18 2008 +0000 +++ b/etc/NEWS Tue Apr 01 00:54:03 2008 +0000 @@ -773,12 +773,6 @@ *** The new function `set-charset-priority' sets priorities of charsets. -*** The new function `unibyte-charset' returns the current unibyte -charset. The unibyte charset determines how unibyte/multibyte -conversion is done. - -*** The new function `set-unibyte-charset' sets the unibyte charset. - *** The new function `unibyte-string' make a unibyte string from bytes. *** The new function `define-char-code-property' defines a character
--- a/src/ChangeLog Mon Mar 31 16:25:18 2008 +0000 +++ b/src/ChangeLog Tue Apr 01 00:54:03 2008 +0000 @@ -1,3 +1,7 @@ +2008-04-01 Stefan Monnier <monnier@iro.umontreal.ca> + + * charset.c (Funibyte_charset, Fset_unibyte_charset): Remove. + 2008-03-31 Juri Linkov <juri@jurta.org> * window.c (Fdisplay_buffer): Reinitialize `tem' to nil.
--- a/src/charset.c Mon Mar 31 16:25:18 2008 +0000 +++ b/src/charset.c Tue Apr 01 00:54:03 2008 +0000 @@ -1170,42 +1170,6 @@ } -DEFUN ("unibyte-charset", Funibyte_charset, Sunibyte_charset, 0, 0, 0, - doc: /* Return the unibyte charset (set by `set-unibyte-charset'). */) - () -{ - return CHARSET_NAME (CHARSET_FROM_ID (charset_unibyte)); -} - - -DEFUN ("set-unibyte-charset", Fset_unibyte_charset, Sset_unibyte_charset, - 1, 1, 0, - doc: /* Set the unibyte charset to CHARSET. -This determines how unibyte/multibyte conversion is done. See also -function `unibyte-charset'. */) - (charset) - Lisp_Object charset; -{ - struct charset *cs; - int i, c; - - CHECK_CHARSET_GET_CHARSET (charset, cs); - if (! cs->ascii_compatible_p - || cs->dimension != 1) - error ("Inappropriate unibyte charset: %s", SDATA (SYMBOL_NAME (charset))); - charset_unibyte = cs->id; - memset (unibyte_has_multibyte_table, 1, 128); - for (i = 128; i < 256; i++) - { - c = DECODE_CHAR (cs, i); - unibyte_to_multibyte_table[i] = (c < 0 ? BYTE8_TO_CHAR (i) : c); - unibyte_has_multibyte_table[i] = c >= 0; - } - - return Qnil; -} - - DEFUN ("charset-plist", Fcharset_plist, Scharset_plist, 1, 1, 0, doc: /* Return the property list of CHARSET. */) (charset) @@ -2142,8 +2106,6 @@ defsubr (&Smap_charset_chars); defsubr (&Sdefine_charset_internal); defsubr (&Sdefine_charset_alias); - defsubr (&Sunibyte_charset); - defsubr (&Sset_unibyte_charset); defsubr (&Scharset_plist); defsubr (&Sset_charset_plist); defsubr (&Sunify_charset);