changeset 21821:9e82920b194d

(Fgap_position, Fgap_size): New functions. (syms_of_editfns): defsubr them.
author Richard M. Stallman <rms@gnu.org>
date Wed, 29 Apr 1998 01:00:01 +0000
parents 75f04f235df1
children 37c1ced8578a
files src/editfns.c
diffstat 1 files changed, 22 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/editfns.c	Wed Apr 29 00:59:43 1998 +0000
+++ b/src/editfns.c	Wed Apr 29 01:00:01 1998 +0000
@@ -469,6 +469,26 @@
   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 @@
   defsubr (&Spoint_min);
   defsubr (&Spoint_min_marker);
   defsubr (&Spoint_max_marker);
+  defsubr (&Sgap_position);
+  defsubr (&Sgap_size);
   defsubr (&Sposition_bytes);
 
   defsubr (&Sbobp);