static int byte_debug_flag;
void
-clear_charpos_cache (b)
- struct buffer *b;
+clear_charpos_cache (struct buffer *b)
{
if (cached_buffer == b)
cached_buffer = 0;
}
static void
-byte_char_debug_check (b, charpos, bytepos)
- struct buffer *b;
- int charpos, bytepos;
+byte_char_debug_check (struct buffer *b, int charpos, int bytepos)
{
int nchars = 0;
}
int
-charpos_to_bytepos (charpos)
- int charpos;
+charpos_to_bytepos (int charpos)
{
return buf_charpos_to_bytepos (current_buffer, charpos);
}
int
-buf_charpos_to_bytepos (b, charpos)
- struct buffer *b;
- int charpos;
+buf_charpos_to_bytepos (struct buffer *b, int charpos)
{
struct Lisp_Marker *tail;
int best_above, best_above_byte;
in the simplest, most reliable way. */
int
-verify_bytepos (charpos)
- int charpos;
+verify_bytepos (int charpos)
{
int below = 1;
int below_byte = 1;
}
int
-bytepos_to_charpos (bytepos)
- int bytepos;
+bytepos_to_charpos (int bytepos)
{
return buf_bytepos_to_charpos (current_buffer, bytepos);
}
int
-buf_bytepos_to_charpos (b, bytepos)
- struct buffer *b;
- int bytepos;
+buf_bytepos_to_charpos (struct buffer *b, int bytepos)
{
struct Lisp_Marker *tail;
int best_above, best_above_byte;
be outside the visible part. */
Lisp_Object
-set_marker_restricted (marker, pos, buffer)
- Lisp_Object marker, pos, buffer;
+set_marker_restricted (Lisp_Object marker, Lisp_Object pos, Lisp_Object buffer)
{
register int charno, bytepos;
register struct buffer *b;
character position and the corresponding byte position. */
Lisp_Object
-set_marker_both (marker, buffer, charpos, bytepos)
- Lisp_Object marker, buffer;
- int charpos, bytepos;
+set_marker_both (Lisp_Object marker, Lisp_Object buffer, int charpos, int bytepos)
{
register struct buffer *b;
register struct Lisp_Marker *m;
be outside the visible part. */
Lisp_Object
-set_marker_restricted_both (marker, buffer, charpos, bytepos)
- Lisp_Object marker, buffer;
- int charpos, bytepos;
+set_marker_restricted_both (Lisp_Object marker, Lisp_Object buffer, int charpos, int bytepos)
{
register struct buffer *b;
register struct Lisp_Marker *m;
including those in chain fields of markers. */
void
-unchain_marker (marker)
- register struct Lisp_Marker *marker;
+unchain_marker (register struct Lisp_Marker *marker)
{
register struct Lisp_Marker *tail, *prev, *next;
register struct buffer *b;
/* Return the char position of marker MARKER, as a C integer. */
int
-marker_position (marker)
- Lisp_Object marker;
+marker_position (Lisp_Object marker)
{
register struct Lisp_Marker *m = XMARKER (marker);
register struct buffer *buf = m->buffer;
/* Return the byte position of marker MARKER, as a C integer. */
int
-marker_byte_position (marker)
- Lisp_Object marker;
+marker_byte_position (Lisp_Object marker)
{
register struct Lisp_Marker *m = XMARKER (marker);
register struct buffer *buf = m->buffer;
/* For debugging -- count the markers in buffer BUF. */
int
-count_markers (buf)
- struct buffer *buf;
+count_markers (struct buffer *buf)
{
int total = 0;
struct Lisp_Marker *tail;
}
\f
void
-syms_of_marker ()
+syms_of_marker (void)
{
defsubr (&Smarker_position);
defsubr (&Smarker_buffer);