Mercurial > emacs
view lisp/=term-nasty.el @ 29010:f62cfa81b0c4
(concat): Handle 8-bit characters correctly.
(Fstring_as_unibyte): Be sure to make all 8-bit characters in
unibyte in the result.
(Fstring_as_multibyte): Be sure to make all 8-bit characters in
valid multibyte form in the result.
(map_char_table): Use MAKE_CHAR instead of MAKE_NON_ASCII_CHAR.
(Fbase64_encode_region, Fbase64_encode_string): If base64_encode_1
return -1, signal an error.
(base64_encode_1): New arg MULTIBYTE. Get each character by
CHAR_STRING_AND_LENGTH if MULTIBYTE is nonzero. If a multibyte
character is found, return -1.
(Fbase64_decode_region): Delete codes for handling byte-combining.
Treat each decoded byte as a unibyte character.
(Fbase64_decode_string): Return unibyte string.
(Fcompare_strings, concat, string_byte_to_char): Use
FETCH_STRING_CHAR_ADVANCE_NO_CHECK instead off
FETCH_STRING_CHAR_ADVANCE.
(Fstring_lessp): Use FETCH_STRING_CHAR_ADVANCE unconditionally.
(mapcar1): If SEQ is string, always use FETCH_STRING_CHAR_ADVANCE.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 19 May 2000 23:59:50 +0000 |
parents | 9d4205d1e460 |
children |
line wrap: on
line source
;;; term-nasty.el --- Damned Things from terminfo.el ;;; This text is no longer included in Emacs, because it was censored ;;; by the Communications Decency Act. The law was promoted as a ban ;;; on pornography, but it bans far more than that. This file did not ;;; contain pornography, but it was prohibited nonetheless. ;;; For information on US government censorship of the Internet, and ;;; what you can do to bring back freedom of the press, see the web ;;; site http://www.vtw.org/ ;;; term-nasty.el ends here