Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c86212b9
Commit
c86212b9
authored
Apr 29, 1998
by
Richard M. Stallman
Browse files
(Fgap_position, Fgap_size): New functions.
(syms_of_editfns): defsubr them.
parent
eb4b1c05
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
22 additions
and
0 deletions
+22
-0
src/editfns.c
src/editfns.c
+22
-0
No files found.
src/editfns.c
View file @
c86212b9
...
...
@@ -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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment