2158 |
return Qnil; |
return Qnil; |
2159 |
} |
} |
2160 |
|
|
2161 |
|
DEFUN ("insert-byte", Finsert_byte, Sinsert_byte, 2, 3, 0, |
2162 |
|
doc: /* Insert COUNT (second arg) copies of BYTE (first arg). |
2163 |
|
Both arguments are required. |
2164 |
|
BYTE is a number of the range 0..255. |
2165 |
|
|
2166 |
|
If BYTE is 128..255 and the current buffer is multibyte, the |
2167 |
|
corresponding eight-bit character is inserted. |
2168 |
|
|
2169 |
|
Point, and before-insertion markers, are relocated as in the function `insert'. |
2170 |
|
The optional third arg INHERIT, if non-nil, says to inherit text properties |
2171 |
|
from adjoining text, if those properties are sticky. */) |
2172 |
|
(byte, count, inherit) |
2173 |
|
Lisp_Object byte, count, inherit; |
2174 |
|
{ |
2175 |
|
CHECK_NUMBER (byte); |
2176 |
|
if (XINT (byte) < 0 || XINT (byte) > 255) |
2177 |
|
args_out_of_range_3 (byte, make_number (0), make_number (255)); |
2178 |
|
if (XINT (byte) >= 128 |
2179 |
|
&& ! NILP (current_buffer->enable_multibyte_characters)) |
2180 |
|
XSETFASTINT (byte, BYTE8_TO_CHAR (XINT (byte))); |
2181 |
|
Finsert_char (byte, count, inherit); |
2182 |
|
} |
2183 |
|
|
2184 |
|
|
2185 |
/* Making strings from buffer contents. */ |
/* Making strings from buffer contents. */ |
2186 |
|
|
4126 |
defsubr (&Sinsert_and_inherit); |
defsubr (&Sinsert_and_inherit); |
4127 |
defsubr (&Sinsert_and_inherit_before_markers); |
defsubr (&Sinsert_and_inherit_before_markers); |
4128 |
defsubr (&Sinsert_char); |
defsubr (&Sinsert_char); |
4129 |
|
defsubr (&Sinsert_byte); |
4130 |
|
|
4131 |
defsubr (&Suser_login_name); |
defsubr (&Suser_login_name); |
4132 |
defsubr (&Suser_real_login_name); |
defsubr (&Suser_real_login_name); |