Mercurial > emacs
changeset 23576:00ee2e0c8976
(Fchar_bytes): Doc fix.
(char_bytes): Fix returned value to match returned type.
(syms_of_charset): Fix type clash in initialisation of
Vauto_fill_chars.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 30 Oct 1998 10:13:36 +0000 |
| parents | 6df77402dfd4 |
| children | 36cccf1ba0a9 |
| files | src/charset.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/charset.c Fri Oct 30 09:54:37 1998 +0000 +++ b/src/charset.c Fri Oct 30 10:13:36 1998 +0000 @@ -1050,7 +1050,7 @@ 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 @@ 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 @@ "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 */