mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

(Fchar_bytes): Doc fix.

Browse source 
(char_bytes): Fix returned value to match returned type.
(syms_of_charset): Fix type clash in initialisation of
Vauto_fill_chars.
This commit is contained in:
Andreas Schwab 1998-10-30 10:13:36 +00:00
parent b7b75652ce
commit 60022cb712
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/charset.c
View file

@ -1050,7 +1050,7 @@ The conversion is done based on `nonascii-translation-table' (which see)\n\
DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
"Return 1 regardless of the argument CHAR.\n\
This is now an obsolte function. We keep is just for backward compatibility.")
This is now an obsolete function. We keep it just for backward compatibility.")
(ch)
Lisp_Object ch;
{
@ -1081,7 +1081,7 @@ char_bytes (c)
bytes = CHARSET_DEFINED_P (charset) ? CHARSET_BYTES (charset) : 1;
}
return make_number (bytes);
return bytes;
}
/* Return the width of character of which multi-byte form starts with
@ -1966,8 +1966,8 @@ See also the docstring of `make-translation-table'.");
"A char-table for characters which invoke auto-filling.\n\
Such characters has value t in this table.");
Vauto_fill_chars = Fmake_char_table (Qauto_fill_chars, Qnil);
CHAR_TABLE_SET (Vauto_fill_chars, ' ', Qt);
CHAR_TABLE_SET (Vauto_fill_chars, '\n', Qt);
CHAR_TABLE_SET (Vauto_fill_chars, make_number (' '), Qt);
CHAR_TABLE_SET (Vauto_fill_chars, make_number ('\n'), Qt);
}
#endif /* emacs */