/[emacs]/emacs/src/editfns.c
ViewVC logotype

Diff of /emacs/src/editfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.326.2.3 by handa, Tue Aug 20 07:56:43 2002 UTC revision 1.326.2.4 by handa, Tue Aug 20 13:05:44 2002 UTC
# Line 2158  from adjoining text, if those properties Line 2158  from adjoining text, if those properties
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    
# Line 4103  functions if all the text being accessed Line 4126  functions if all the text being accessed
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);

Legend:
Removed from v.1.326.2.3  
changed lines
  Added in v.1.326.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26