aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/charset.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/charset.c b/src/charset.c
index 85456203aff..f7a5cae63f6 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -1050,7 +1050,7 @@ The conversion is done based on `nonascii-translation-table' (which see)\n\
1050 1050
1051DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0, 1051DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
1052 "Return 1 regardless of the argument CHAR.\n\ 1052 "Return 1 regardless of the argument CHAR.\n\
1053This is now an obsolte function. We keep is just for backward compatibility.") 1053This is now an obsolete function. We keep it just for backward compatibility.")
1054 (ch) 1054 (ch)
1055 Lisp_Object ch; 1055 Lisp_Object ch;
1056{ 1056{
@@ -1081,7 +1081,7 @@ char_bytes (c)
1081 bytes = CHARSET_DEFINED_P (charset) ? CHARSET_BYTES (charset) : 1; 1081 bytes = CHARSET_DEFINED_P (charset) ? CHARSET_BYTES (charset) : 1;
1082 } 1082 }
1083 1083
1084 return make_number (bytes); 1084 return bytes;
1085} 1085}
1086 1086
1087/* Return the width of character of which multi-byte form starts with 1087/* Return the width of character of which multi-byte form starts with
@@ -1966,8 +1966,8 @@ See also the docstring of `make-translation-table'.");
1966 "A char-table for characters which invoke auto-filling.\n\ 1966 "A char-table for characters which invoke auto-filling.\n\
1967Such characters has value t in this table."); 1967Such characters has value t in this table.");
1968 Vauto_fill_chars = Fmake_char_table (Qauto_fill_chars, Qnil); 1968 Vauto_fill_chars = Fmake_char_table (Qauto_fill_chars, Qnil);
1969 CHAR_TABLE_SET (Vauto_fill_chars, ' ', Qt); 1969 CHAR_TABLE_SET (Vauto_fill_chars, make_number (' '), Qt);
1970 CHAR_TABLE_SET (Vauto_fill_chars, '\n', Qt); 1970 CHAR_TABLE_SET (Vauto_fill_chars, make_number ('\n'), Qt);
1971} 1971}
1972 1972
1973#endif /* emacs */ 1973#endif /* emacs */