#include <unistd.h>
#endif
+#include <stdio.h>
#include <ctype.h>
#include "lisp.h"
{
extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */
Lisp_Object m;
-
+
if (!NILP (Vtransient_mark_mode)
&& NILP (Vmark_even_if_inactive)
&& NILP (current_buffer->mark_active))
Fsignal (Qmark_inactive, Qnil);
-
+
m = Fmarker_position (current_buffer->mark);
if (NILP (m))
error ("There is no region now");
-
+
if ((PT < XFASTINT (m)) == beginningp)
m = make_number (PT);
return m;
/* visible */
info = XCDR (info);
visible_p = !NILP (XCAR (info));
-
+
#if 0 /* We used to make the current buffer visible in the selected window
if that was true previously. That avoids some anomalies.
But it creates others, and it wasn't documented, and it is simpler
clip_to_bounds (beg->charpos, pt, end->charpos),
clip_to_bounds (beg->bytepos, BUF_PT_BYTE(buf),
end->bytepos));
-
+
buf->clip_changed = 1; /* Remember that the narrowing changed. */
}
}
number of chars to print from a string. */
precision = field_width = 0;
-
+
while (index ("-*# 0", *format))
++format;
}
start = nchars;
-
+
if (p > buf
&& multibyte
&& !ASCII_BYTE_P (*((unsigned char *) p - 1))
defsubr (&Ssave_restriction);
defsubr (&Stranspose_regions);
}
+
+/* editfns.c ends here */