mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(Finsert_char): New arg INHERIT.

Browse Source 
Use insert_and_inherit if requested.
This commit is contained in:
Richard M. Stallman 1994-08-28 06:07:15 +00:00
parent 2e252751cb
commit e2eeabbbce
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/editfns.c
View File

@ -856,12 +856,14 @@ Any other markers at the point of insertion also end up after the text.")
return Qnil;
}
DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 2, 0,
DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0,
"Insert COUNT (second arg) copies of CHAR (first arg).\n\
Point and all markers are affected as in the function `insert'.\n\
Both arguments are required.")
(chr, count)
Lisp_Object chr, count;
Both arguments are required.\n\
The optional third arg INHERIT, if non-nil, says to inherit text properties\n\
from adjoining text, if those properties are sticky.")
(chr, count, inherit)
Lisp_Object chr, count, inherit;
{
register unsigned char *string;
register int strlen;
@ -879,7 +881,10 @@ Both arguments are required.")
string[i] = XFASTINT (chr);
while (n >= strlen)
{
insert (string, strlen);
if (!NILP (inherit))
insert_and_inherit (string, strlen);
else
insert (string, strlen);
n -= strlen;
}
if (n > 0)