mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

(Fgap_position, Fgap_size): New functions.

Browse Source 
(syms_of_editfns): defsubr them.
This commit is contained in:
Richard M. Stallman 1998-04-29 01:00:01 +00:00
parent eb4b1c0532
commit c86212b98b
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/editfns.c
View File

@ -469,6 +469,26 @@ is in effect, in which case it is less.")
return buildmark (ZV, ZV_BYTE);
}
DEFUN ("gap-position", Fgap_position, Sgap_position, 0, 0, 0,
"Return the position of the gap, in the current buffer.\n\
See also `gap-size'.")
()
{
Lisp_Object temp;
XSETFASTINT (temp, GPT);
return temp;
}
DEFUN ("gap-size", Fgap_size, Sgap_size, 0, 0, 0,
"Return the size of the current buffer's gap.\n\
See also `gap-position'.")
()
{
Lisp_Object temp;
XSETFASTINT (temp, GAP_SIZE);
return temp;
}
DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0,
"Return the byte position for character position POSITION.")
(position)
@ -3074,6 +3094,8 @@ functions if all the text being accessed has this property.");
defsubr (&Spoint_min);
defsubr (&Spoint_min_marker);
defsubr (&Spoint_max_marker);
defsubr (&Sgap_position);
defsubr (&Sgap_size);
defsubr (&Sposition_bytes);
defsubr (&Sbobp);